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