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

    

　　 以下叙述中错误的是

　　 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