07年考试追加复习题.docVIP

1.设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程： Private Sub Command1_Click() Dim a As Variant a= Array(1,3,5,9) End Sub ( 注明：Array是表示逆排序。按这个顺序) 此过程的功能是把数组b中的4个数逆序存放(即排列为9,5,3,1) 为实现此功能，省略号处的程序段应该是（ A C ）。 A.For i = 0 To UBound(a) tmp = a(i) a(i) = a(4 - i - 1) a(4 - i - 1) = tmp Next B. For i = 1 To UBound(a) tmp = a(i) a(i) = a(4 - i - 1) a(4 - i - 1) = tmp Next C. For i = 0 To UBound(a) tmp = a(i) a(i) = a(4 - i - 1) a(4 - i - 1) = tmp Next D. For i = 1 To 4 tmp = a(i) a(i) = a(4 - i - 1) a(4 - i - 1) = tmp Next （A ，C两个答案一样，要记住正确的即可） 2. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() a = 100 b$ = Str$(a) c = Len(b$) + a Print c ($是隐士生明) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（ B ） A.1004 B.104 C.14 D.0 3.在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序： Private Sub Command1_Click() a = 123 b = String(3, a) c = 456 Print b + c End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是（ A ）。 A.567 B.579 C.111456 D.123456 4. 在窗体中添加一个命令按钮,名称为Command1,两个标签分别为Label1、Label2,然后编写如下程序： Private Sub Command1_Click() a = NAME b = class c = LCase(a)( LCase(a)转变为小写) d = UCase(String(1, b)) Label1.Caption = Left(a, 1) Right(c, 3) Label2.Caption = d Mid(b, 2, 1) End Sub 程序运行后,在两个标签中的结果分别是（ Name和Cl）。 A.name和Cl B. name和class C. NAME和Cl D.Name和 CLASS 5.在窗体中添加一个命令按钮Command1,并编写如下程序： Private Sub Command1_Click() n = Array(1, 2, 3, 4) For i = 0 To 3 Select Case i Case 1 x = n(i) ^ 2 Case 2 x = n(i) ^ 2 + x Case Else End Select Next Print x End Sub 程序运行后,在InputBox中输入4,单击命令按钮,程序的运行结果是（B ） A.10 B.13 C.5 D.34 6.在窗体中添加一个命令按钮Command1,并编写如下程序： Private Sub Command1_Click() i = InputBox(i) a = 1 i = i + a Select Case i Case Is 5 s = i - 1 Case 6 s = i Case Else s = i + 1 End Select Print s End Sub 程序运行后,在InputBox中输入2,单击命令按钮,程序的运行结果是（ C） A.13 B.3 C. 22 D.2 7.在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序： Private Sub Command1_Click() Dim a(3), b(1 To 4) For j = 0 To 3