在窗体上设置一个命令按钮cmd1和一个标签lab1，两个控件的Visible属性值均为False，按钮的标题是“显示”。运行程序后，单击窗体时显示出命令按钮，再单击按钮时则显示标签，并在标签上显示“您已下达显示命令”。保存工程和窗体，窗体名为：昵称-2-1.frm,工程名为：昵称-2-1.vbp。将工程文件和窗体文件压缩成：昵称-2-1.rar，以附件形式提交。

（1）在考生文件夹中有一个工程文件sj3.vbp，相应的窗体文件为sj3.frm。在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为"输入"；还有一个文本框，其名称为Text1，初始内容为空白。程序运行后，单击"输入"命令按钮，显示"输入"对话框。在对话框中输入某个月份的数值（1～12），然后单击"确定"按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出"8月份是秋季"，如图633所示。

（图见书本）

图633

该程序不完整，请补充完整。

要求：去掉程序中的注释符"‘"，把程序中的问号"？"改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。

（2）在考生文件夹中有一个工程文件sj4.vbp，相应的窗体文件为sj4.frm。在名为Form1的窗体上有一个名称为Cmd1、标题为"计算"的命令按钮；两个水平滚动条，名称分别为HS1和HS2，其Max属性均为100，Min属性均为1；4个标签，名称分别为Lab1、Lab2、Lab3和Lab4，标题分别为"运算数1"、"运算数2"、"运算结果"和空白；此外，还有一个包含4个单选按钮的控件数组，名为Opt1，标题分别为"+"、"-"、"*"和"/"。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在Lab4中，程序运行情况如图634所示。

（图见书本）

图634

本程序不完整，请补充完整，并能正确运行。

要求：去掉程序中的注释符"‘"，把程序中的问号"？"改为正确的内容，使其能正确运行，但不得修改程序的其他部分，也不得修改控件的属性。最后用原名保存工程文件和窗体文件。

在考生文件夹中有一个工程文件execise26.vbp，相应的窗体文件为execise26.frm。在名为Form1的窗体上有一个名称为Cmd1、标题为“计算”的命令按钮：两个水平滚动条，名称分别为HSI和HS2，其Max属性均为100，Min属性均为1:4个标签，名称分别为 Lab1、Lab2、Lab3和Lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外，还有一个包含4个单选按钮的控件数组，名为Opt1，标题分别为“+”、“-”、“：”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单市命令按钮，相应的计算结果将显示在Lab4中，程序运行情况如下图所示。

本程序不完整，请补充完整，并能正确运行。

要求：

去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分，也不得修改控件的属性。最后用原名保存工程文件和窗体文件。

在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程：

Private Sub Commandl_Chick.

a=0

For i=1 To 10

a=a+1

b=0

Forj=1 To 10

a=a+1

b=b+2

Nextj

Next i

Label1. Caption=Str（a）

Labe12.Caption=Str（b）

End Sub

程序运行后，单击命令按钮，在标签 Label1和Label2中显示的内容分别为（ ）。 A．10 和 20

B．20 和 110

C．200 和 110

D．110 和 20

假设窗体上有一个命令按钮Cmd1，一个文本框Text1。要求单击命令按钮后，在文本框中显示的内容为"ABC"，则该单击事件中相应的过程代码是______。

A．Text1.Name="ABC"

B．Text1.Text="ABC"

C．Text1.Caption=ABC

D．Text1.Text=ABC

在名为Form1的窗体上绘制一个命令按钮(标题为Cmd1)和一个垂直滚动条，其名称分别为Cmd1和VS1。编写适当的事件过程，使程序运行后，若单击命令按钮，则按如下要求设置垂直滚动条的属性：

Max=窗体高度

Min=0

LargeChange=50

SmallChange=10

如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如下图所示。

注意：

不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为execise74.vbp，窗体文件名为execise74.frm。

（ 7 ）在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Labl1 、 Timer1 和Command1 ， 如图 1 所示 。 程序运行后 ， 如果单击命令按钮 ， 则标签开始闪烁 ， 每秒钟 “ 欢迎 ”二字显示、消失各一次，如图 2 所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load （）

Label1.Caption= " 欢迎 "

Timer1.Enabled=False

Timer1.Interval= 【 7 】

End Sub

Private Sub Timer1_Timer （）

Label1.Visible= 【 8 】

End Sub

Private Sub command1_Click （）

【 9 】

End Sub

在名为Form1的窗体上建立两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“命令按钮1”和“命令按钮2”。要求程序运行后，若单击“命令按钮2”按钮，则把“命令按钮1”按钮移到“命令按钮2”按钮上，使两个按钮重合。运行结果如下图所示。

注意：

在程序中不得使用任何变量(必须通过属性设置来移动控件)；文件必须存放在考生文件夹中，窗体文件名为execise102.frm，工程文件名为execise102.vbp。

在窗体上画两个标签和—个命令按钮，其名称分别为Label1、Labd2和Command1，然后编写如下程序：Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load() Label1. Caption="ABCDE" Label2．Caplion=10End SubPrivate Sub Command1_ Click() a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

（9） 在一个窗体上有两个命令按钮，cmdMax和cmdMin。单击cmdMax时，窗体上显示"字体由小变大"，字号每次增加2；单击cmdMin时，窗体上显示"字体由大变小"，字号每次减小2。请填空。

Private Sub Form_Load（）

Form1.Caption="字体变化示范"

cmdMax.Caption="字体变大"

cmdMin.Caption="字体变小"

End Sub

Private Sub cmdMax_Click（）

【9】

Form1.Print "字体由小变大"

End Sub

Private Sub cmdMin_Click（）

【10】

Form1.Print "字体由大变小"

End Sub

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Labe11，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub