在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（) c=1

在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______。

A．输出n以内的奇数

B．输出n以内的偶数

C．输出n以内的素数

D．输出n以内能被j整除的数

（25 ）在窗体上面画一个命令按钮，名称为 Command1 ，然后编写如下代码：

Option Base 0

Private Sub Command1_Click()

Dim A1(4) As Integer,A2(4) As Integer

For k=0 To 2

A1(k+1)=InputBox(“ 请输入一个整数 ” )

A2(3-k)=A1(k+1)

Next k

Print A2(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中依次输入 2 、 4 、 6 ，则输出结果为

A ） 0

B ） 1

C ） 2

D ） 3

后编写如下事件过程：

运行上面的程序，单击命令按钮．其输出结果是

A．8 9

B．8 18

C．64 9

D．64 18

文本框的右边画一个垂直滚动条，名称为VScrolll。滚动条的高度为 3000，宽度为375。在图片框的下方画一个命令按钮，名称为Command1，标题为“清除”。文本框的宽度为2000，高度为600，如图3所示。编写一个事件过程，使程序运行后，单击“清除”按钮，文本框中的文字被清除。程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体文件名为ylcl.frm。

下事件过程：

Private Sub Command1_ Click()

CommonDialogFlags = cd10FNHideReadOnly

CommonDialogFilter= "All Files (*.*) ｜*.* ｜Text Files" &

"(*.txt ｜*.txt｜Batch Files (*.bat)｜*.bat)"

CommonDialogFilterIndex = 1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______；如果在对话框中选择D盘temp 目录下的te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是______。

（1）在名称为Form1的窗体中画一个名称为Label1的标签，其标题为"0"，BorderStyle属性为1：再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图8-1所示。

图8-1

注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。

（2）在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为"当前时间/日期切换"；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图8-2所示。

图8-2

注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2.vbp与sj2.frm。

标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500，如下图所示。编写如下程序： Private Sub Form_Load() Timer1.Ena bled=False End Sub Private Sub Commandl_ChCk() Timer1.Ena

A．标签的移动方向为自右向左

B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动

D．标签按指定的时间间隔移动

标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

编写如下程序： Private Sub Form_Load() Timer1．Enabled=false End Sub Private Sub Command1 Click() Timer1．Enabled=True End Sub Private Sub Timer1_Timer() If Label1．Left＜Width Then Label1．Left=label1．Left+20 Else Label1．Left=0 End If End Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是

A．标签的移动方向为自右向左

B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D．标签按指定的时间间隔移动

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图67-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。

（2）在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图67-2所示。要求：不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

编写如下程序： Private Sub Form Load() Timerl.Enabled = False End Sub Private Sub Command1 Click() Timer1.Enabled = True End Sub Private Sub Command2 Click() Timerl.Enabled = False End Sub Private Sub Timerl Timer() If Labell．Left＜Width Then Labell.Left = Labell.Left+20 Else Labell.Left = 0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是

A．标签的移动方向为自右向左

B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动

D．标签按指定的时间间隔移动