2004年9月计算机等级考试二级VB笔试试卷及答案

　　
　　(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