|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
江蘇省2005秋vb上機(jī)（4） |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力登記考試上機(jī)試卷（2005秋） 二級(jí)Visual Basic語(yǔ)言（試卷代號(hào)VB04） (本試卷完成時(shí)間70分鐘) [考試須知] 1． 改錯(cuò)題的界面不做要求，主要用來調(diào)試程序，若題目中有參考界面，則僅做參考； 2． 考試結(jié)束后，文件必須放在指定位置，否則適當(dāng)扣分，考試盤中若無指定文件，則不予評(píng)分； 3． 程序代碼書寫應(yīng)呈鋸齒形。 一．改錯(cuò)題（14分） [題目]下面程序的功能是，找出1~300之間的三個(gè)相臨整數(shù)N ，N+1和N+2，且每個(gè)整數(shù)均為兩個(gè)素?cái)?shù)的乘積。本題程序界面如圖1。 Option Explict Private Sub Command1-click() Dim p() as Integer ,I As Integer,N(3) As Integer Call Prime (P,150) For I=1 to 300 If Compare (P,I)Then List 1.Additem I &”,”&I+1&”,” & I+2 End if Next I End sub Private Sub Prime (p () As Integer ,N As Integer ) Dim I As Integer ,K As Integer ,Idx As Integer For I =2 to N For K=2 to sqr(I) If I Mod K = 0 Then Exit For Next k If k >sqr(I) Then Idx=Idx +1 ReDim p(Idx) P(Idx)=I End if Next I End sub Private Function Compare (p()As Integer)As Boolean Dim I As Integer ,J As Integer ,k As Integer ,Flg As Boolean For k = 1 to 3 I=1 Do While I < =Ubound (p) For J=1 to Ubound (p) If A =P(I)*p(J) Then Exit Do Next J I=I+1 Loop If J>UBound(p) Then Exit For A=A+1 Next k Compare =True End Function [要求] 1． 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤； 2． 改錯(cuò)時(shí)，不得增加或者刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置； 3． 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的跟目錄下。 二．編程題（26分） [題目]編寫程序求給定正整數(shù)的所有因子及所有因子的倒數(shù)之和。 [編程要求] 1． 程序參考界面如圖2所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見； 2． 運(yùn)行程序，在文本框1中輸入測(cè)試數(shù)據(jù)，單擊“運(yùn)行”按紐，求出其所有因子及所有因子的倒數(shù)和，按圖示格式輸出到多行文本框2中（結(jié)果要進(jìn)行約分）； 3． 單擊“清除”按紐，則將兩個(gè)文本框清空，焦點(diǎn)置于文本狂1上； 4． 程序中必須包含一個(gè)求其正整數(shù)所有因子倒數(shù)之和的通用過程。 [要求] 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的跟目錄下。
圖 1 圖 2 |
