江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
江蘇計算機二級2005年秋vb上機(8)

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

計算機基礎知識和應用能力等級考試上機試卷(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.  將窗體文件和工程文件分別命名為F1P1,并保存到軟盤A的根目錄下。

二.編程題(26分)

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

[編程要求]

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

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

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

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

[要求]

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

圖1

圖2

 

 

 

          

彩票30选5开奖结果