江蘇省2011年二級計算機考試VB筆試試題

1、.2011春省計算機等級考試第二部分 Visual Basic 程序設(shè)計一選擇題21.以下說法中，正確的是_。A. 屬性是對象的特征，所有的對象都有相同的屬性B屬性值只能在屬性窗口中設(shè)置C在程序中可以用賦值語句給對象的任何一個屬性賦值D.對象的運行時屬性不出現(xiàn)在對象屬性窗口中22.下面4個語句中，錯誤的是_。AN=InputBox（“輸入N： ”，5）； B .InputBox（“輸入N： ”，5）C. MsgBox“請回答” D. K = MsgBox(“請回答”)23.若設(shè)X = 1，Y = 2，則不能在窗口上顯示“A = 3”的語句的是_A . Print A = X+Y B . Pri

2、nt “ A =”; X+YC . Print “ A =” + Str(X+Y) D . Print “ A =” & X+Y24.表達式InStr（4,”abcabca”,”c”）+Int（2.5）的值是_A. 7 B . 8 C . 5 D . 925 .以下有關(guān)數(shù)組的說法中，錯誤的是_A . 用ReDim語句重新定義動態(tài)數(shù)組時，其下標的上下界可以使用賦了值的變量B . 用ReDim語句重新定義動態(tài)數(shù)組時，不能改變已經(jīng)說明過的數(shù)組的數(shù)據(jù)類型C. 使用ReDim語句一定可以改變動態(tài)數(shù)組的上下界D. 定義數(shù)組時，數(shù)組維界值可以不是整數(shù)26.以下有關(guān)過程的說法中，錯誤的是_A . 不論

3、在Function過程中是否給函數(shù)名賦過值，都會返回一個值B不能在Function與Sub過程內(nèi)部，再定義Function或Sub過程C Function過程與Sub過程，都可以是無參過程D過程名可以和主調(diào)過程的局部變量同名27.下列關(guān)于菜單的說法中，錯誤的是_A除了Click事件之外，菜單項不能響應(yīng)其他事件B菜單的名稱項（Name屬性）不可缺省C只有當代碼窗口為當前活動窗口時，才能打開菜單編輯器D菜單項的快捷鍵不能任意設(shè)置28.設(shè)a=1,b=2,c=3，邏輯表達式a<b And Not c>b Xor c<a 的值_AFalse B. -1 C. True D. 129.在

4、窗口Form1中用“Public Sub Fun（x As Integer , y As Single）”定義過程Fun，在窗體Form2的某事件過程中定義了變量I和J均為Integer，若要在此過程中調(diào)用Form1中的Fun過程，則下列語句中正確的是_A. Call Fun(I,J) B. Call Form1.Fun(I,J)C. Fun I ,(J) D. Form1.Fun I, (J)30.以下有關(guān)文件操作的說法中，正確的是_A. 在某過程中用Open語句打開的文件，只能在這個過程中使用B不能用Output，Append方式打開一個不存在的順序文件C在Input方式下，可以使用不同的

5、文件號同時打開同一個文件D在不同的過程中，可以用同一個文件號打開不同的文件二，填空題1. 執(zhí)行下列程序，單擊按鈕Command1，窗體上顯示的第一行內(nèi)容是_,第二行內(nèi)容是_,第三行內(nèi)容是_。 Option Explicit Private Sub Command 1_Click() Dim a As Integer , b As Integer a = 4 b = 3 Do Until a > 10 b = b/2 Do Until b > 10 a = (a+b)2+b b = b+5 Print a,b Loop a = a-3 LoopEnd Sub2. 執(zhí)行下面程序，當單擊

