2004年9月二级VB技术笔试试卷及答案

   
 
　　 程序运行后单击“开始”按钮，标签在窗体中移动。

　　 对于这个程序，以下叙述中错误的是

　　 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