新建一个工程。在窗体中画三个标签，名称分别为Label1、Label2和Label3，标题分别为“加数1”、“加数2”

画两个名称分别为Text1和Text2，初始内容都为空的文本框，再画两个名称分别为Label1、Label2，标题分别是“最大数”和“最大数位置”的标签。

程序功能：单击“运行”按钮，则产生50个不重复的介于0～100之问（含0和100）的随机数，且以每行10个数的形式显示在窗体上；最后将这些随机数中的最大数和最大数所处的位置显示在Text1和Text2中。如图所示为某一次的运行效果。请将“运行”命令按钮的Click事件过程中的注释符去掉，把？改为正确内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。

D）窗体（Form）可以作为过程的参数

（25）在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后

编写如下程序代码：

Private X As Integer

Private Sub Command1_Click()

X=5: Y=3

Call proc(X, Y)

Label1.Caption=X

Label2.Caption=Y

End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

X=a*a

Y=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。

A）25 和 3

B）5 和 3

C）25 和 6

D）5 和 6

令按钮，名称为C1，标题为“确定”；请画两个单选按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”；再画两个复选框，名称分别为Ch1、Ch2，标题分别为“体育”、“音乐”。请编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的操作： ①根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”。 ②根据选中的复选框，在Text2中显示“我的爱好是体育”、“我的爱好是音乐”或“我的爱好是体育音乐”，如图6所示。 注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单 选按钮和至少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。

(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有一个名称为List1的列表框，名称为Timerl的计时器，名称为Labell的标签，如图8所示。请通过属性窗口向列表框添加四个项目，分别是“第一项”、“第二项”、“第三项”、“第四项”。程序运行后，将计时器的时间间隔设置为1 秒钟，每一秒钟从列表框中取出一个项目显示在Label1的标签中，首先显示“第一项”，然后，依次显示“第二项”、“第三项”、“第四项”，如此循环。 在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加List1中的项目，去掉程序中的注释符，把程序中的？改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。

序代码：

Private X As Integer

Private Sub Commandl_Click()

X=5：Y=3

Call proc(X，Y)

Labell．Caption=X

Label2．Caption=Y

End Sub

Private Sub proc(a As Integer，ByVal b As Integer)

X=a*a

Y=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是

A．25和3

B．5和3

C．25和6

D．5和6

程序代码： Private X As Integer Private Sub Command1_Click() X = 5： Y = 3 Call proc(X， Y) Labell.Caption：X Label2.Caption：Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X = a * a Y = b + b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是

A．5和3

B．25和3

C．25和6

D．5和6

在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图8所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Text1 (可多行显示)；单击“统计”按钮，找出并统计英文字母i、i、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit5．vbp，窗体文件名为sjt5．frm。

程序代码： Private X As Integer Private Sub Command1_C1ick() X=5：Y=3 Call proc(X，Y) LabeCaption=X LabeCaption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。

A．5和3

B．25和3

C．25和6

D．5和6

画两个标签，其名称分别是Label1和Label2，标题分别为“单词的平均长度为”和“最长单词的长度为”：再画两个名称分别为Text1和Text2、初始内容为空的文本框，如图10 所示。程序功能如下： ①如果单击“读数据”命令按钮，则将考生文件夹下in5．dat文件的内容读到变量S中(此过程已给出)； ②如果单击“统计”按钮，则自动统计变量S(s中仅含有字母和空格，而空格是用来分隔不同单词的)中每个单词的长度，并将所有单词的平均长度(四舍五入取整)显示在Text1文本框内， 将最长单词的长度显示在Text2文本框内。 “读数据”命令按钮的Click事件过程已经给出，请为“统计”命令按钮编写适当的事件过程，实现上述功能。 注意：考生不得修改牙体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

如下代码： Private x AS Integer Private Sub Command1_Click() Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30