31.在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub File1_DblClick() x = Shell(File1.FileName, 1) End Sub 以下关于该程序的叙述中，错误的是 A、x 没有实际作用，因此可以将该语句写为：Call Shell（file1.FileName，1） B、双击文件列表框中的文件，将触发该事件过程 C、要执行的文件名字通过File.FileName 指定 D、File中显示的是当前驱动器、当前目录下的文件，

A       B       C       D

32.

A       B       C       D

33.执行以下程序段 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

A       B       C       D

34.在窗体上画一个名称为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

A       B       C       D

35.假定一个工程有一个窗体文件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 Sub Model2代码如下： Sub Main() S1 End Sub 其中 sub Main 被设置为启动过程。 程序运行后，各模块的执行顺序是 A、form1→Model1→Model2 B、Model1→Model2→Form1 C、Model2→Model1→Form1 D、Model2→Form1→Model1

A       B       C       D