江蘇省高等學校非計算機專業學生

計算機基礎知識和應用能力等級考試上機試卷（2005秋）

二級Visual Basic語言（試卷代碼VB08）

（本試卷完成時間 70分鐘）

[考試須知]

1．  改錯的界面不作要求，主要用來調試程序，若題目中有參考界面，則僅作參考；

2．  考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不予評分；

3．  程序代碼書寫應呈鋸齒形。

一．改錯題（14分）

[題目]本程序的功能是將無符號二進制數轉化為十進制數。本程序界面見圖1。

Private Sub Command1_Click()

   Dim st1 As String,st2 As String,n As Integert

   Dim s As String

   S=Text1

   n=InStr(s,”.”)

   If n <>0 Then

       st1=Left(s,n-1)

       st2=Right(s,Len(s)-n-1)

  Else

       st1=s

  End If

  If n<>0 Then

     Text2=cov1(st1) & ”.” & cov2(st2)

  Else

     Text2=cov1(st1)

  End If

End Sub

Private Function cov1(st As String) As Integer

Dim i As Integer, k As Integer

For i=Len(st) To 1 Step -1

   cov1=cov1+Val(Mid(st, i, 1))*2^k

   k=k+1

Next i

End Function

Private Function cov2(st As Integer) As Single

Dim i As Integer, k As Integer

K=-1

For i=1 To Len(st)

   cov2=cov2+Val(Mid(st, i, 1))*2^k

   k=k-1

Next i

End Function

[要求]

1．  新建工程，輸入上述代碼，改正程序中的錯誤；

2．  改錯時，不得增加或刪除語句，但可適當調整語句位置；

3．  將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。

二．編程題（26分）

[題目]編寫程序求1~200之間可以表示為4n+1形式并等于兩個平方數之和的所有素數。

[編程要求]

1．  程序參考界面如圖2所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；

2．  單擊“運行”按鈕，求出滿足條件的素數，并按圖示格式輸出到列表框；

3．  單擊“清除”按鈕，則將列表框清空，焦點置于“運行”按鈕上；單擊“結束”按鈕，結束程序運行；

4．  程序中必須包含一個將某種數表示成兩個平方數之和的通用過程。

[要求]

將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的根目錄下。

圖1

圖2