在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图4所示。程序刚运行时，会生成一个有10个元素

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

(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗口中有一个RichText文本框控件和一个文本框控件，名称分别为rtx1和Text1，两个命令按钮，名称分别为Command1和Command2，标题分别为“加入SJT01.TXT”、“统计字符个数”。要求程序运行后，单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计 rtx1中有多少个字符，将结果显示在Text1中。程序运行结果如图13-4所示。

(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。设计界面如图13-5所示。

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

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

本题描述如下：

在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，如图5-3所示，要求在文本框中输入的内容都必须以“”显示(请考生通过属性窗口设置)。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图5-4所示。

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

本题描述如下：

在窗体上有3个名称分别为Ch1、Ch2和Ch3的复选框，标题依次为“程序设计”、“数据库原理”和“计算机网络”，还有一个名称为C1，标题为“选课”的命令按钮，如图5-5所示。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“程序设计”和“数据库原理”复选框，单击命令按钮后，将在窗体上显示“我选的课程是程序设计数据库原理”。

注意：下面出现的“考生文件夹”均为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文件。

在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1，初始内容为空的文本框，如图所示。程序功能：单击“计算”命令按钮，则计算“l!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

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

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

1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整形变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。

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

2．在名称为Form1的窗体上画一个驱动器列表框，其名称为Driver1，再画一个目录列表框，其名称为Dir1；然后添加一个文件列表框，名称为File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为exe的文件；如果双击文件列表框中的文件，则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知；可以用Shell函数来运行可执行文件。

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

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

(1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框？名称分别为P1和P2，其中的图片分别是一个航天器和一朵云，还有一个计时器控件，名称为Timer1，一个命令按钮，名称为C1，标题为“发射”。窗体文件中给出了两个事件过程，但并不完整，要求：设置计时器控件的属性，使其在初始状态下不计时；设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。

去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动。程序运行界面如图20-3所示。

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

(2) 在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经有两个文本框，名称分别为Text1和Text2；一个命令按钮，名称为C1，标题为“确定”。请画两个单选按钮，名称分别为Op1和Op2，标题分别为“男生”和“女生”；再画两个复选框，名称分别为Ch1和Ch2，标题分别为“体育”和“音乐”。请编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的要求：

根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”；根据选中的复选框，在Text2中显示“我的爱好是体育”或“我的爱好是音乐”或“我的爱好是体育音乐”。程序运行界面如图20-4所示。

注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。

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

2．在考生文件夹中有工程文件sjt4.vbp，其中包含窗体Form1，该程序是不完整的。请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：

在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题

为“计算”的命令按钮(如图2—2所示)。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

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

(1) 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生20个0～ 1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮(名称为Command1，标题为“输出大于500的整数之和”)，即可求出这些整数的和，并在窗体上显示出来，如图25-4所示。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

(2) 在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。

要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

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

(1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为“销售业态”和“帮助”，名称分别为vbMenu和vbHelp，其中“销售业态”菜单包括“大型百货”、“连锁超市”和“前店

后厂”三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。要求程序运行后，在“销售业态”的下拉菜单中选择“大型百货”，则在文本框内显示“百货大楼”；如果选择“连锁超市”，则在文本框内显示“利客隆”：如果选择“前店后厂”则在文本框内显示“稻香村”。程序运行界面如图8-3所示。

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

(2)在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。

本题描述如下：

窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为“羽毛球”和“乒乓球”；一个名称为C1，标题为“确定”的命令按钮。要求程序运行后，如果只选中Ch1，单击“确定”命令按钮，则在文本框中显示 “报名参加羽毛球比赛”；如果只选中Ch2，然后单击“确定”命令按钮，则在文本框中显示 “报名参加乒乓球比赛”；如果同时选中Ch1和Ch2，单击“确定”命令按钮，则在文本框中显示 “报名参加羽毛球和乓乓球比赛”；如果Ch1和Ch2都不选，然后单击“确定”命令按钮，则在文本框中什么都不显示。程序运行界面如图8-4所示。