在名为Form1的窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“食列表”和“

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

（1）在名称为Form1的窗体上建立一个垂直滚动条，请在属性窗口中把它的名称设置为VS1，Max属性设置为50，Min属性设置为0，Value属性设置为50。程序运行后，滚动块位于滚动条最下端，如图52-1所示，如果单击滚动条之外的窗体部分，则滚动块跳到最上端。

图52-1

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

（2）在名称为Form1的窗体中建立一个标签，名称为Lable1，在标签上显示"编程语言"并设置为四号宋体；再建立3个复选框，名称分别为Check1、Check2和Check3，标题分别为"C++"、"Basic"和"JAVA"，字体大小均为四号宋体，加粗，其中"JAVA"被禁用，如图52-2所示。

图52-2

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

注意：

文件必须存放在考生文件夹中，工程文件名为execise27.vbp，窗体文件名为 execiSe27.frm。

在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True, SerollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和Save)，如下图所示。

要求程序运行后，如果单击Read按钮则读入in4.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100个整数中的所有偶数，在文本框 Text1中显示出来，并把所有偶数之和存入考生文件夹中的文件out4.txt中。

在考生文件夹下有标准模块model.bas，其中putdata过程可以把一个整型数存入 out4.txt文件，考生可以把该模块文件添加到自己的工程中。

注意：

程序中对文件的操作统一使用相对路径：文件必须存放在考生文件夹中，窗体文件名为exeeise4.frm，工程文件名为execise4.vbp，结果存入out4.txt文件，否则没有成绩；

请根据以下各小题的要求设计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。

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。

(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为 vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图3-3所示。

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

(2)在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算”的命令按钮，如图3-4所示。要求程序运行后，单击命令按钮，将计算100-200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回 False，考生可以把该模块文件添加到自己的工程中。)

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。

在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True， ScrollBars属性为2)和3个命令按钮(名称分别为Cmd1、Cmd2和Cmd3，标题分别为“读数”、“计算”和“保存” (如下图所示)。

要求程序运行后，如果单击“读数”按钮，则读入in53.txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算小于或等于500的所有数之和，并把求和结果在文本框Text1中显示出来，同时把该结果存入考生文件夹中的文件out53.txt中(在考生文件夹下有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程)。

注意：

文件必须存放在考生文件夹中，窗体文件名为execise53.frm，工程文件名为 execise53.vbp，计算结果存入out53.txt文件，否则没有成绩。

在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性：

Min 500

Max 2000

LargeChange 50

SmallChange 20

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。

注意：

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

在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称

为HS1)。在属性窗口中对两个滚动条设置如下属性：

Min 2000

Max 8000

LargeChange 500

SmallChange 50

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如下图所示。

注意：

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