江苏省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*B0 Xor B0 A0 OrB0 A0 And B0 And A= 1 St = Left(S, 1) If St 9

4、 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 ExplicitPrivate Sub Command1_Click() Dim s As String, k As Integer, ch

5、() 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) = A Then p = p & Mid(s, i, 1) ElseIf p 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

6、_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 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

7、项的绝对值小于10 时终止计算Option ExplicitPrivate Sub Command1_Click()Dim n As Long, s As Single, t As Single, pi As Single Const eps = 0.00001 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；且任意交换数字位置所得到的数，均能被

8、6整除。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, st As String Dim a(6) As 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 I

9、f Next i Text1 = stEnd SubPrivate Function fj(a() As Integer, s As String) As Boolean Dim n As Integer, 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

10、 = TrueEnd Function8. 下面程序是功能是求两个特大整数之和。由于VB中能够表示是整数大小有一定限制，所以必须用新的方法求特大整数之和，本程序将特大整数使用字符类型进行处理，其中函数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 A

11、s Integer s1 = Text1: s2 = Text2 n = (22) If Sgn(n) 0 Then s2 = (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 A

12、dd(x As Integer, 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 L

13、ong, i2 As Long, flag As Boolean Dim a(0 To 9) As Integer, b(0 To 9) As Integer For i = 100000 To 160000 Call validate(i, a, flag) If flag Then i2 = i * 6 Call validate(i2, b, flag) If flag And compare(a, b) Then List1.AddItem i & & i2 End If End If Next iEnd Sub 验证一个数是由不同数字组成Private Sub validate(n As Long, a() As Integer, f As Boolean) Dim p As Integer, i As Integer Erase a f = False For i = 1 To Len(CStr(n) p = (27) If a(p) = 1 Then Exit Sub Else (28) End If Next i