|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2013秋江蘇省二級VB上機真題第1套 |
江蘇高等學(xué)校非計算機專業(yè)學(xué)生 計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2013秋） 二級 Visual Basic語言（試卷代號VB01） （本試卷完成時間 70分鐘） 【考試須知】 1. 改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯題（14分） 【題目】 本程序的功能是生成由n（n通過InputBox函數(shù)輸入）個3位升序數(shù)構(gòu)成的隨機數(shù)組,所謂升序數(shù)是指從高位到低位數(shù)字值依次增加的整數(shù) (本程序界面由1個TextBox和1個CommandButton組成，所有對象均采用缺省名)
Option Explicit Option Base 1 Private Sub Command1_Click() Dim n as long, a() As Integer, k as Integer, p as Integer n=InputBox(“輸入數(shù)據(jù)個數(shù);”,”升序數(shù)數(shù)組”,10) Redim a(n) Do p= Int(Rnd*900)+101 If judge(p) Then k=k+1 a(k)=p Text1.text=Text1.text & Str(a(k)) If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf End If Loop Until k>n End Sub public Function judge(n as integer) As Boolean Dim i as integer, a(3) as integer For i=3 To 1 Step -1 a(i)= n Mod 10 n=n\10 Next i For i=1 to 2 If a(i)>=a(i+1) Then Exit For Next i judge=True End Function 1.新建工程,按參考界面形式創(chuàng)建窗體,再從T盤根目錄下的err.txt文件中將有錯誤的程序代碼復(fù)制到代碼編輯器窗口中或自行輸入上述代碼,改正程序中的錯誤。 2.改錯時,不得增加或刪除語句,但可適當(dāng)調(diào)整語句的位置。 3.將窗體文件和工程文件分別命名為F1和P1,并保存到T盤的根目錄下。 二、編程題(26分) 【題目】 編寫程序,找出給定范圍內(nèi)所有不是素數(shù)的虧數(shù)。所謂虧數(shù)是指除本身外其所有因子之和小于自身的正整數(shù)。例如,106的因子為1、2、53,和為56,故106是虧數(shù)。（注意:凡因子和為1的即為素數(shù)）
【編程要求】 1.程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見。 2.運行程序,在”a:”文本框中輸入數(shù)據(jù)范圍的起始值,在”b:”文本框中輸入數(shù)據(jù)范圍的終止值后,單擊”查找”按鈕,若數(shù)據(jù)范圍內(nèi)存在”虧數(shù)”,則將它們按附圖參考界面所示的格式輸出到列表框中,否則在列表框中輸出”指定范圍內(nèi)無虧數(shù)”的信息,單擊”清除”按鈕,將文本框與列表框清空,焦點置于”a:”文本框上 3.程序中至少應(yīng)定義一個通用過程,用于求一個整數(shù)的因子和或判斷其是否為”虧數(shù)” 【要求】將窗體文件和工程文件分別命名為F2和P2,并保存到T盤的根目錄下 一、改錯題 第15行 Loop Until k>n 改為 k=n 第17行 Private Function judge(n as integer) As Boolean 改為 Byval n 第24行 If a(i)>=a(i+1) Then Exit Function 改為Exit Function 二、編程題 Option Explicit Option Base 1 Private Sub CmdClear_Click() Text1.Text = "": Text2.Text = "" List1.Clear Text1.SetFocus End Sub Private Sub CmdFind_Click() Dim a As Integer, b As Integer, i As Integer Dim st As String, flg As Boolean, sum As Integer a = Val(Text1.Text) b = Val(Text2.Text) For i = a To b flg = False: st = "": sum = 0 Call judge(i, flg, st, sum) If flg Then List1.AddItem i & ":" & st & "=" & sum End If Next i If List1.ListCount = 9 Then List1.AddItem "指定范圍內(nèi)無虧數(shù)" End Sub Private Sub judge(n As Integer, fg As Boolean, st As String, sum As Integer) Dim i As Integer For i = 1 To n - 1 If n Mod i = 0 Then sum = sum + i st = st & i & "+" End If Next i If sum < n And sum <> 1 Then fg = True st = Left(st, Len(st) - 1) End If End Sub |
