(21)设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
　　 Private Sub Command1_Click()
　　 Dim a As Integer
　　 a=10
　　 Call g(Form2,a)
　　 End Sub
　　 Private Sub g(f As Form,x As Integer)
　　 y=IIf(x>10,100,-100)
　　 f,Show
　　 f.Caption=y
　　 End Sub
　　 运行以上程序，正确的结果是
　　A．Form1的Caption属性值为100
　　B．Form2的Caption属性值为-100
　　C．Form1的Caption属性值为-100
　　D．Form2的Caption属性值为100
(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
　　 Private Sub Command1_Click()
　　 Dim x As Integer
　　 Static y As Integer
　　 x=10
　　 y=5
　　 Call f1(x,y)
　　 Print x,y
　　 End Sub
　　 Private Sub f1(ByRef x1 As Integer, y1 As Integer)
　　 x1=x1+2
　　 y1=y1+2
　　 End Sub
　　 程序运行后，单击命令按钮，在窗体上显示的内容是
　　A．10 5
　　B．12 5
　　C．10 7
　　D．12 7
(23)设有如下程序
　　 Option Base 1
　　 Private Sub Command1_Click()
　　 Dim a(10)As Integer
　　 Dim n As Integer
　　 n=InputBox("输入数据")
　　 If n<10 Then
　　 Call GetArray(a,n)
　　 End If
　　 End Sub
　　 Private Sub GetArray(b()As Integer,n As Integer)
　　 Dim c(10)As Integer
　　 j=0
　　 For i=1 To n
　　 b(i)=CInt(Rnd()*100)
　　 If b(i)/2=b(i)\2 Then
　　 j=j+1
　　 c(j)=b(i)
　　 End If
　　 Next
　　 Print j
　　 End Sub
　　 以下叙述中错误的是
　　A．数组b中的偶数被保存在数组c中
　　B．程序运行结束后,在窗体上显示的是c数组中元素的个数
　　C．GetArray过程的参数n是按值传送的
　　D．如果输入的数据大于10，则窗体上不显示任何显示
(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
　　 Option Base 1
　　 Private Sub Command1_Click()
　　 Dim a
　　 a= Array(1,2,3,4,5)
　　 For i=1 To UBound(a)
　　 a(i)= a(i)+i-1
　　 Next
　　 Print a(3)
　　 End Sub
　　 程序运行后，单击命令按钮，则在窗体上显示的内容是
　　A．4
　　B．5
　　C．6
　　D．7
(25)阅读程序
　　 Option Base 1
　　 Private Sub Form_Click()
　　 Dim arr,Sum
　　 Sum = 0
　　 arr = Array(1,3,5,7,9,11,13,15,17,19)
　　 For i=1 To 10
　　 If arr(i)/3 = arr(i)\3 Then
　　 Sum = Sum + arr(i)
　　 End If
　　 Next i
　　 Print Sum
　　 End Sub
　　 程序运行后，单击窗体，输出结果为
　　A．13
　　B．14
　　C．27
　　D．15
(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序：
　　 Private Sub File1_DblClick()
　　 x=Shell(File1.FileName,1)
　　 End Sub
　　 以下关于该程序的叙述中，错误的是
　　A．x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
　　B．双击文件列表框中的文件，将触发该事件过程
　　C．要执行的文件的名字通过File1.FileName指定
　　D．File1中显示的是当前 驱动 器、当前目录下的文件
(27)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
　　 编写如下程序：
　　 Private Sub Form_Load()
　　 Timer1.Enabled=False
　　 End Sub
　　 Private Sub Command1_Click()
　　 Timer1.Enabled=True
　　 End Sub
　　 Private Sub Command2_Click()
　　 Timer1.Enabled=False
　　 End Sub
　　 Private Sub Timer1_Timer()
　　 If Label1.Left
　　 Label1.Left = Label1.Left + 20
　　 Else
　　 Label1.Left=0
　　 End If
　　 End Sub
　　 程序运行后单击“开始”按钮，标签在窗体中移动。
　　 对于这个程序，以下叙述中错误的是
　　A．标签的移动方向为自右向左
　　B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
　　C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
　　D．标签按指定的时间间隔移动
(28)执行以下程序段
　　 a$="abbacddcba"
　　 For i=6 To 2 Step -2
　　 X=Mid(a,i,i)
　　 Y=Left(a,i)
　　 z=Right(a,i)
　　 z=UCase(X & Y & z)
　　 Next i
　　 Print z
　　 输出结果为
　　A．ABA
　　B．BBABBA
　　C．ABBABA
　　D．AABAAB
(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
　　 Option Base 1
　　 Private Sub Command1_Click()
　　 Dim a As Variant
　　 a=Array(1,2,3,4,5)
　　 Sum=0
　　 For i=1 To 5
　　 Sum = sum+a(i)
　　 Next i
　　 x=Sum/5
　　 For i =1 To 5
　　 If a(i)>x Then Print a(i);
　　 Next i
　　 End Sub
　　 程序运行后，单击命令按钮，在窗体上显示的内容是
　　A．1 2
　　B．1 2 3
　　C．3 4 5
　　D．4 5
(30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
　　 Model1代码如下：
　　 Public x As Integer
　　 Public y As Integer
　　 Sub S1()
　　 x =1
　　 S2
　　 End Sub
　　 Sub S2()
　　 y=10
　　 Form1.Show
　　 End Show
　　 Model2的代码如下：
　　 Sub Main()
　　 S1
　　 End Sub
　　 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是
　　A．Form1→Model1→Model2
　　B．Model1→Model2→Form1
　　C．Model2→Model1→Form1
　　D．Model2→Form1→Model1 转贴于：计算机二级考试_考试大

[1] [2] [3] [4]