江苏省2010年春二级计算机考试VB笔试试卷

1、.2010春计算机等级考试（二级）Visual Basic程序设计 第二部分一、 选择题21.关于窗体，以下叙述中正确的是_。A 仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点B 一个VB工程只能从某个指定的窗体开始启动C 只有窗体可以作为控件的容器D Unload Me和End语句的效果总是等同的22 若a为长整型变量，则执行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 数学表达式对应的Visual Basic表达式是_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 表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是_。A -8 B -7 C -6 D -525以下说法中，错误的是_。A使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小BReDim语句只能出现在过程中C使用ReDim语句重新定义的动态数组，只能比原数组大D使用ReDim语句可以对动态数组的所有元素进行初始化26

3、 下列关于菜单的说法中，错误的是_。A 可以为菜单项选定快捷键B 若在“标题”文本框中键入连字符（），则可在菜单的两个菜单命令项之间加一条分隔线C 除了Click事件之外，菜单项还可以影响其他事件D 菜单编辑器的“名称”文本框用于输入菜单项的名称27 以下有关过程中形式参数的描述中，错误的是_。A 函数过程可以没有形式参数B 事件过程一定没有形式参数C 形参数组只能按地址与实参数组结合D 窗体与控件也可以作为过程的参数28 以下表达式中，可以表示“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 设变量A为长整型，则下面不能正常执行的语句是_。A A=32768*2 B A=2*1.5*16384C A=16384*2 D A=190230 以下有关滚动条控件(ScrollBar)的说法中错误的是_。A 只能在设计时设置Max与Min属性值B Value属性返回滚动条内滑块当前所处位置的值C 拖动滚动条内滑块时，将触发滚动条的Scroll事件D 单击滚动箭头时，将触发滚动条的Change事件二、 填空题1 执行下面程序，单击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 执行下面的程序，单击Command1后，在InputBox函数对话框中输入4（或直接单击“确定”按钮），窗体第一行显示的内容是_(4)_，第二行显示的内容是_(5)_，第四行显示的内容是_(6)_。Option ExplicitPrivate Sub Command1_Click()

7、Dim Days As Integer Days = InputBox("输入正整数", , 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. 执行下面程序，单击Command1后，窗体第一行显示的内容是_(7)_，第三行显示的内容是_(8)_，最后一行显示的内容是_(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 执行下面程序，单击Command1后，窗体第一行显示的内容是_(

9、10)_，第三行显示的内容是_(11)_，最后一行显示的内容是_(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 执行下面程序，单击Command1后，窗体第一行显示的内容是_(13)_，第三行显示的内容是_(14)_，最后一行显示的内容是_(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. 下面程序的功能是求的近似值，当第n项的绝对值小于10 时终止计算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. 下面程序的功能是：找出满足以下条件的三位整数,不含数字0；且任意交换数字位置所得到的数，均能被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. 下面程序是功能是求两个特大整数之和。由于VB中能够表示是整数大小有一定限制，所以必须用新的方法

17、求特大整数之和，本程序将特大整数使用字符类型进行处理，其中函数Add用于求两个1位整数之和，参数c用于保存进位。注意：求和前需先将两个整数按位对齐。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 '函数String(n,"0")返回包含n个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 '参数c记录进位 Add = CStr(x + y + c) Mod 10) (26) End Function9. 下面程序的功能是：找出各位数字互不相同，且其6倍数仍由组成该数的数字构成的六位整数。例如：126873的6倍数是761238，就是符合条件的数。提示：程序中用a、b数组来标示数组元素下标值对应的数字是否出现在六位整数中。例如2出现在某六位整数中，则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 =