江蘇省2010年春二級(jí)計(jì)算機(jī)考試VB筆試試卷

1、.2010春計(jì)算機(jī)等級(jí)考試（二級(jí)）Visual Basic程序設(shè)計(jì) 第二部分一、 選擇題21.關(guān)于窗體，以下敘述中正確的是_。A 僅當(dāng)窗體上沒有可以獲得焦點(diǎn)的控件時(shí)，窗體才可以獲得焦點(diǎn)B 一個(gè)VB工程只能從某個(gè)指定的窗體開始啟動(dòng)C 只有窗體可以作為控件的容器D Unload Me和End語句的效果總是等同的22 若a為長(zhǎng)整型變量，則執(zhí)行a=12；Print Len(a)；Len(Str(a);Len(CStr(a)后，在窗體上看到的是_。A 4 2 3 B 2 3 2 C 4 3 2 D 2 2 323 數(shù)學(xué)表達(dá)式對(duì)應(yīng)的Visual Basic表達(dá)式是_A Cos(30*3.14159/180

2、)/(4*y+Ln(x)+Exp(2)B Cos(30*3.14159/180)/(4*y+Log(x)+Exp(2)C Cos(30*3.14159/180)/(4*y+Ln(x)+e2D Cos(30)/(4*y+Log(x)+e224 表達(dá)式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是_。A -8 B -7 C -6 D -525以下說法中，錯(cuò)誤的是_。A使用缺省Preserve關(guān)鍵字的ReDim語句可以改變數(shù)組的維數(shù)和大小BReDim語句只能出現(xiàn)在過程中C使用ReDim語句重新定義的動(dòng)態(tài)數(shù)組，只能比原數(shù)組大D使用ReDim語句可以對(duì)動(dòng)態(tài)數(shù)組的所有元素進(jìn)行初始化26

3、 下列關(guān)于菜單的說法中，錯(cuò)誤的是_。A 可以為菜單項(xiàng)選定快捷鍵B 若在“標(biāo)題”文本框中鍵入連字符（），則可在菜單的兩個(gè)菜單命令項(xiàng)之間加一條分隔線C 除了Click事件之外，菜單項(xiàng)還可以影響其他事件D 菜單編輯器的“名稱”文本框用于輸入菜單項(xiàng)的名稱27 以下有關(guān)過程中形式參數(shù)的描述中，錯(cuò)誤的是_。A 函數(shù)過程可以沒有形式參數(shù)B 事件過程一定沒有形式參數(shù)C 形參數(shù)組只能按地址與實(shí)參數(shù)組結(jié)合D 窗體與控件也可以作為過程的參數(shù)28 以下表達(dá)式中，可以表示“A和B之一大于0”的是_。A*B<=0 A>0 Xor B>0 A>0 OrB>0 A>0 And B<=

4、0 Or B>0 And A<=0A B C D 29 設(shè)變量A為長(zhǎng)整型，則下面不能正常執(zhí)行的語句是_。A A=32768*2 B A=2*1.5*16384C A=16384*2 D A=190230 以下有關(guān)滾動(dòng)條控件(ScrollBar)的說法中錯(cuò)誤的是_。A 只能在設(shè)計(jì)時(shí)設(shè)置Max與Min屬性值B Value屬性返回滾動(dòng)條內(nèi)滑塊當(dāng)前所處位置的值C 拖動(dòng)滾動(dòng)條內(nèi)滑塊時(shí)，將觸發(fā)滾動(dòng)條的Scroll事件D 單擊滾動(dòng)箭頭時(shí)，將觸發(fā)滾動(dòng)條的Change事件二、 填空題1 執(zhí)行下面程序，單擊Command1后，A（1，4）的值是_ (1)_,A（2，3）的值是_(2)_，A（2，3）的

5、值是_(3)_。Option ExplicitOption Base 1Private Sub Command1_Click() Dim A(4, 4) As Integer, UB As Integer Dim i As Integer, j As Integer, n As Integer UB = UBound(A, 1) n = 0 For i = UB To 1 Step -1 For j = 1 To UB + 1 - i n = n + 1 A(j, j + i - 1) = n Next j Next i For i = UB To 2 Step -1 For j = UB T

6、o i Step -1 A(j, j - i + 1) = A(5 - j, 4 - j + i) Next j Next i For i = 1 To UB For j = 1 To UB Picture1.Print A(i, j); Next j Picture1.Print Next iEnd Sub2 執(zhí)行下面的程序，單擊Command1后，在InputBox函數(shù)對(duì)話框中輸入4（或直接單擊“確定”按鈕），窗體第一行顯示的內(nèi)容是_(4)_，第二行顯示的內(nèi)容是_(5)_，第四行顯示的內(nèi)容是_(6)_。Option ExplicitPrivate Sub Command1_Click()

7、Dim Days As Integer Days = InputBox("輸入正整數(shù)", , 4) Print fun(Days)End SubPrivate Function fun(D As Integer) As Integer If D = 1 Then fun = 1 Else fun = 2 * fun(D - 1) + 1 Print D; fun End IfEnd Function3. 執(zhí)行下面程序，單擊Command1后，窗體第一行顯示的內(nèi)容是_(7)_，第三行顯示的內(nèi)容是_(8)_，最后一行顯示的內(nèi)容是_(9)_。Private Sub Command

8、1_Click() Dim I As Integer, K As Integer For I = 1 To 5 K = Fun(I) + I Print K Next I Print IEnd SubFunction Fun(N As Integer) As Integer Static M As Integer Dim J As Integer M = M + N N = N + 1 For J = 1 To M J = J + 2 Fun = Fun + J Next J Fun = Fun + NEnd Function4 執(zhí)行下面程序，單擊Command1后，窗體第一行顯示的內(nèi)容是_(

9、10)_，第三行顯示的內(nèi)容是_(11)_，最后一行顯示的內(nèi)容是_(12)_。Option ExplicitPrivate Sub Command1_Click() Dim S As String, N As Integer S = "3AB" N = 14 Print Convert(S, N)End SubPrivate Function Convert(S As String, N As Integer) As Long Dim St As String, L As Integer, I As Integer L = Len(S) Do While L >= 1

10、St = Left(S, 1) If St > "9" Then St = Asc(St) - 55 '"A"的ASCII碼為65 End If Convert = Convert + Val(St) * N (L - 1) Print Val(St) * N (L - 1) L = L - 1 S = Right(S, L) LoopEnd Function5 執(zhí)行下面程序，單擊Command1后，窗體第一行顯示的內(nèi)容是_(13)_，第三行顯示的內(nèi)容是_(14)_，最后一行顯示的內(nèi)容是_(15)_。Option ExplicitPriva

11、te Sub Command1_Click() Dim s As String, k As Integer, ch() As String Dim p As String, i As Integer s = UCase("Meet me after the class.") For i = 1 To Len(s) If Mid(s, i, 1) <= "Z" And Mid(s, i, 1) >= "A" Then p = p & Mid(s, i, 1) ElseIf p <> ""

12、; Then k = k + 1 ReDim Preserve ch(k) ch(k) = p p = "" End If Next i For i = 1 To UBound(ch) If Len(ch(i) <= 2 Then Call move_c(ch(i), 1) Else Call move_c(ch(i), 2)End IfPrint ch(i)Next iEnd SubPrivate Sub move_c(s As String, k As Integer) Dim i As Integer, j As Integer, p As String * 1

13、 For i = 1 To k p = Right(s, 1) For j = Len(s) - 1 To 1 Step -1 Mid(s, j + 1, 1) = Mid(s, j, 1) Next j s = p & Right(s, Len(s) - 1) Next iEnd Sub6. 下面程序的功能是求的近似值，當(dāng)?shù)趎項(xiàng)的絕對(duì)值小于10 時(shí)終止計(jì)算Option ExplicitPrivate Sub Command1_Click()Dim n As Long, s As Single, t As Single, pi As Single Const eps = 0.00001

14、 n = 1 t = 1 s = 0 Do s = s + t n = n + 1 t = (16) Loop Until (17) pi = s * 4 Label1.Caption = "的近似值為：" Text1 = piEnd Sub7. 下面程序的功能是：找出滿足以下條件的三位整數(shù),不含數(shù)字0；且任意交換數(shù)字位置所得到的數(shù)，均能被6整除。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, st As String Dim a(6) As

15、Integer For i = 100 To 999 If (18) Then For j = 1 To 6 If a(j) Mod 6 <> 0 Then Exit For Next j If (19) Then st = st & Str(i) k = k + 1 If k Mod 3 = 0 Then st = st & vbCrLf End If End If Next i Text1 = stEnd SubPrivate Function fj(a() As Integer, s As String) As Boolean Dim n As Integer

16、, i As Integer, j As Integer If InStr(s, "0") <> 0 Then (20) End If For i = 1 To 3 For j = 1 To 2 n = n + 1 _ (21) s = Left(s, 1) & Right(s, 1) & Mid(s, 2, 1)Next j s = Right(s, 1) & Left(s, 2) Next i fj = TrueEnd Function8. 下面程序是功能是求兩個(gè)特大整數(shù)之和。由于VB中能夠表示是整數(shù)大小有一定限制，所以必須用新的方法

17、求特大整數(shù)之和，本程序?qū)⑻卮笳麛?shù)使用字符類型進(jìn)行處理，其中函數(shù)Add用于求兩個(gè)1位整數(shù)之和，參數(shù)c用于保存進(jìn)位。注意：求和前需先將兩個(gè)整數(shù)按位對(duì)齊。Option ExplicitPrivate Sub Command1_Click() Dim s1 As String, s2 As String, s3 As String Dim i As Integer, n1 As Integer, n2 As Integer Dim c As Integer, n As Integer s1 = Text1: s2 = Text2 n = (22) If Sgn(n) > 0 Then s2 =

18、(23) ElseIf Sgn(n) < 0 Then s1 = String(Abs(n), "0") & s1 '函數(shù)String(n,"0")返回包含n個(gè)0的字符串 End If For i = Len(s1) To 1 Step -1 n1 = Val(Mid(s1, i, 1) n2 = Val(Mid(s2, i, 1) s3 = (24) Next i If c <> 0 Then s3 = (25) Text3 = s3 End SubPrivate Function Add(x As Integer,

19、y As Integer, c As Integer) As String '參數(shù)c記錄進(jìn)位 Add = CStr(x + y + c) Mod 10) (26) End Function9. 下面程序的功能是：找出各位數(shù)字互不相同，且其6倍數(shù)仍由組成該數(shù)的數(shù)字構(gòu)成的六位整數(shù)。例如：126873的6倍數(shù)是761238，就是符合條件的數(shù)。提示：程序中用a、b數(shù)組來標(biāo)示數(shù)組元素下標(biāo)值對(duì)應(yīng)的數(shù)字是否出現(xiàn)在六位整數(shù)中。例如2出現(xiàn)在某六位整數(shù)中，則a（2）的值為1。Option ExplicitPrivate Sub Command1_Click() Dim i As Long, i2 As Long, flag As Boolean Dim a(0 To 9) As Integer, b(0 To 9) As Integer For i =