在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。<br>编写如下程序：<br>Private Sub Form_Load（）<br>Timer1.Enabled=False<br>End Sub<br>Private Sub Command1_Click（）<br>Timer1.Enabled=True<br>End Sub<br>Private Sub Command2_Click（）<br>Timer1.Enabled=False<br>End Sub<br>Private Sub Timer1_Timer（）<br>If Label1.Left<br>Label1.Left = Label1.Left + 20<br>Else<br>Label1.Left=0<br>End If<br>End Sub<br>程序运行后单击“开始”按钮，标签在窗体中移动。<br>对于这个程序，以下叙述中错误的是（）。

A. 标签的移动方向为自右向左
B. 单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C. 当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D. 标签按指定的时间间隔移动

在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是（）。

A. Cd1.Action=2
B. Cd1.Action=1
Cd1.ShowSave=Ture
D. Cd1.ShowSave=0

（7 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列事件过程：<br>Private Sub Command1_Click()<br>Dim arr(1 To 100 ） As Integer<br>For i=1 To 100<br>arr(i)=Int(Rnd*1000)<br>Next i<br>Max=arr (1 )<br>Min=arr (1 )<br>For i=1 To 100<br>If 【 7 】 Then<br>Max=arr(i)<br>End If<br>If 【 8 】 Then<br>Min=arr(i)<br>End If<br>Next i<br>Print"Max=" ; Max , "Min=" ; Min<br>End Sub<br>程序运行后 ， 单击命令按钮 ， 将产生 100 个 1000 以内的随机整数 ， 放入数组 arr 中 ， 然后查找并输出这 100 个数中的最大值 Max 和最小值 Min ，请填空。

（28 ）若在窗体模块的声明部分声明了如下自定义类型和数组<br>Private Type rec<br>Code As Integer<br>Caption As String<br>End Type<br>Dim arr （5 ） As rec<br>则下面的输出语句中正确的是<br>A ） Print arr.Code (2 ) ,arr.Caption (2 )<br>B ） Print arr.Code,arr.Caption<br>C ） Print arr (2 ) .Code,arr (2 ) .Caption<br>D ） Print Code (2 ) ,Caption (2 )

在结构化设计方法中，数据流图表达了问题中的数据流与加工之间的关系，并且，每一个【6】实际上对应一个处理模块。

在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do Until x＞=50 X=(x+4)﹡(x＋3) N=n+1 Loop Text1.Text＝Str(n) Text2.Text＝str(x) End Sub运行程序后，单击命令按钮，在两个文本框中显示的值分别为A. 1和0 B. 2和240 C. 3和50 D. 4和168

（28）阅读下列程序： Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K)； Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮，执行程序，输出结果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6

（3）二分法查找仅限这样的表；表中的数据元素必须有序，其存储结构必须是。

下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)

3在文本框Textl中输入一个键盘键，将会发生4个事件，这4个事件的顺序是()。

A. Text1_KeyDown、Text1_KeyPress、Text1_Change、Text1_KeyUp
B. Text1_KeyDown、Text1_KeyUp、Text1_KeyPress、Text1_Change
C. Text1_KeyDown、Texd1_KeyPress、Texd1_Change、Textl_KeyPress
D. Text1_KeyDown、Text1_Change、Text1_KeyPress、Test1_KeyUp