在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即‘号）但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在名称为Form1的窗体上有一个文本框，名称为Text1、MultiLine属性为True、ScrollBars属性为2；两个命令按钮，名称分别为Command1和Command2、标题分别为"读取"和"排序保存"，如图52-5所示。程序运行后，如果单击"读取"按钮，则读入in.txt文件中的50个整数，放入一个数组中（数组下界为1）；如果单击"排序保存"按钮，则对这50个整数按从小到大的顺序进行排序，把排序后的全部数据在文本框 Text1中显示出来，然后存入考生文件夹的out.txt文件中。（考生文件夹下的标准模块mode5.bas中的writedata过程可以把指定个数的数组元素存入out.txt文件。）

图52-5

注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，排序结果存入out.txt文件中，否则没有成绩。

在窗体上有3个菜单，名称分别为Read、Arg和Save，标题分别为"读入数据"、"计算显示"和"保存"，一个文本框，名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2 。

程序运行界面如图4-7所示。如果执行"读入数据"命令，则读入sjin.txt文件中的50个整数，放入一个数组中，数组的下界为1；如果执行"计算显示"命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的平均数，并把所求得的和在文本框中显示出来；如果执行"保存"命令，则把所求得的平均值存入考生文件夹下的sjout.txt文件中。

图4-7

在考生文件夹下有一个工程文件sj5.vbp。请将程序中有问号的地方用相应的代码补完整，并将代码前的所有注释符（即‘号）去掉。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5.vbp，窗体文件名仍为sj5.frm。

在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即‘号）但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在名称为Form1的窗体上有一个文本框，名称为Text1、MultiLine属性为True、ScrollBars属性为2；两个命令按钮，名称分别为Command1和Command2、标题分别为"读取"和"排序保存"，如图52-5所示。程序运行后，如果单击"读取"按钮，则读入in.txt文件中的50个整数，放入一个数组中（数组下界为1）；如果单击"排序保存"按钮，则对这50个整数按从小到大的顺序进行排序，把排序后的全部数据在文本框 Text1中显示出来，然后存入考生文件夹的out.txt文件中。（考生文件夹下的标准模块mode5.bas中的writedata过程可以把指定个数的数组元素存入out.txt文件。）

图52-5

注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，排序结果存入out.txt文件中，否则没有成绩。

（1）在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即‘号），但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗体上有一个文本框，名称为Text1，一个列表框，名称为List1，一个命令按钮，名称为 Command1、标题为"复制"。要求程序运行后，在列表框中自动建立5个列表项，分别为"Temp1"、"Temp2"、"Temp3"、"Temp4"，"Temp5"如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中，如图18-3所示。

图18-3

（2）在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4.frm ，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即‘号）但不能修改其他部分。存盘时不得改变文件名和 文件夹。

在窗体上有4个复选框，名称分别为Check1、Check2、Check3和Check4，标题分别为"足球"、"篮球"、"羽毛球"和"排球"，一个标签，名称为Label1，还有一个命令按钮，名称为Command1，标题为"选择结果"。要求程序运行后，如果选中某个复选框，当单击"选择结果"命令按钮时，则显示相应的信息。例如，如果选中"足球"和"羽毛球"复选框，单击"选择结果"命令按钮后，在标签上显示"我喜欢的运动是足球羽毛球"，如图18-4所示。

图18-4

（1）在考生目录下有一个工程文件sj3.vbp，窗体中有一个命令按钮，标题为"向左移动"，名称为Command1；还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：

设置计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔0.3秒调用Timer1事件过程一次。

去掉程序中的注释符"‘"，把程序中的"?"改为正确的内容，使得在运行时单击"向左移动"按钮，则按钮每隔0.3秒向左移动一次，当移出窗体时返回窗体的右端，如图47-5所示。

图47-5

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

（2）在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行时，满足下列要求。不得使用任何变量。存盘时不得改变文件夹和文件名。

本题描述如下：

窗体上有两个复选框，名称分别为Check1和Check2，标题分别为"英语"和"德语"；两个单选按钮，名称分别为Option1和Option2，标题分别为"我会"和"我不会"；一个名称为Label1的标签；一个名称为Command1、标题为"输出"的命令按钮。要求程序运行后，对复选框和单选按钮进行选择，然后单击按钮，可根据下表的规定在标签中显示相应的信息：

选择项 标签中显示的信息

Check1、Check2、Option1 我既会英语也会德语

Check1、Option1 我只会英语

Check2、Option1 我只会德语

Check1、Check2、Option2 我既不会英语也不会德语

Check1、Option2 我不会英语

Check2、Option2 我不会德语

程序运行时的界面如图47-6所示。

图47-6

（1）在名称为Form1的窗体上建立一个水平滚动条，并在属窗口中将其名称设置为HS1Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图2－1所示。

注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。

图2-1

（2）在Form1的窗体上绘制一个命令按钮，名为md1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；

此时如果单击命令按钮，则在窗体上显示Visual Basic。程序运行情况如图2-2，2-3所示。

图2-2 图2-3

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

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

（1）在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为"人数"、"年龄"和"收入"，3个文本框，名称分别为Text1、Text2和Text3，Text属性均为空，一个命令按钮，名称为Command1，标题为"输入"。然后编写命令按钮的Click事件过程， 要求程序运行后，如果单击命令按钮，则先后显示3个输入对话框，在3个输入对话框中分别输入人数、年龄和收入，并分别在3个文本框中显示出来。程序运行界面如图4-1所示。要求程序中不得使用任何变量。

图4-1

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

（2）在名称为Form1的窗体上画一个图片框，名称为Pic1，一个水平滚动条，名称为HScroll1，通过"属性"窗口在图片框中装入一个图形（文件名为pic1.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意，运行时的窗体如图4-2所示。编写适当的事件过程，要求程序运行后，图片的宽度随滚动条变化。即设置水平滚动条的如下属性：Min为200，Max为2000，LargeChange为200，然后就可以通过移动滚动条上的滚动块来放大或缩小图片框的宽度。拖动滚动条后的窗体如图4-3所示。要求程序中不得使用任何变量。

图4-2 图4-3

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