|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
江蘇計算機二級2005年秋vb上機（8） |
江蘇省高等學校非計算機專業(yè)學生 計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2005秋） 二級Visual Basic語言（試卷代碼VB08） （本試卷完成時間 70分鐘） [考試須知] 1． 改錯的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2． 考試結(jié)束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不予評分； 3． 程序代碼書寫應(yīng)呈鋸齒形。 一．改錯題（14分） [題目]本程序的功能是將無符號二進制數(shù)轉(zhuǎn)化為十進制數(shù)。本程序界面見圖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． 改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置； 3． 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二．編程題（26分） [題目]編寫程序求1~200之間可以表示為4n+1形式并等于兩個平方數(shù)之和的所有素數(shù)。 [編程要求] 1． 程序參考界面如圖2所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2． 單擊“運行”按鈕，求出滿足條件的素數(shù)，并按圖示格式輸出到列表框； 3． 單擊“清除”按鈕，則將列表框清空，焦點置于“運行”按鈕上；單擊“結(jié)束”按鈕，結(jié)束程序運行； 4． 程序中必須包含一個將某種數(shù)表示成兩個平方數(shù)之和的通用過程。 [要求] 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的根目錄下。
|
圖1
圖2