6、Cmd1時，在窗體上顯示的第一行內(nèi)容是_,第二行的內(nèi)容是_,第四行是_ Option Explicit Private Sub Cmd1_Click() Dim a As Integer , b As Integera= 1b = 2Print fun(2*b, fun(a,(b)Print a;b End Sub Private Function fun(x As Integer , y As Integer) As Integer x= x+2 y = x-y+3 fun = x+y Print fun End Function3.執(zhí)行下面的程序，單擊CmdRun后，數(shù)組元素a（1,2）的

7、值是_a(2,1)的值是_a(3,2)的值是_Option ExplicitOption Base 1Private Sub CmdRun_Click() Dim A(3,3)As Integer , I As Integer ,j As Integer ,k As Integer ,n As Integer n = 3 i = 1:j = n A(i,j) = 1 For k = 2 To n*n If i+1>n Then i=n-j+2:j=1 ElseIf i+1<=n And j+1>n Then J=j-i:i=1 Else I=i+1:j=j+1 End If

8、A(i,j)=kNext kFor i=1 To n For j=1 To n PrintA(i,j); Next j PrintNext i End Sub4.運行程序，二進制在文本Text1中輸入用空格分隔的4位1001，0101和0110。單擊“處理”按鈕，在多行文本框Text2中的第一行顯示_,第二行顯示_,第三行顯示_。Option ExplicitPrivate Sub Cmd1_Click()Dim S(3) As String , n As IntegerDim i As Integer, k As IntegerK=1For i=1 To 3S(i)=Mid(Text1,k,

9、4)K=k+5Call Transform(n,S(i)Text2=Text2 & n & vbCrlfNext iEnd SubPrivate Sub Transform(n As Integer,S As String) Dim k As Integer, i As Integer, L As IntegerL=Len(S)If Val(Mid(S,1,1)=1 ThenN=(2 (L-1)Elsen=0End IfFor i=2 To LK=Mid(S,i,1)N=n+k * 2 (L-i)Next iEnd Sub5.執(zhí)行下列程序，單擊CmdRun按鈕，則窗體上顯示的第

10、一行是_（13）_，第二行是_（14）_，最后一行是_(15)_。Option ExplicitPrivate Sub CmdRun_Click()Dim n As IntegerFor n=4 To 7If Fun1(n,Sqr(n) ThenPrint n;”SS”ElsePrint n;”HS”End IfNext nEnd SubPrivate Function Fun1(n As Integer,i As Integer) As BooleanIf i=1 ThenFun1=TrueElseIf n Mod i<>0 ThenFun1=Fun1(n,i-1)ElseFun

11、1=FalseEnd IfEnd Function6.下面程序的功能是求S的值。計算到第k項的值小于等于10-6為止。請完善本程序。Option ExplicitPrivate Sub Command1_Click() Dim s As Single, x As Single, k As Integer, t As Single x = CSng(Text1.Text) Do t = pt(x, k) s = s + t k = k + 1 Loop Until t <= 0.000001 Text2.Text = CStr(s)End SubPrivate Function pt(x

12、As Single, n As Integer) As Single Dim i As Integer For i = 1 To n pt = Next i pt = pt / x nEnd Function7.下面程序的功能是，找出100999之間具有以下特點的整數(shù)：其全部真因子（1和自身除外的因子）中，所有素數(shù)因子之和的2倍等于其余因子的和數(shù)。請完善本程序。Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Long, j As Long, m As Integer, st As String Dim a()

13、As Integer For i = 100 To 999 For j = 2 To i - 1 If i Mod j = 0 Then m = m + 1 a(m) = j End If Next j If m > 0 Then If yzh(a, st) Then List1.AddItem i & ":" & st End If Erase a Next iEnd SubPrivate Function yzh(a() As Integer, st As String) As Boolean Dim i As Integer, j As Inte

14、ger Dim sum1 As Long, sum2 As Long, st1 As String, st2 As String For i = 1 To UBound(a) For j = 2 To Sqr(a(i) If a(i) Mod j = 0 Then Exit For Next j If Then sum1 = sum1 + a(i) st1 = st1 & a(i) & "+" Else sum2 = sum2 + a(i) st2 = st2 & a(i) & "+" End If Next i If s

15、um1 * 2 = sum2 Then st = "(" & Left(st1, Len(st1) - 1) & ")*2=" & Left(st2, Len(st2) - 1) End IfEnd Function8.本程序的功能是求-128+127之間整數(shù)n的8位2進制補碼。采用的算法是：若n>=0，則直接將其轉(zhuǎn)換為相應(yīng)的7位2進制數(shù)，前面的符號位設(shè)定為“0”；若n<0，則將n+128轉(zhuǎn)換為相應(yīng)的7位2進制數(shù)，前面的符號位設(shè)定為“1”。請完善本程序。Option ExplicitPrivate Sub Comman

16、d1_Click() Dim dec As Integer dec = Text1 If Then MsgBox "無效數(shù)據(jù),請重輸!", , "求補碼" Text1 = "" Text1.SetFocus Else Text2 = bm(dec) End IfEnd SubPrivate Function bm(n As Integer) As String If Sgn(n) >= 0 Then bm = "0" & d2b(n) Else n = n + 128 bm = End IfEnd F

17、unctionPrivate Function d2b(n As Integer) As String Dim p As Integer Do p = n Mod 2 d2b = CStr(p) & d2b n = n 2 Loop Until d2b = Right("000000" & d2b, 7)End Function9.本程序的功能是，按從大到小的次序給一組正整數(shù)標記序次。程序的算法是：先找出原數(shù)組中所有的最大數(shù)，假如有n個最大數(shù)，它們序次均標記為1，已處理的數(shù)據(jù)值改為-99；再找出所有的次大數(shù)，它們的序次標記為n+1直到所有的數(shù)據(jù)處理完畢。請完

18、善本程序。（說明：數(shù)組sn用于存放數(shù)組a中相應(yīng)的各個元素的序次，數(shù)組b用來保留原始數(shù)據(jù)）Option ExplicitOption Base 1Private Sub Cmd1_Click() Dim a(10) As Integer, sn(10) As Integer, b(10) As Integer, i As Integer For i = 1 To 10 a(i) = Int(Rnd * 61) + 40 b(i) = Text1 = Text1 & Str(a(i) Next i Call order(a, sn) For i = 1 To 10 List1.AddItem b(i) & "-" & sn(i) Next i End Sub Private Sub order(a() As Int