|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)5 |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力等級(jí)考試上機(jī)試卷（2005春） 二級(jí)Visual Basic語言 （試卷代號(hào) VB05） （本試卷完成時(shí)間 70分鐘） 【考試須知】 1. 改錯(cuò)題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評(píng)分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯(cuò)題（14分） 【題目】下面程序功能是：已知三角形三個(gè)頂點(diǎn)的坐標(biāo)，通過距離公式求出三邊長(zhǎng)度，再求出三角形的面積。 Option Explicit Private Sub Command1_Click() Dim xy(3,2) As Single,i As Integer Dim st As String,n As Integer,n1 As Integer,s As String Text1="(28.5,36.7),(12.3,10.9),(45.5,25.4)" st=Text1 //此處插入圖片 Do i=i+1 n=InStr(st,")") s=Mid(st,2,n-1) n1=InStr(s,",") xy(i,1)=Left(s,n1-1) xy(i,2)=Mid(s,n1+1,n-n1-n2) If n<=Len(st) Then st=Right(st,Len(st)-n) Else Exit Do End If Loop Text2=area(xy) End Sub Private Function area(xy() As Single) As Single Dim d(3) As Single,i As Integer,j As Integer,k As Integer,s As Single For i=1 To UBound(xy,1) -1 For j=i+1 To UBound(xy,2) k=k+1 d(k)=Sqr((xy(i,1)-xy(j,1))^2+(xy(i,2)-xy(j,2))^2) s=s+d(k) Next j Next i s=s/2 area=Sqr(s*(s-d(1))*(s-d(2))*(s-d(3))) End Function 【要求】 1. 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤； 2. 改錯(cuò)時(shí)，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二、編程題（26分） 【題目】輸入數(shù)據(jù)位數(shù)K（3～5），編程找出所有由1至9這九個(gè)數(shù)字組成的K位數(shù)，且滿足從低位到高位的數(shù)字依次增大，任意相鄰 兩位數(shù)字之差都大于1。 【編程要求】 1.程序參考界面如圖所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見； 2.在文本框1中輸入數(shù)據(jù)位數(shù)K，單擊“開始”按鈕，找出所有滿足上述條件的K位數(shù)，并以每行5個(gè)數(shù)的形式顯示在多行文本框2中； 3.程序中應(yīng)至少定義一個(gè)通用過程，用于判斷某個(gè)K位數(shù)是否滿足給定條件。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的目錄下。
|
