2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(4)

2013年3月全国计算机等级考试

二级VB上机题库题干

—1—

第六十一套题干61

一、基本操作题

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

(1)在名称为Form1的窗体上画一个名称为C1、标题为\改变颜色\的命令按钮，窗体标题为\改变窗体背景色\。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图1所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

(2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图2所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在\除数\框架中选择一个单选按钮，然后单击\处理数据\按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3所示。在窗体文件中已经给出了全部控件，但程序不完整。

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

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，单击\开始\按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。

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

图4

三、综合操作题

在考生文件夹下有一个工程文件sjt5.vbp，窗体如图5所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结 —2—

果显示在相应的文本框中。结束程序之前，必须单击\保存\按钮，保存统计结果。

注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按\保存\按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。

图5

第六十二套题干62

一、基本操作题

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

(1)在名称为Form1的窗体上画一个名称为C1、标题为\变宽\的命令按钮，窗体名称为\改变按钮大小\。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。程序运行后的窗体如图1所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

(2)在名称为Form1的窗体上画一个名称Shape1的形状控件，画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中的某一项，则按照所选的值改变形状控件的形状。例如，选择3，则形状控件被设为圆形，如图2所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2

二、简单应用题

(1)在考生文件夹中有一个工程文件sjt3.vbp，窗体控件布局如图3(a)所示。程序运行时，在文本框Text1中输入一个正整数，选择\奇数和\或\偶数和\，则在Label2中显示所选的计算类别。单击\计算\按钮时，将按照选定的\计算类别\计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在Label3中。程序的一次运行结果如图3(b)所示。在窗体文件中已经给出了全部控件，但程序不完整。

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

(a) (b)

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击\开始\按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击\停止\按钮，则图片停止移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。

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

图4

三、综合操作题

在考生文件夹中有一个工程文件sjt5.vbp，窗体如图5所示。运行程序时，从数据文件中读取学生的成绩。要求编写程序，统计总人数、平均分(四舍五入取整)、及格人数和不及格人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击\保存\按钮，保存统计结果。

注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再单击\保存\按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。

图5

第六十三套题干63

一、基本操作题

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

(1)在名称为Form1，标题为\文本框练习\的窗体上画一个名称为Text1的文本框，设置属性，使其宽度为1600、初始内容为空、显示字号为三号，且最多只能输入6个字符。运行后的窗体如图1所示。

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

图1

(2)在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为\计算机等级考试\，显示为宋体12号字，且能根据标题内容自动调整标签的大小。再画两个名称分别为\、\，标题分别为\放大\、\还原\的命令按钮，如图2所示。

要求：编写适当的事件过程，使得单击\放大\按钮，Label1中所显示的标题内容自动增大两个字号；单击\还原\按钮，Label1中所显示的标题内容自动恢复到12号字。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个控件数组，一个名称为Text，含有三个文本框；另一个名称为Cmd，含有三个命令按钮，且\暂停\按钮的初始状态为不可用。如图3所示。请画一个计时器Timer1，设置时间间隔为1秒，初始状态为不可用，并使程序实现如下功能：

①单击\开始\按钮，则计时器Timer1和\暂停\按钮状态变为可用，且\开始\按钮的标题变为\继续\，且为不可用。与此同时，Text的三个文本框开始显示计时的小时、分、秒值；

②单击\暂停\按钮，则Timer1停止工作，\暂停\按钮变为不可用，\继续\按钮变为可用；

③单击\继续\按钮，则Timer1接着开始工作，\继续\ —3—

按钮变为不可用，\暂停\按钮变为可用；

④单击\结束\按钮，则结束程序运行。

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

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp，其窗体中有一个初始内容为空的文本框Text1，两个标题分别是\读数据\和\计算\的命令按钮；请画一个标题为\所有行中最大数的平均值为\的标签Label1，再画一个初始内容为空的文本框Text2，如图4所示。程序功能如下：

①单击\读数据\按钮，则将考生文件夹下in4.dat文件的内容读入20行5列的二维数据a中，同时显示在Text1文本框中；

②单击\计算\按钮，则自动统计二维数组中每行最大数的平均值(截尾取整)，并将最终结果显示在Text2文本框内。

\读数据\按钮的Click事件过程已经给出，请编写\计算\按钮的Click事件过程实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

图4

三、综合操作题

在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有两个标题分别是\读数据\和\统计\的命令按钮，一个名称为Text1的文本框。请画一个名称为Label1、标题为\同时含有字母t、h、e的单词个数为\的标签；再画一个名称为Text2、初始值为空的文本框，如图5所示。程序功能如下：

①单击\读数据\按钮，则将考生文件夹下in5.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中；

②单击\统计\按钮，则以不区分大小写字母的方式，自动统计Text1显示内容中同时含有\、\、\三个字母的单词的个数(如the、there和whatever都属于满足条件的单词)，并将统计结果显示在Text2文本框内。

\读数据\按钮的Click事件过程已经给出，请将\统计\按钮的Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

图5

第六十四套题干64

一、基本操作题

请根据以下各小题的要求设计Visual Basic应用程序

(包括界面和代码)。

(1)在名称为Form1、标题为\控件数组\的窗体上，画一个名称为Cmd1的控件数组，该控件数组由三个命令按钮组成，其标题分别是\插入\、\删除\、\更新\，索引号分别为0、1、2。运行后的窗体如图1所示。

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

图1

(2)在名称为Form1的窗体上画一个名称为Text1、内容为\计算机\的文本框，且显示为小四号字；再画三个命令按钮，名称分别为\、\、\，标题分别是\居左\、\居中\、\居右\。如图2所示。

要求：编写三个命令按钮的Click事件过程，使得单击\居左\按钮时，文本框的内容靠左对齐；单击\居中\按钮时，文本框的内容居中对齐；单击\居右\按钮时，文本框的内容靠右对齐。程序中不得使用变量，每个事件过程中只能写一条语句。

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

图2

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，包含两个名称分别为Form1、Form2的窗体。窗体上已有部分控件，请在Form1窗体上再画一个名称为Text1的文本框，初始内容为空，初始状态为不可用(如图3所示)，输入字符时文本框内将显示字符\。

程序功能如下：

①单击Form1窗体的\输入密码\按钮，则Text1变为可用，且获得焦点。

②输入密码后单击Form1窗体的\密码校验\按钮，则判断Text1中输入内容是否为小写字符\，若是，则隐去Form1窗体，显示Form2窗体；若密码输入错误，则提示重新输入，三次密码输入错误，则退出系统。

③单击Form2窗体的\返回\按钮，则隐藏Form2窗体，显示Form1窗体。Form2窗体的控件和程序已给出。但Form1窗体的程序不完整，请将程序中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

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

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp，窗体如图4所示。程序功能如下：

①单击\读数据\按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中；

②在Text1中选中一部分文本，并单击\统计\按钮，则以不区分大小写字母的方式，自动统计选中文本中单词\出现的次数，并将统计结果显示在Text2文本框内。

请将\统计\按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和 —4—

程序，最后将程序按原文件名存盘。

图4

三、综合操作题

在考生文件夹下有一个工程文件sjt5.vbp，其功能是：

①单击\读数据\按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；

②单击\分组\按钮，则将数组a中所有3的倍数的元素存入数组b中，并对数组b中的元素从小到大排序后显示在文本框Text2中。在给出的窗体文件中已经有了全部控件(如图5所示)，但程序不完整。

要求：编写适当的程序部分使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行\分组\操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

图5

第六十五套题干65

一、基本操作题

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

(1)在名称为Form1、标题为\菜单\的窗体上，设计满足如下要求的菜单：

分类 标题 名称 内缩符号 主菜单项1 文件 file 无 子菜单项1 新建 new 1 子菜单项2 保存 save 1 主菜单项2 退出 exit 无 运行后的窗体如图1所示。存盘时，将文件保存至考生文件夹下，且工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1

(2)在名称为Form1的窗体上，画一个名称为Image1的图像框，左界为360，且图像框中显示考生文件夹下的图片文件\；再画两个名称分别为\、\，标题分别为\移动\、\复位\的命令按钮，如图2所示。

要求：编写适当的事件过程，使得每单击\移动\按钮一次，图像框向右移动10；单击\复位\按钮，图像框自动回位到左界为360的位置。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2

二、简单应用题

(1)考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有一个名称为Cmd的命令按钮控件数组；有一个名称为Image1的图像框。请画一个名称为Timer1的计时器，时间间隔为3秒，初始状态为不可用，如图3所示。程序功能如下：

①单击\前进\按钮，则Timer1的状态变为可用，且在图像框中黄灯显示3秒(图像文件为考生文件夹下的\后，显示绿灯(图像文件为考生文件夹下的\直至下次单击某个命令按钮；

②单击\停止\按钮，则Timer1的状态变为可用，且在图像框黄灯显示3秒后，显示红灯(图像文件为考生文件夹下的\直至下次单击某个命令按钮；

③单击\结束\按钮，则结束程序运行。

请将命令按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

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

图3

(2)考生文件夹下有一个工程文件sjt4.vbp，其中的窗体上已有如图4所示的控件。程序功能如下：

①单击\读数据\按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中；

②在Text1中选中部分文本，并单击\统计\按钮，则以不区分大小写字母的方式，自动统计选中文本中同时出现\、\两个字母的单词的个数(如million、company都属于满足条件的单词)，并将统计结果显示在Text2文本框内。

请将\统计\按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

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

图4

三、综合操作题

在考生文件夹下有一个工程文件sjt5.vbp，其功能是：

①单击\读数据\按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；

②单击\素数\按钮，则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中，并将数组b中的元素显示在文本框Text2中。

在给出的窗体文件中已经有了全部控件(如图5所示)，但程序不完整。

要求：完善程序使其实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和 —5—

程序，在结束程序运行之前，必须先执行\素数\操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

图5

第六十六套题干66

一、基本操作题

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

(1)在名称为Form1的窗体上画一个名称为Shape1的形状控件，要求在属性窗口中将其形状设置为椭圆，其长轴(水平方向)、短轴(垂直方向)的长度分别为1600、800。把窗体的标题改为\控件\，窗体上没有最大化按钮、最小化按钮。程序运行后的窗体如图1所示。

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

图1

(2)在名称为Form1的窗体上画一个名称为HS的水平滚动条，最大值为100，最小值为1。再画一个名称为List1的列表框，在属性窗口中输入列表项的值，分别是1000、1500、2000，如图2所示。请编写适当的程序，使得运行程序时，当选择列表框中的某一项，将水平滚动条的长度改变为所选中的值。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

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

图2

二、简单应用题

(1)在考生文件夹中有一个工程文件sjt3.vbp。运行程序时，先向文本框Text1中输入一个不超过10的正整数，然后选择\的阶乘\或\的阶乘\单选按钮，即可进行计算，计算结果显示在文本框Text2中，如图3所示。

在给出的窗体文件中已经添加了全部控件，但程序不完整。

要求：去掉程序中的注释符，把程序中的？改为正确的内容。

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

图3

(2)在考生文件夹中有一个工程文件sjt4.vbp。该程序的功能是将文件in4.txt中的文本读出并显示在文本框Text1中。在文本框Text2中输入一个英文字母，然后单击\统计\按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果显示在标签Label3中，如图4所示。给出的窗体文件中已经有了全部控件，程序不完整。

要求：去掉程序中的注释符，把程序中的？改为正确的内容。

如果单击\读入数据\按钮，则调用ReadData过程读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中下标为奇数的元素在文本框中显示出来，并求出它们的和，最后把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则调用WriteData过程把所求得的和存入考生文件夹下的dataout.txt文件中。ReadData过程和WriteData过程已经给出，请编写Read、Calc和Save菜单项的Click事件过程，实现上述功能。

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

图5

第七十四套题干74

一、基本操作题

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

(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为\姓名\和\年龄\、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为\显示\。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击\显示\按钮，则在窗体上显示两个文本框中的内容，如图1所示。要求程序中不得使用任何变量。

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

图1

(2)在名称为Form1的窗体上画一个图片框(名称为Picture1)、一个水平滚动条(名称为HScroll1)和一个命令按钮(名称为Command1，标题为\设置属性\，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图2(a)所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：

Min=100 Max=1500

LargeChange=100 SmallChange=10

之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2(b)所示。要求程序中不得使用任何变量。

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

(a)

(b)

图2

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，请装入该文件，在窗体上画一个列表框(名称为List1)和一个文本框(名称为Text1)，如图3(a)所 —11—

示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图3(b)所示。提供的窗体文件可以实现上述功能。但这个程序不完整，请把它补充完整。

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

(a) (b)

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程FindMin求数组的最小值，请装入该文件。程序运行后，在四个文本框中各输入一个整数，然后单击\求最小值\按钮，即可求出数组的最小值，并在窗体上显示出来(如图4所示)。这个程序不完整，请把它补充完整，并能正确运行。

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

图4

三、综合操作题

在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)(如图5所示)。程序运行后，如果单击\读入数据\按钮，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

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

图5

第七十五套题干75

一、基本操作题

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

(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为\书名\和\作者\、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为\显示\，如图1(a)所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击\显示\按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图1(b)

所示。要求程序中不得使用任何变量。

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

(a) (b)

图1

(2)在名称为Form1的窗体上画一个垂直滚动条(名称为VScroll1)和一个水平滚动条(名称为HScroll1)，如图 2(a)所示。在属性窗口中对两个滚动条设置如下属性：

Min=1500 Max=6000

LargeChange=200 SmallChange=50

编写适当的事件过程。程序运行后，如果改变滚动条上的滚动框的位置，则可扩大或缩小窗体。运行后的窗体如图 2(b)所示。要求程序中不得使用任何变量。

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

(a) (b)

图2

二、简单应用题

(1)在窗体(名称为Form1，KeyPreview属性为True)上画一个列表框(名称为List1)和一个文本框(名称为Text1)，如图3(a)所示。编写窗体的KeyDown事件过程。程序运行后，如果按\键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按\键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图3(b)所示。在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

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

(a) (b)

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在四个文本框中各输入一个整数，然后单击\求平均值\按钮，即可求出数组的平均值，并在窗体上显示出来(如图4所示)。这个程序不完整，请把它补充完整，并能正确运行。

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

—12—

图4

三、综合操作题

在窗体上建立三个菜单项(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)(如图5所示)。程序运行后，如果单击\读入数据\按钮，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\命令，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\命令，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

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

图5

第七十六套题干76

一、基本操作题

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

(1)在名称为Form1的窗体上画一个标签(名称为Label1，标题为\输入信息\、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为\显示\，如图1(a)所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入\计算机等级考试\，然后单击\显示\按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图1(b)所示。要求程序中不得使用任何变量。

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

(a) (b)

图1

(2)在名称为Form1的窗体上画一个文本框(名称为Text1，Text属性为\国\，FontName属性为\黑体\和一个水平滚动条(名称为HScroll1)，如图2(a)所示。在属性窗口中对滚动条设置如下属性：

Min=10 Max=100

LargeChange=5 SmallChange=2

编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的\国\字。运行后的窗体如图2(b)所示。要求程序中不得使用任何变量。

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

(a)

(b)

图2

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上建立一个菜单，主菜单项为\项目\名称为Item)，它有两个子菜单项，其名称分别为Add和Delete，标题分别为\添加项目\和\删除项目\，然后画一个列表框(名称为List1)和一个文本框(名称为Text1)，如图3(a)所示。编写适当的事件过程。程序运行后，如果执行\添加项目\命令，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果执行\删除项目\命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图3(b)所示。

在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

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

(a) (b)

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Sort将数组按升序排序。程序运行后，在四个文本框中各输入一个整数(如图4(a)所示)，然后单击\按升序排序\按钮，即可使数组按升序排序，并在文本框中显示出来(如图4(b)所示)。这个程序不完整，请把它补充完整，并能正确运行。

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

(a) (b)

图4

三、综合操作题

在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)(如图5所示)。程序运行后，如果单击\读入数据\按钮，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中大于等于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

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

图5

第七十七套题干77

一、基本操作题

请根据以下各小题的要求设计Visual Basic应用程序

—13—

(包括界面和代码)。

(1)在名为Form1的窗体上画一个标签(名称为Label1，标题为空白，BorderStyle属性为1，Visible属性为False)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为\显示\，如图1(a)所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入\计算机等级考试\，然后单击\显示\按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如图1(b)所示。要求程序中不得使用任何变量。

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

(a) (b)

图1

(2)在名称为Form1的窗体上画一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1)，如图2(a)所示。在属性窗口中对滚动条设置如下属性：

Min=500 Max=2000

LargeChange=50 SmallChange=20

编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如图2(b)所示。要求程序中不得使用任何变量。

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

(a)

(b)

图2

二、简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个单选按钮(名称分别为Option1和Option2，标题分别为\添加项目\和\删除项目\，一个列表框(名称为List1)和一个文本框(名称为Text1)，如图3(a)所示。编写窗体的Click事件过程。程序运行后，如果选择\添加项目\单选按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于三个)，并添加到列表框中；如果选择\删除项目\单选按钮，然后单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图3(b)所示。

在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

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

(a) (b)

图3

(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序运行后，在四个文本框中各输入一个整数(如图4(a)所示)，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来(如图4(b)所示)。这个程序不完整，请把它补充完整，并能正确运行。

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

(a)

(b)

图4

三、综合操作题

在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)(如图5所示)。程序运行后，如果单击\读入数据\按钮，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中小于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

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

图5

第七十八套题干101

一、基本操作题

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

(1)在名称为Form1的窗体上画一个名称为txtInput的文本框，其高、宽分别为500、2500。请在属性框中设置适当的属性满足以下要求：

① txtInput的字体为\黑体\，字号为\四号\；

② 窗体的标题为\输入示例\，不显示最大化按钮和最小化按钮。

运行后的窗体如图1所示。

图1

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

(2)在名称为Form1的窗体上画两个文本框，名称分别为txtLeft、txtRight，再画两个命令按钮，名称分别为cmdLeft、cmdRight，标题分别为\左\、\右\，如图2所示。

图2

要求：编写适当的事件过程，使得程序运行时，单击\左\按钮，则焦点位于txtLeft上；单击\右\按钮，则焦点位于txtRight上。

注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 —14—

vbsj2.vbp，窗体文件名为vbsj2.frm。 二、简单应用题

(1)在考生目录下有一个工程文件vbsj3.vbp，窗体文件中已给出所有控件和部分程序，如图3所示。

要求：①利用属性窗口设置适当的属性，使txtInput、txtResult中数据右对齐；②请编写适当的程序完成以下功能：在txtInput中输入40(度数)，选择一个单选按钮，单击\计算\按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3.14159)，并显示在txtResult中。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在txtInput中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

图3

(2)在考生文件夹下有一个工程文件vbsj4.vbp，窗体上已经画出所有控件。如图4所示。在txtInput文本框中输入一个任意的字符串(要求串的长度≥10)，然后选择组合框中的3个截取运算选项之一。单击\计算\按钮，将截取运算后的结果显示在txtResult中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。

图4

三、综合操作题

在考生的文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮，其名称分别为cmdWrite和cmdRead，标题分别为\写通信录\和\读通信录\，如图5所示。其中\写通信录\命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件out5.txt中；而\读通信录\命令按钮事件过程用来读出文件out5.txt中的每个记录，并在窗体上显示出来。

图5

通信录中的每个记录由3个字段组成，结构如下： 姓名(Name)电话(Tel)邮政编码(Pos) LiMingXiang (010)62483772 100095 各字段的类型和长度为： 姓名(Name)：字符串15 电话(Tel)：字符串15

邮政编码(Pos)：长整型(Long)

程序运行后，如果单击\写通信录\命令按钮，则可以随机存取方式打开文件out5.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答\或\则输入新记录，回答\或\则停止输入；如果单击\读通信录\命令按钮，则可以随机存取方式打开文件out5.txt，读出文件中的全部记录，并在窗体上显示出来，如图6所示。该程序不完整，请把它补充完整。

图6

要求：①去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。②文件out5.txt中已有3个记录，请运行程序，单击\写通信录\命令按钮，向文件out5.txt中添加以下两个记录(全部采用西文方式)：

LiuXiaoqiang (028)87348765 430065 DengQinghua (021)26874321 300120

③运行程序，单击\读通信录\命令按钮，在窗体上显示全部记录(共5个)。④用原来的文件名保存工程文件和窗体文件。

第七十九套题干102

一、基本操作题

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

(1)在名称为Form1的窗体上画一个名称为cmdOpen、标题为\打开\的命令按钮，然后画一个名称为cdlOpen的通用对话框(如图1所示)，编写适当的事件过程，使得运行程序时，单击\打开\命令按钮，则弹出打开文件对话框。在属性窗口中设置通用对话框的适当属性，使得对话框中显示的文件类型第一项为\所有文件\，第二项为\，默认的过滤器为.DOC文件。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。

图1

(2)在名称为Form1的窗体上画两个文本框，名称分别为txtSrc、txtObj，再画两个命令按钮，名称分别为cmdCopy、cmdDel，标题分别为\复制\、\删除\。程序运行时，在txtSrc中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击\复制\按钮，则被选中的字符被复制到txtObj中(如图2所示)。若单击\删除\按钮，则被选择的字符从txtSrc中被删除。请编写两个命令按钮的Click过程完成上述功能。注意：要求程序中不得使用变量，事件过程中只能写一条语句。

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

图2

二、简单应用题

(1)在考生目录下有一个工程文件vbsj3.vbp，窗体上有一个圆和一条直线(直线的名称为linClock)构成一个钟表的图案；有两个命令按钮，名称分别为cmdStart、cmdStop，标题分别为\开始\、\停止\；还有一个名为tmrClock的计时器。程序运行时，钟表指针不动，单击\开始\按钮，则钟表上的指针(即linClock)开始顺时针旋转(每秒转6°，一分钟转一圈)；单击\停止\按钮，则指针停止旋转。运行时的窗体如图3所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其它控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 —15—

图3

(2)在考生文件夹下有一个工程文件vbsj4.vbp，窗体上已经给出所有控件。程序运行时，单击\开始\按钮，则汽车图标向右运动；单击\停止\按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度(滚动框向右移动，速度减慢)。如图4所示。

要求：去掉程序中的注释符，把程序中的？改为正确的内容。

图4

提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动10，程序通过改变计时器控件的Interval属性来改变汽车的运动速度。

注意：不得修改控件的属性。最后，按原文件名存盘。

三、综合操作题

在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时，在文本框中输入一个素数，然后单击\查找\命令按钮，找出小于给定素数的三个最大的素数，并显示在标签控件数组lblResult中，如图5所示。

图5

要求：工程文件中已给出部分程序，其中的IsPrime过程用来判断一个数是否为素数。请编写\查找\命令按钮的事件过程中的部分程序代码。

注意：程序调试通过后，在\给定的素数\对应的文本框中输入12379，并执行\查找\命令，将找到满足条件的三个素数显示在标签中，否则没有成绩。不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

第八十套题干103

一、基本操作题

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

(1)在名称为Form1的窗体上画两个标签(名称分别为lblName和lblAge，标题分别为\姓名\和\年龄\、两个文本框(名称分别为txtName和txtAge，Text属性均为空白)和一个命令按钮(名称为cmdDisplay，标题为\显示\。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图1所示。要求程序中不得使用任何变量。

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

图1

(2)在名称为Form1的窗体上画一个文本框，名称为txtInput，无初始内容；再画一个图片框，名称为picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图2所示。程序中不能使用任何变量。

步骤2：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】本题可在命令按钮的单击事件过程中，通过修改图像框的Left属性值达到移动或复位图像框位置的功能。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。

表2

步骤2：打开代码编辑窗口，分别编写两个命令按钮的单击事件过程。

参考代码：

Private Sub Command1_Click() Image1.Left = Image1.Left + 10 End Sub

Private Sub Command2_Click() Image1.Left = 360 End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】在命令按钮数组的单击事件过程中，首先判断单击的是哪个按钮，即触发单击事件的Index参数值，若其为2则代表单击的是\退出\按钮，此时应结束程序运行；如果Index的值是0或者1，那么应该使计时器变为可用状态，同时利用全局变量flag保存Index值，苏后再计时器的Timer事件中根据flag的值来判断应该执行\前进\按钮的单击事件还是\停止\按钮的单击事件。

【操作步骤】

步骤1：打开考生文件下的本题工程文件sjt3.vbp，在窗体上画出一个名为Timer1的计时器，设置计时器的Interval属性为3000，Enabled属性为False。

步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

If Index = 2 Then

Timer1.Enabled = True Select Case flag

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】本题原程序在\统计\按钮的Click事件过程中，先检验文本框Text1中是否读入数据（条件表达式为len(s)=0），再检查是否在文本框Text1中选中文本（条件表达式为Text1.SelLength=0），并以空格为单词分隔依据找出每个单词。然后将找出的单词转换成小写，并判断该单词是否同时出现了\和\，若该单词满足条件则用于统计满足条件单词个数的变量m的值增1。最后将结果显示在文本框Text2中。

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

If Len(s) = 0 Then —21—

If Text1.SelLength = 0 Then x = LCase(t)

Text2.Text = Str(m)

步骤2：按要求将文件保存至考生文件夹中。

三、综合操作题

【审题分析】设计思路：通过For循环逐一判断数组a的每一个元素是否是素数。判断a(i)是否是素数的思路是从2到a(i)-1依次去除a(i)，若有能整除的则不是素数；每找到一个素数，则将记录数组b元素个数的变量num增1，并将当前数组元素a(i)的值赋予数组元素b(num)，从而生成数组b。当数组b生成后，将数组b的内容显示在文本框中。

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口指定位置编写以下代码：

参考代码：

For i = 1 To 100 flag = 0

For j = 2 To a(i) - 1

If a(i) / j = Fix(a(i) / j) Then flag = 1 Exit For End If Next

If flag = 0 Then num = num + 1 b(num) = a(i) End If Next

步骤2：按键运行程序，先单击\读数据\按钮，再单击\素数\按钮，最后单击窗体右上角的关闭按钮结束程序。

步骤3：按要求将文件保存至考生文件夹中。

第六十六套上机答案解析66

一、基本操作题

第1小题

【知识点拔】①形状控件（Shape）提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。②窗体的标题由其Caption属性设置，窗体的MaxButton属性、MinButton 属性决定其标题栏是否显示最大化按钮、最小化按钮，True表示显示，False表示不显示。

【审题分析】本题只需按要求建立程序界面并设置窗体和形状控件相关属性即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个形状控件，其相关属性设置如表1所示。

表1

步骤2：按要求将文件保存至考生文件夹中。 第2小题

【知识点拔】列表框控件（ListBox）用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem方法加入。在程序运行时删除列表框中的项目可以使用RemoveItem方法，其语法为：列表框.RemoveItem 索引值。其中，\索引值\可以指定插入项在列表框中的位置，从0开始计数。

【审题分析】单击列表框中的某个项目，将触发其Click事件。要实现单击列表框中的某一项，就改变滚动条

的宽度值，只需在Click事件过程中编写改变水平滚动条Width属性的语句即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个列表框和一个水平滚动条，其相关属性设置如表2所示。

表2

步骤2：打开代码编辑窗口，编写列表框的Click事件过程：

参考代码：

Private Sub List1_Click() HS.Width = List1.Text End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】f1函数的作用是计算n的阶乘，首先预设累乘积x的值为1，然后循环n次，在每次循环中把循环变量乘到累乘积中，循环结束后x的值即为函数返回值。

在单选按钮数组的单击事件中，首先使用Index参数判断触发单击事件的单选按钮，如果Index=0则调用f1函数计算n的阶乘，若Index属性为1则调用f1函数计算n+2的阶乘。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

Select Case Index Text2.Text = f1(n) Text2.Text = f1(n + 2) For i = 1 To n f1 = x

步骤2：按要求将文件保存至考生文件夹中。 第2小题

【知识点拔】Instr(n,s1,s2)函数用于查找字符串s2在s1中第一次出现的位置，其中n为开始查找的起始字符位置，若未找到返回0。若缺省n，默认从第一个字符找起。

【审题分析】本题原程序在\统计\按钮的Click事件过程中，首先把Text2中的字母放入变量s1中，然后依次判断s中出现s1的次数，最后将结果显示在标签中。

【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码： p = InStr(s, s1) Loop While p <> 0 Label3.Caption = n Text1.Text = s

步骤2：按要求将文件保存至考生文件夹中。

三、综合操作题

【知识点拔】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。

②For循环用于知道次数的循环，在不知道明确的循环次数的情况下，我们可以用条件来控制循环，While循环和Do循环就是用条件来控制的循环。While…Wend语句的一般语法格式：

While 条件

—22—

语句块 Wend

功能：在给定的条件为真（True）时，执行循环中的\语句块\。

③素数的判断准则就是看该数除了1和其本身外是否别无其他约数。

【审题分析】程序设计思路：要找出小于18000的最大素数，可以定义一个初值为18000的整型变量i，通过调用函数isprime（a），以其返回值不是素数（即Not isprime（a））作为While循环语句的循环条件，在循环体中加入语句：a=a-1实现每执行循环体一次变量a的值减少1，当循环结束时将a的值在文本框中显示出来。

要将结果存入考生文件夹下的out5.txt文件，可先用Open语句以输出方式打开该文件；然后通过Print语句将文本框中的内容写入打开的文件；最后用Close语句关闭打开的文件。

【操作步骤】

步骤1：打开本题对应工程文件sjt5.vbp。

步骤2：双击窗体Form1上的\计算\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：

参考代码：

Private Sub C1_Click() a% = 18000 Do

a% = a% - 1

Loop Until isprime(a%) Text1.Text = a% End Sub

步骤3：双击窗体Form1上的\存盘\按钮，在代码编辑窗口其Click事件过程中输入如下代码：

参考代码：

Private Sub C2_Click()

Open \ Print #1, Text1.Text Close #1 End Sub

步骤4：按要求将文件保存至考生文件夹中。

步骤5：按键运行程序，单击\计算\按钮，再单击\存盘\按钮保存结果。

【考试误区】正确使用循环控制结构是解决此题的关键。

第六十七套上机答案解析67

一、基本操作题

第1小题

【审题分析】本题只需按要求画出控件并设置其相应属性即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个滚动条和一个标签，并设置它们的相关属性，其属性及值如表1所示。

表1

步骤2：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】程序一开始运行时计时器即变为可用，需在窗体的Load事件过程中用语句设置其Enabled属性值为True。为使形状控件每隔0.5秒向下移动100，可在计时器的Timer事件过程中设置形状控件的Top属性值在原有基础上每次增加100。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。

表2

步骤2：在代码编辑窗口编写相应的事件过程。 参考代码：

Private Sub Form_Load() Timer1.Enabled = True End Sub

Private Sub Timer1_Timer()

Shape1.Top = Shape1.Top + 100 End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】本题在Text2_Change事件过程中，根据\显示密码\复选框是否被选中（即Check1.Value属性值是否为1），来决定文本框Text3中的字符是否被屏蔽。其中，屏蔽时将文本框的PasswordChar属性值设置为字符\，取消屏蔽时将文本框的PasswordChar属性值设置为空字符串。文本框Text2中输入的密码要同步显示在文本框Text3中，需使用语句：Text3.Text = Text2.Text。

【操作步骤】

步骤1：打开考生文件下的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

If Check1.Value = 1 Then

Form1.Text3.PasswordChar = \ Else

Text3.PasswordChar = \ End If

Text3.Text = Text2.Text

步骤2：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】本题程序运行时，单击命令按钮，使用For语句将文本框中每个元素的数据类型转换为整型，然后在循环中调用求最小值的函数过程FindMin来保证变量x中保持为数组中的最小值，FindMin函数过程的实质是返回两个参数x和y的最小值。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码： For k = 2 To 5

x = FindMin(Val(Text1(k).Text), x) lblResult.Caption = x If x > y Then

步骤2：按要求将文件保存至考生文件夹中。

三、综合操作题

【审题分析】7*7数组四周元素的特点：第一维下标为1（或7）或第二维下标为1（或7）。根据题意，可通过一个嵌套的For循环，将满足前述条件的数组元素累加入变量Sum，若该数组元素能被7整除，则记录个数变量Num增1。【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：

参考代码：

Dim Num As Integer For i = 1 To 7

For j = 1 To 7

If i=1 Ori = 7 Or j = 1 Or j = 7 Then

—23—

Sum = Sum + a(i, j)

If a(i,j)Mod7=0 Then Num= Num+1

End If Next Next

lblFirst.Caption = Num lblSecond.Caption = Sum

步骤2：按键运行程序，然后单击\计算\按钮。 步骤3：按要求将文件保存至考生文件夹中。

第六十八套上机答案解析68

一、基本操作题

第1小题

【知识点拔】通用对话框（CommonDialog）提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。Action属性用于设置被打开对话框的类型；当通用对话框显示为\打开\或\另存为\类型时，其FileName属性用于返回或设置所选的文件的路径和文件名，Filter（过滤器）属性在对话框显示时提供一个可供选择过滤器列表，从而指定在对话框的文件列表中显示文件的类型，例如，过滤器为*.txt，表示显示所有的文本文件，它的语法为：对象名.Filter =\描述|文件扩展名\。使用管道符（|）将描述与过滤器隔开，同样使用管道符将多个过滤器相互分隔。FilterIndex属性返回或设置\打开\或\另存为\对话框中一个缺省的过滤器，其中第一个过滤器的索引号是1。

在VB6中开始使用新方法来打开不同对话框，同时也保留了对Action属性的支持。如表1列出了不同Action属性值代表的对话框类型及其在VB6中的对应方法。

表1

【审题分析】要在单击按钮时弹出\打开文件\对话框，只需在\打开\按钮的Click事件过程中调用通用对话框的ShowOpen方法即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个命令按钮，其相关属性设置如表2所示。

表2

步骤2：选择【工程】→【部件】命令，将弹出的\部件\对话框，如图1所示，从列表中选中\Common Dialog Control6.0\项目，单击\确定\按钮。

图1

步骤3：双击工具箱新添加的通用对话框（CommonDialog）图标，在窗体中加入一个通用对话框，其相关属性设置如图68-2所示。也可右击窗体中的通用对话框，选择【属性】命令，在打开的\属性页\对话框中设置其相关属性，如图2所示。

图2

步骤4：双击窗体Form1中的\打开\按钮，在打开的代码编辑窗口中，输入如下代码：

参考代码：

Private Sub Command1_Click() CD1.ShowOpen End Sub

步骤5：按要求将文件保存至考生文件夹中。

第2小题

【审题分析】根据题目要求，要在程序运行时能每隔1秒，文本框中的数字加1，需将计时器的Interval属性值设置为1000毫秒，在计时器的Timer事件过程中将标签中的数值加1。在设计阶段令计时器的Enabled属性为False即不启用计时器，然后在命令按钮的单击事件中将计时器的Enabled属性值设置为True。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表68-3在窗体中画出控件并设置其相关属性。

表68-3

步骤2：在代码窗口中加入以下代码： 参考代码：

Private Sub C1_Click() T1.Enabled = True End Sub

Private Sub T1_Timer()

Text1.Text = Text1.Text + 1 End Sub

步骤3：按要求将文件保存至考生文件夹中。

【特别提示】常通过计时器来完成一些重复的有规律性的任务。 二、简单应用题

第1小题

【审题分析】从本题题目要求及所提供原程序可知，程序运行时首先显示窗体Form2，然后在Form2的\显示\按钮的单击事件过程中，通过设置窗体Form1的Visible属性值为True —24—

来显示该窗口。在Form1的\结束\按钮的单击事件过程中结束程序的运行。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，然后将按钮C1的Caption属性设置为\结束\，将按钮C2的Caption属性设置为\显示\。

步骤2：选择【工程】→【工程属性】命令打开\工程属性\对话框，设置Form2为启动窗体。

步骤3：打开Form2和Form1的代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码：

Load Form1

Form1.Visible = True

步骤4：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】本题要求通过修改程序源代码，来实现当选中不同选项时，单击命令按钮，即在图片框显示出不同信息的功能。程序源代码在按钮的Click事件过程中，利用For循环语句逐一判断单选按钮数组中每个元素当前是否被选中，若选中则通过调用draw过程将其标题信息在图片框中用Print语句显示出来。因为单选按钮数组一共有三个元素，且数组索引号（Index属性值）从0开始，故循环语句的初值为0，终值为2。

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，程序界面如图3所示。

图3

步骤2：依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表68-4所示。

表68-4

步骤3：双击\显示\命令按钮，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

If Op1 (k).Value = True Then Call draw(k)

P1.Print \选择了\

步骤4：按要求将文件保存至考生文件夹中。

三、综合操作题

【知识点拔】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。

②素数的判断准则就是看该数除了1和其本身外有无其他约数。

【审题分析】程序设计思路：要找出小于给定数的最大素数，可以从给定数开始反向循环，通过调用函数isprime（n），以其返回值不是素数（即Not isprime（n））作为判断条件，每找到一个素数就记录下来并且令计数器counter加1，当counter=3时就找出了三个小于给定数的最大素数。

【操作步骤】

步骤1：打开本题对应工程文件sjt5.vbp。

步骤2：双击窗体Form1上的\查找\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：

参考代码： Dim i As Integer

Dim n As Integer

Dim counter As Integer Dim arr(3) As Integer n = Val(Text1.Text) counter = 0

For i = n - 2 To 3 Step -2 If IsPrime(i) Then arr(counter) = i

counter = counter + 1 If counter = 3 Then Exit For End If End If Next

For i = 0 To 2

Label1(i).Caption = arr(i) Next

步骤3：运行程序，在\给定的素数\对应的文本框中输入12379，并执行\查找\命令，将找到满足条件的三个素数显示在标签中，然后单击关闭按钮结束程序的运行。

步骤4：按要求将文件保存至考生文件夹中。

【考试误区】正确使用循环控制结构是解决此题的关键。

【主要考点】循环控制结构的应用、过程调用。

第六十九套上机答案解析69

一、基本操作题

第1小题

【审题分析】本题只需按要求画出控件并设置其相关属性即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。

表1

步骤2：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】要实现本题所要求的功能，可在文本框的Change事件过程中，将当前文本框中的文本用Print方法输出到图片框中。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。

表2 对象属性设置

步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。

参考代码：

Private Sub Text1_Change() P1.Print Text1.Text End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】本题要求通过修改程序源代码，来实现当选中不同选项时，单击命令按钮，即在窗体显示出不同信息的功能。程序源代码在按钮的Click事件过程中，利用For循环语句逐一判断单选按钮数组中每个元素当前是否被 —25—

选中，若选中则通过在窗体中用Print语句显示出相关信息。因为单选按钮数组一共有三个元素，且数组索引号（Index属性值）从0开始，故循环语句初值为0，终值为2。

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表3所示。

表3

步骤2：双击\显示\命令按钮，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

Private Sub C1_Click() For i = 0 To 2

If Op1(i).Value = True Then

Print\我的出生地是\

End If Next End Sub

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【审题分析】组合框的Text属性可以返回当前选中的列表项内容，本题只需要分别在两个组合框的Click事件中令标签的相应字体属性等于组合框当前选中项的内容即可。

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt4.vbp，如表4画出三个标签和两个组合框并设置属性。

表4

步骤2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。

参考代码：

Private Sub Cb1_Click() L1.FontSize = Cb1.Text End Sub

Private Sub Cb2_Click() L1.Font = Cb2.Text End Sub 步骤3：按要求将文件保存至考生文件夹中。

步骤4：按键运行程序，选择一个字号和字体，然后单击窗体右上角的关闭按钮结束程序。 三、综合操作题

【知识点拔】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。

②素数的判断准则就是看该数除了1和其本身外有无其他约数。

【审题分析】程序设计思路：要找出大于15000的第一个素数，可以定义一个初值为15000的整型变量a，通过调用函数isprime（i），以其返回值是素数（即isprime（a））作为Do循环语句的继续循环条件，在循环体中加入语句：a=a+1，实现每执行循环体一次变量i的值增加1，当循环结束时将a的值在文本框中显示出来。

要将结果存入考生文件夹下的out5.txt文件，可先用Open语句以输出方式打开该文件；然后通过Print语句将文本框中的内容写入打开的文件；最后用Close语句关闭打开的文件。

【操作步骤】

步骤1：打开本题对应工程文件sjt5.vbp。

步骤2：双击窗体Form1上的\计算\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：

参考代码：

Private Sub C1_Click() a% = 15000 Do

a% = a% + 1

Loop Until isprime(a%) Text1.Text = a% End Sub

步骤3：双击窗体Form1上的\存盘\按钮，在代码编辑窗口其Click事件过程中输入如下代码：

参考代码：

Private Sub C2_Click()

Open App.Path & \

Print #1, Text1.Text Close #1 End Sub

步骤4：按要求将文件保存至考生文件夹中。

第七十套上机答案解析70

一、基本操作题

第1小题

【审题分析】滚动条所能表示的最小值和最大值分别由其Min属性和Max属性设定； LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个水平滚动条和两个标签，其属性及值如表1所示。

表1

步骤2：按要求将文件保存至考生文件夹中。 【主要考点】水平滚动条控件。 第2小题

【知识点拔】菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将触发其Click事件。

【审题分析】要实现本题中的功能，应在\复制\菜单项的Click事件过程中，为Text2赋值为Text1的Text属性值，在\清除\菜单项的Click事件过程中，为Text2的Text属性赋值为空字符串。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画两个文本框，名称分别为Text1和Text2，其Text属性均为空白。

—26—

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

表2

步骤3：打开代码编辑窗口，编写\复制\和\清除\菜单命令的单击事件过程。

参考代码：

Private Sub clear_Click() Text2.Text = \End Sub

Private Sub copy_Click() Text2.Text = Text1.Text End Sub

步骤4：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】本题要求通过修改程序源代码，来实现当选中不同选项时，在文本框显示出不同信息的功能。程序源代码在单选按钮数组的Click事件过程中，利用Select Case语句来判断是哪个单选按钮被单击并在文本框中显示不同内容。

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，使用复制粘贴的方法画出一个有三个元素的单选按钮数组，再画出一个文本框，设置它们的相关属性，其属性及值如表3所示。

表3

步骤2：双击单选按钮数组，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

Select Case Index

Text1.Text = a + Me.Op1(1).Caption+\去\

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【知识点拔】①某容器（如窗体和框架）中的单选按钮（OptionButton）组常用于提供多个选项间的唯一选择，其Value属性用于设置或返回每个单选按钮的选中状态：值为False时表示未被选中，值为True时表示被选中，其Caption属性来设置或返回单选按钮的标题内容。②分支控制结构是结构化程序设计的基本结构之一，它所要解决的是根据条件判断的结果决定程序执行的流向。选择控制结构就是其中一种，它是由两个分支构成的，就是说，条件要么是真，要么是假，没有其他的选择。在执行结构时按照所指定的条件进行判断并选择其中一组语句来执行。If语句就是一种选择控制结构，其一般语法为：

If 条件Then 语句块A Else 语句块B End If

功能：判断条件，如果条件为\真\，则执行语句块A部分，反之则执行语句块B部分。

【审题分析】根据题目要求，在本题的程序设计上，以F1中的Op1是否选中作为If…Then…Else语句的条件，由此分出两种情况：Op1被选中或Op2被选中。在条件为真（即Op1被选中）时，再使用一个嵌套的If…Then…Else语句对F2中Op3和Op4的选中情况进行分类，当Op3被选中时，文本框中显示\我是男学生\，否则显示\我是女学生\；同理在

条件为假（即Op2被选中）时，也用类似方法处理。这样一共就有四种可能：Op1和Op3被选中、Op1和Op4被选中、Op2和Op3被选中或Op2和Op4被选中，对于可能出现的不同选择对照题目中表的规定，修改Text1的Text属性值，以显示不同内容。以上判断和显示操作均在C1的Click事件中完成。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。 步骤2：在窗体Form1中加入两个框架和一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，属性及其值如表4所示。

表4

步骤3：打开代码编辑窗口输入如下代码： 参考代码：

Private Sub C1_Click() Text1.Text = \我是\ If Op1.Value Then

ext1.Text=Text1.Text+Op1.Caption Else

ext1.Text=Text1.Text+Op2.Caption End If

If Op3.Value Then

ext1.Text=Text1.Text+Op3.Caption Else

ext1.Text=Text1.Text+Op4.Caption End If End Sub

步骤4：按要求将文件保存至考生文件夹中。 步骤5：按键运行程序，选择一种性别和一个身份，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。

【考试误区】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同分支，理清思路是关键。 三、综合操作题

【审题分析】本题实际是要让考生编写\显示结果\按钮的单击事件过程。用For循环语句（循环变量的取值与单选按钮数组的下标一致，从0到Op1.Count - 1）逐一检查单选按钮数组中的元素的选中状态，若某单选按钮的Value属性值为True，则该单选按钮被选中，用变量n记录下其对应的数值，即n=Val(Op1(k).Caption)。

根据题意，从数列的第三个数开始，每个数是其前两个数之和，可以利用For循环语句（循环变量i的初值为3，终值为n），从数列的第三个数开始，逐一计算出该数列第3~n项的值。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2：编写\计算\按钮的单击事件过程。 参考代码：

Private Sub Command1_Click()

Dim a As Long, a1 As Long, a2 As Long Dim k As Integer, n As Integer For k = 0 To 2

If Op1(k).Value Then

n = Val(Op1(k).Caption) End If —27—

Next k a1 = 1 a2 = 1

For k = 3 To n a = a1 + a2 a1 = a2 a2 = a Next k

Text1.Text = a End Sub

步骤3：运行程序，选中一个单选按钮，并单击\计算\按钮获得一个结果，然后使用窗体右上角的关闭按钮结束程序。

步骤4：按要求将文件保存至考生文件夹中。

第七十一套上机答案解析71

一、基本操作题

第1小题

【审题分析】本题只需按题目要求画出控件，并设置相关属性。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。

表1

步骤2：按要求将文件保存至考生文件夹中。 【主要考点】文本框控件。 第2小题

【知识点拔】图片框（PictureBox）主要用于显示图片（支持的图形文件有位图（bmp）、图标（ico）、Windows原文件（wmf））或在其上画图，也可用作其他控件的容器，还可使用Print方法在其上直接输出文本。

【审题分析】本题需要分别在窗体和图片框的的Click事件过程用Print方法输出结果。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在Form1窗体上画出一个图片框并命名为P1。

步骤2：打开代码编辑窗口，编写以下事件过程： 参考代码：

Private Sub Form_Click() Print \单击窗体\End Sub

Private Sub P1_Click()

P1.Print \单击图片框\End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】本题通过计时器来控制航天飞机移动。单击\发射\按钮时启动计时器，在计时器的Timer事件过程中，如果航天飞机尚未抵达云层（P1.Top > P2.Top + P2.Height），则通过Move方法，使航天飞机（图片框P1）每次加速上移，否则通过停止计时器来停止航天飞机上移。

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt3.vbp，设置计时器的Enabled属性值为False，Interval属性值为100。

步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

Timer1.Enabled = True

If P1.Top > P2.Top + P2.Height Then Timer1.Enabled = False

步骤3：按要求将文件保存至考生文件夹中。 【主要考点】计时器控件。 第2小题

【知识点拔】过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。调用Function函数常放在赋值符右端。

【审题分析】本题原程序中，自定义函数xn的功能是进行a^m幂运算，它通过For循环连续m次将a乘以累积变量tmp（初值为1）来实现。故自定义函数xn中第一个？处应改为：tmp*a，作为函数返回值第二个？处应改为：tmp。

在\计算\按钮的单击事件过程中，根据程序所要计算表达式的特点，原程序利用一个For循环依次计算表达式中各项的值（(x+i)^i），并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t,i)来实现的，其中t=x+i。故cmdCal_Click事件过程中第一个？处应改为：xn(t,i)。计算结果显示在标签中，故第二个？处应改为：Str(z)。

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码： tmp = tmp * a xn = tmp

z = z + xn(t, i) Label1.Caption = z

步骤2：按键键运行程序，在第一个文本框中输入5，第两个文本框中输入10，然后单击\计算\按钮。

步骤3：按要求将文件保存至考生文件夹中。

三、综合操作题

【审题分析】本题从 in5.txt文件中读入的40个数存放于数组arr中，为了计算出素数的个数以及找出最小的素数，需要使用For循环遍历整个数组，首先假设数组找到的第一个素数就是最小的素数存放与变量mini中，在以后的循环中对数组的每一个元素进行判断其是否是素数，若是素数，则计数器n加1，并且将其与预存的最小素数mini相比较，若其小于mini则更新mini的值，直到循环结束，此时mini就是最小素数，n即为素数的个数。

【操作步骤】

步骤1：打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，编写\统计\按钮的单击事件过程。

参考代码： n = 0

For k = 1 To 40

If prime(arr(k)) Then If n = 0 Then mini = arr(k) Else

If mini > arr(k) Then mini = arr(k) End If End If n = n + 1 End If Next

Label3.Caption = Str(n) Label4.Caption = Str(mini)

步骤2：按要求将文件保存至考生文件夹中。

步骤3：按键运行程序，先单击\读入数据\按钮，接着单击\统计\按钮，然后单击窗体右上角的关闭按钮结束程序。

第七十二套上机答案解析72

一、基本操作题

第1小题

【知识点拔】复选框（CheckBox）组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态：0－Unchecked为未选，1－Checked为选中，2－Grayed为禁用（以灰色呈现）。选择某复选框后，该复选框将显示\√\，而取消选择后，\√\消失。 —28—

【审题分析】本题只需按要求画出控件数组，并设置其Value属性。

【操作步骤】

步骤1：新建一个\标准EXE\工程。

步骤2：在窗体Form1中加入一个复选框，并用\复制\和\粘贴\的方法，生成包含三个元素的复选框数组。

步骤3：分别设置窗体和复选框数0组中各元素的相关属性，其属性及值如表1所示。

表1

步骤4：按要求将文件保存至考生文件夹中。 【主要考点】复选框控件数组。

第2小题

【审题分析】本题需用菜单设计器建立菜单，并编写\显示\和\隐藏\菜单项的单击事件过程控制文本框的Visible属性变化。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

表2

步骤3：打开代码编辑窗口，编写以下事件过程： 参考代码：

Private Sub hide_Click() Text1.Visible = False End Sub

Private Sub show_Click() Text1.Visible = True End Sub

步骤4：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。该属性既可以在属性窗口设置，也可以在代码中进行设置。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表3在窗体中画出控件并设置其相关属性。

表3

步骤2：在代码编辑窗口，分别编写三个按钮的单击事

件过程。

参考代码：

Private Sub C1_Click()

Text1.PasswordChar = \End Sub

Private Sub C2_Click()

Text1.PasswordChar = \End Sub

Private Sub C3_Click()

C3.Parent.Text2.Text = Text1.Text End Sub

Private Sub Form_Load() Text1.PasswordChar = \End Sub

步骤3：按要求将文件保存至考生文件夹中。 【主要考点】PasswordChar属性。 第2小题

【知识点拔】通用对话框的InitDir属性用于为打开或另存为对话框指定初始的目录，如果此属性没有指定，则使用当前目录。

【审题分析】本题需按要求在图片框的单击事件过程中，通过调用通用对话框的ShowOpen方法实现。

【操作步骤】

步骤1：新建一个\标准EXE\工程，如表4在窗体中画出控件并设置其相关属性。

表4

步骤2：打开代码编辑窗口，编写如下事件过程。 参考代码：

Private Sub P1_Click() CD1.ShowOpen End Sub

步骤3：按要求将文件保存至考生文件夹中。

【特别提示】打开\打开文件\对话框还可使用语句：cdlOpen.Action=1。 三、综合操作题

【审题分析】本题中自定义函数foundhuiwen的功能是判断字符串参数p是否为回文，若是则返回函数值True，否则返回函数值False。根据回文的定义程序设计思路：在For循环中按从两端到中间的顺序，分别用Mid函数依次从字符串参数p中同时取出两个字符，并比较这两个字符是否相同，若不相同则返回函数值False，并用Exit Function语句退出自定义函数；否则继续往下比较直至循环结束。循环正常结束时，返回函数值True。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，如表5所示在窗体上画出控件并设置它们的相关属性。

表5

步骤2： 打开代码编辑窗口，在指定位置编写foundhuiwen函数的过程。

参考代码：

Function foundhuiwen(p As String) foundhuiwen = True k = Len(p)

For i = 1 To k / 2 —29—

If Mid(p,i,1)<>Mid(p,k+1-i,1) Then foundhuiwen = False Exit For End If Next End Function

步骤3：按要求将文件保存至考生文件夹中。

步骤4：按键运行程序，先单击\读数据\按钮，再单击\统计\按钮，最后单击窗体右上角的关闭按钮结束程序。

第七十三套上机答案解析73

一、基本操作题

第1小题

【知识点拔】InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[,Title][,Default])。

其中，Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏上显示；Default字符串为输入框的缺省文本。

【审题分析】要实现本题功能只需在命令按钮的Click事件过程中，编写两条将输入对话框中用户输入内容赋值给文本框Text属性的语句。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入两个标签、两个文本框和一个命令按钮，其相关属性设置如表1所示。

表1

步骤2：双击窗体Form1中的\输入\按钮，在打开的代码编辑窗口中，输入如下代码：

参考代码：

Private Sub Command1_Click()

Text1.Text = InputBox(\请输入身高\ Text2.Text = InputBox(\请输入体重\End Sub

步骤3：按要求将文件保存至考生文件夹中。 【主要考点】InputBox()函数。 第2小题

【知识点拔】①窗体、图像框（ImageBox）和图片框（PictureBox）上均可以显示来自位图、图标、元文件、JPEG或GIF文件的图形。区别在于：图像框专门用于显示位图，而另外两种还提供了画图的功能。为图片框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载。②图片框的宽和高分别由其Width属性和Height属性设置。

【审题分析】根据题意，本题需在命令按钮的单击事件过程中编写设置垂直滚动条相关属性的语句，在滚动条的Change事件过程中编写将滚动条的Value属性值赋予图片框Height属性的语句，从而达到利用滚动条控制图片框高度的目的。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个图片框和一个水平滚动条，在属性设置窗口中设置其相关属性，属性及其值如表2所示。

表2

步骤2：打开代码编辑窗口，分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。

参考代码：

Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400

VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub

Private Sub VScroll1_Change()

Picture1.Height = VScroll1.Value End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【审题分析】本题原程序在添加项目按钮的单击事件中通过输入对话框输入要添加的项目内容，在文本框中显示的同时将其用AddItem添加到列表框中；在删除项目按钮中通过输入对话框中输入要删除的项目，并显示在文本框中，利用For循环语句逐一判断列表框中的各项是否与文本框中的内容一致，若一致则用RemoveItem方法删除该项目。ListCount属性可返回列表框中当前的列表项总数，由于循环的初值为0，故终值就应为Lst1.ListCount-1。

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，如表3所列在窗体Form1中画出控件并设置它们的属性。

表3

步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

List1.AddItem Text1.Text

For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Then List1.RemoveItem i

步骤3：按要求将文件保存至考生文件夹中。

【考试误区】列表框中项目的索引号是从0开始的，最后一个项目的索引号应等于Lst1.ListCount-1，而非Lst1.ListCount。

【主要考点】列表框控件及For循环语句。 第2小题

【审题分析】本题程序运行时，单击命令按钮，通过Array()函数返回一个以4个文本框中的数值为元素的数组，并赋值给数组arr1，然后使用For语句将数组arr1中每个元素的数据类型转换为整型并赋给数组arr2具有相同下标的元素，最后以数组arr2为参数调用求最大值的函数过程FindMax。

在FindMax过程中，首先用变量Start 和Finish分别记录下数组a的下界和上界，用变量Max记录下数组a第一个元素的值。然后通过For循环让数组a中的每一个元素逐一与变量Max比较大小，当有数组元素的值大于变量Max时，将其赋值变量Max，最后将变量Max的值作为函数返回值。

【操作步骤】

步骤1：打开考生文件夹下的本题工程文件sjt4.vbp， —30—

在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。

参考代码：

Start = LBound(a) Finish = UBound(a) Max = a(Start)

If a(i)> Max Then Max = a(i)

arr1=Array(Val(Text1.Text),Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

arr2(i) = CInt(arr1(i)) M = FindMax(arr2)

步骤2：按要求将文件保存至考生文件夹中。

【特别提示】调用自定义Function过程FindMax需传递参数为数组变量。 三、综合操作题

【审题分析】本题原程序已提供ReadData和WriteData两个自定义过程，只需编写\读入数据\、\计算并输出\和\存盘\命令的单击事件过程，并在事件过程中调用ReadData和WriteData自定义过程。程序设计思路：在\读入数据\菜单项的Click事件过程中，通过调用ReadData过程将数据从datain1.txt文件读入到数组Arr（窗体变量）中；在\计算并输出\菜单项的Click事件过程中，利用For循环语句（循环变量i的初值为1，终值为100）依次将数组Arr中为奇数的元素的值显示在文本框中（条件表达式为：i Mod 2 <> 0），并将其值累加到变量Sum，循环结束后将结果显示在窗体上。在\存盘\菜单项的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件dataout.txt。

【操作步骤】

步骤1：打开考生文件下的本题工程文件sjt5.vbp，利用菜单设计器，如表4中的设置建立菜单项。

表4

步骤2：在窗体Form1中画一个文本框，其相关属性及

值如表5。

表5

步骤3：在代码编辑窗口，分别编写三个菜单项的

Click事件过程。

参考代码：

Dim Sum As Integer

Private Sub Read_Click() ReadData End Sub

Private Sub Calc_Click() Dim S As String Sum = 0

For i = 1 To 100

If i Mod 2 <> 0 Then Sum = Sum + Arr(i)

S = S & Str(Arr(i)) & \ \ End If Next i

Form1.Text1.Text = S Me.Print \End Sub

Private Sub Save_Click()

WriteData \End Sub

步骤4：按要求将文件保存至考生文件夹中。

【特别提示】在多个过程中使用同一个变量，应将其声明为窗体变量。

第七十四套上机答案解析74

一、基本操作题

第1小题

步骤2：在窗体Form1中画一个文本框，其相关属性及值见表77-5。

表77-5

步骤3：在代码编辑窗口，分别编写三个菜单项的

Click事件过程。

参考代码：

Dim Sum As Integer

Private Sub Read_Click() ReadData End Sub

Private Sub Calc_Click() Dim S As String Sum = 0

For i = 1 To 100

If Arr(i) < 50 Then

Sum = Sum + Arr(i)

S = S & Str(Arr(i)) & \ \ End If Next i

Text1.Text = S

Print \End Sub

Private Sub Save_Click()

WriteData \End Sub

步骤4：按要求将文件保存至考生文件夹中。

【特别提示】在多个过程中使用同一个变量，应将其声明为窗体变量。

第七十八套上机答案解析101

一、基本操作题

第1小题 【知识点播】①用Visual Basic开发应用程序的一般步骤：首先建立用户界面，然后设置窗体及控件属性，最后编写代码。②添加控件的方法有两种：一是先选中工具箱中要添加的控件，然后在窗体上按下鼠标左键并拖动到一定位置后松开；二是通过直接双击工具箱中相应控件的图标来添加控件。③设置控件属性的方法也有两种：一是在设计阶段通过对象的属性窗口来设置；二是通过程序代码在程序运行时来设置。④文本框（Text）：通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。⑤控件的Height和Width属性用于设置控件在屏幕上的大小（即高和宽）。⑥通过属性设置窗口中的Font属性可设置控件标题文本的字体、字号、字形等，在程序设计时Font属性可返回一个Font对象，Font对象包含有格式化文本所需要的信息。⑦窗体的标题由其Caption属性设置，窗体的MaxButton 属性、MinButton 属性决定其标题栏是否显示最大化、最小化按钮，True表示显示，False表示不显示。此外，通过修改窗体的BorderStyle属性（用于设置边框样式），也可实现窗体标题栏是否显示最大化、最小化按钮的效果，其中值设置为3时窗体具有固定大小，包含左侧控制框和标题栏，但没有最大化、最小化按钮。

【审题分析】本题只需按要求建立程序界面并设置窗体和文本框相关属性即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程。

步骤2：单击工具箱中的TextBox控件图标，在窗体Form1上按下鼠标左键并拖动到一定位置后松开，画出一个文本框，如图7所示。

步骤3：选定窗体中的文本框，在属性窗口中设置其相关属性，如图8所示，属性及值如表1所示。

—36—

图7

图8

表1

步骤4：在文本框的属性窗口中点击\属性右侧的

按钮，打开\字体\对话框，在其中设置\字体\为\黑体\，\字号\为\四号\。

步骤5：单击窗体无控件区域，在属性窗口中设置窗体相关属性，属性及值如表1所示。

步骤6：选择【文件】→【保存工程】命令，打开\文件另存为\对话框，如图9所示。在该对话框的\保存在\下拉列表中选择考生文件夹，并在\文件名\文本框中输入vbsj1.frm，单击\保存\按钮，即保存好窗体文件；在接下来的\工程另存为\对话框中，在\文件名\文本框中输入vbsj1.vbp，如图10所示，并单击\保存\按钮，即保存好工程文件。

图9

图10

第2小题

【知识点播】①焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。②对象的SetFocus方法用于将焦点移到指定的对象上。

【审题分析】本题其实就是在两个命令按钮的单击事件过程中，通过使用SetFocus方法使对应文本框获得焦点。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如表2所示。程序界面如图11所示。

表2

图11

步骤2：双击\左\命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入如图12中所示代码。

图12

步骤3：从代码编辑窗口的\对象\下拉列表中选择

cmdRight，从\事件\下拉列表中选择Click，编写以下事件过程。

参考代码：

Private Sub cmdRight_Click() txtRight.SetFocus End Sub

步骤4：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【知识点播】①Alignment属性用于确定文本框中文本的放置方式，其值可以设置为0（靠左，默认）、1（靠右）或2（居中）。②控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。③容器（如窗体和框架）中的单选按钮（OptionButton）组常用于提供多个选项间的唯一选择，其Value属性用于设置或返回每个单选按钮的选中状态：值为False表示未选，值为True表示选中。④Format（数值表达式，格式字符串）函数的功能是按\格式字符串\指定的格式输出\数值表达式\的值。在格式字符串中用0表示数字位，0的个数决定了显示区域的长度，如果要显示的数值的位数小于格式字符串指定的区段长度，则多余的位以0补齐。如果要显示的数值的位数大于指定的区段长度，则数值照原样显示；\表示显示小数点，小数点与0结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。⑤Sin(N)正弦函数用于返回N的正弦值，Cos(N)余弦函数用于返回N的余弦值，其中参数N应为弧度。

【审题分析】本题可通过利用If…Else…语句来判断第一个单选按钮是否被选中，若是则进行正弦运算，否则进行余弦运算。为实现\第4位截去\的功能，可将运算值减去0.0005后再使用Format函数进行格式输出。

【操作步骤】

步骤1：打开考生文件夹中的本题工程文件vbsj3.vbp，程序界面如图13所示。

图13

步骤2：依次选中窗体中的两个文本框，将其Alignment属性值设置为1-Right Justify。

步骤3：双击窗体中的\计算\命令按钮，在打开的代码编辑窗口中编写其单击事件过程。

参考代码：

Private Sub cmdCal_Click()

If optFun(0).Value = True Then

txtResult.Text=Format(Sin(_

Val(txtInput.Text)*3.14159/180) -0.0005,\Else

txtResult.Text = Format(Cos(_

Val(txtInput.Text)*3.14159/180)-0.0005,\End If End Sub

步骤4：按键运行程序，在左侧文本框中输入\，选择不同选项，单击\计算\按钮，结果如图14所示。

图14

步骤5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹中。

【提示】本题程序运行时，单击窗体右上角的关闭按钮将输出计算结果到文件out3.txt中，并以其判断程序编写是否正确。

第2小题

【知识点播】①组合框（ComboBox）将文本框与列 —37—

表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目，ListIndex属性可返回其当前所选项目的索引号；②Trim函数用于删除字符串左右两边的空格；③Right()函数用于取出已有字符串最右边指定个数的字符串；④Left()函数用于取出已有字符串最左边指定个数的字符串； ⑤Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。

【审题分析】本题源程序的中心设计思想是：将文本框txtInput中的字符串按组合框中所选要求进行截取并放入文本框txtResult中。源程序以组合框列表项的索引号（即ListIndex属性值）作为Select Case语句的判断表达式，故第1个？处应为cboLong.ListIndex；组合框中第三项要求截取第3~6个字符，其实就是从字符串的第3个字符开始，截取4个字符，故Mid函数的第2、3个参数应为3和4；最后的？处是将截取结果显示在文本框中，故应为tmpStr。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码：

Select Case cboLong.ListIndex

tmpStr = Mid(Trim(txtInput.Text), 3, 4) txtResult.Text = tmpStr

步骤2：按要求将文件保存至考生文件夹中。

三、综合操作题

【知识点播】①Type语句用于在模块级别中定义一个用户自己的数据类型，其本质上是一个数据类型集合，它含有一个至一个以上的成员，每个成员可以被定义为不同的数据类型。声明自定义类型变量后，可通过\变量名.成员名\来访问自定义变量中的元素。②用Open语句打开随机文件，其语法格式为：Open FileName for Random as #FileNumber Len=记录长度。记录长度是一条记录实际所占字节数，可用Len(记录变量名)函数获取；Get#语句用于从文件中读出某记录号的记录，格式为：Get # FileNumber,[RecordNuber], Var；Put#语句用于把记录按指定记录号写入文件，格式为：Put # FileNumber,[RecordNuber],Var。③LOF函数可返回一个用Open 语句打开的文件的大小，该大小以字节为单位，返回值为Long数据类型。④Do循环语句的功能是：当指定的\循环条件\为True时（使用While关键词）或直到指定的\循环条件\变为True之前（使用Until关键词），重复执行一组语句（即循环体）。

【审题分析】本题源程序设计思路：在\写通信录\命令按钮的单击事件过程中，先用Open语句打开考生文件夹下的随机文件out5.txt，并通过计算得到随机文件现有记录数，存入变量RecNum；然后在Do循环中，为自定义数据类型变量Pers的各元素赋值，用Put语句将该变量的值写入打开的随机文件中（记录号为RecNum+1），并通过输入对话框询问是否要再输入新记录，Do循环以输入对话框中返回值的大写为\作为循环条件。

在\读通信录\命令按钮的单击事件过程中，先用Open语句打开考生文件夹下的随机文件out5.txt，并通过表达式：LOF(1) / Len(Pers)计算得到随机文件现有记录数，存入变量RecNum；然后利用For循环语句（初值为1，终值为RecNum的值），用Get语句读入随机文件中相应记录号的记录，赋值给变量Pers，并将变量Pers各元素的值用Print方法显示在窗体上。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码：

RecNum = RecNum + 1 Put #1, RecNum, Pers

Loop While UCase(asp) = \RecNum = LOF(1) / Len(Pers) Get #1, i, Pers

步骤2：运行程序，单击\写通信录\命令按钮，按照提示依次输入：

LiuXiaoqiang (028)87348765 430065 DengQinghua (021)26874321 300120

步骤3：运行程序，单击\读通信录\命令按钮，在窗体上显示全部记录（共5个）。

步骤4：按要求将文件保存至考生文件夹中。

第七十九套上机答案解析102

一、基本操作题

第1小题

【知识点播】通用对话框（CommonDialog）提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。Action属性用于设置被打开对话框的类型；当通用对话框显示为\打开\或\另存为\类型时，其FileName属性用于返回或设置所选的文件的路径和文件名，Filter（过滤器）属性在对话框显示时提供一个可供选择过滤器列表，从而指定在对话框的文件列表中显示文件的类型，例如，过滤器为*.txt，表示显示所有的文本文件，它的语法为：对象名.Filter =\描述|文件扩展名\。使用管道符（|）将描述与过滤器隔开，同样使用管道符将多个过滤器相互分隔。FilterIndex属性返回或设置\打开\或\另存为\对话框中一个缺省的过滤器，其中第一个过滤器的索引号是1。

在VB6中开始使用新方法来打开不同对话框，同时也保留了对Action属性的支持。表1列出了不同Action属性值代表的对话框类型及其在VB6中的对应方法。

表1

【审题分析】要在单击按钮时弹出\打开文件\

对话框，只需在\打开\按钮的Click事件过程中调用通用对话框的ShowOpen方法即可。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个命令按钮，其相关属性设置如表2所示。

表2

步骤2：选择【工程】→【部件】命令，将弹出的

\部件\对话框如图6所示，从列表中选中\Common Dialog Control6.0\项目，单击\确定\按钮。

—38—

图6

步骤3：双击工具箱新添加的通用对话框（CommonDialog）图标，在窗体中加入一个通用对话框，其相关属性设置如表2所示。也可右击窗体中的通用对话框，选择【属性】命令，在打开的\属性页\对话框中设置其相关属性，如图7所示。

图7

步骤4：双击窗体Form1中的\打开\按钮，在打开的代码编辑窗口中，输入如下代码：

参考代码：

Private Sub cmdOpen_Click() cdlOpen.ShowOpen End Sub

步骤5：按要求将文件保存至考生文件夹中。 第2小题

【知识点播】①文本框的Text属性可返回或设置文本框中显示的内容；SelLength属性可返回或设置文本框中当前选定的字符数；SelStart属性可返回或设置所选文本的起始点，该起始点位于起始文本的左侧；SelText属性可返回含有当前所选择的字符串。②Right()函数用于取出已有字符串最右边指定个数的字符串。③Left()函数用于取出已有字符串最左边指定个数的字符串。④Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数\起始位置\到字符串尾端的所有字符。

【审题分析】本题在\复制\按钮的单击事件过程中，需将文本框txtSrc的SelText属性值赋予文本框txtObj。在\删除\按钮的单击事件过程中，需将文本框txtSrc被选文本左右两侧的文本分别取出，连接（用连字符\）后重新赋予文本框txtSrc。

【操作步骤】

步骤1：新建一个\标准EXE\工程，在窗体Form1中画两个文本框和两个命令按钮，其相关属性设置如表3所示。

表3

步骤2：在代码编辑窗口，分别编写\复制

\和\删除\按钮的单击事件过程。

参考代码：

Private Sub cmdCopy_Click()

txtObj.Text = txtSrc.SelText End Sub

Private Sub cmdDel_Click()

txtSrc.Text = Left(txtSrc.Text, txtSrc. SelStart)& Mid_

(txtSrc.Text, txtSrc.SelStart + txtSrc.SelLength + 1) End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【知识点播】计时器控件用于实现在规则的时间间隔触发其Timer事件，执行有关事件过程代码，来完成对应功能。Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为毫秒，值为0时计时器不启用。Enabled属性控制计时器是否开始启用，值为True时表示启用，值为False时表示不启用。

【审题分析】本题通过计时器的Timer事件来控制直线控件的位置，从而实现钟表上的指针旋转的功能。为使计时器的Timer事件每秒激活一次需将计时器的Interval属性值设置为1000；为使程序刚运行时钟表指针不动需将Enabled属性值设置为False。在\开始\按钮的单击事件过程中，通过设置计时器的Enabled属性值为True来启动计时器。在\停止\按钮的单击事件过程中，通过设置计时器的Enabled属性值为False来停止计时器。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj3.vbp，在属性设置窗口，设置计时器的Interval属性值为1000，Enabled属性值为False。

步骤2：在代码编辑窗口，编写\开始\和\停止\按钮的单击事件过程。

参考代码：

Private Sub cmdStart_Click() tmrClock.Enabled = True End Sub

Private Sub cmdStop_Click() tmrClock.Enabled = False End Sub

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【知识点播】①滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。②滚动条滑块位置改变时将触发其Change事件。

【审题分析】本题要求在单击\开始\按钮时，汽车向右运动，其实质是在\开始\按钮的单击事件过程中启动计时器，故第1个？处应改为True。要通过移动滚动条上的滚动框来改变汽车的运动速度，需在滚动条的Change事件过程中，将滚动条当前Value属性值赋予计时器的Interval属性，第2个？处应改为Timer1。汽车向右移动是在计时器的Timer事件过程中，通过不断增加图片框的Left属性值来实现的，故第3个？处应改为Picture1.Left。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码：

Timer1.Enabled = True

Timer1.Interval = HScroll1.Value Picture1.Left = Picture1.Left + 10

步骤2：按要求将文件保存至考生文件夹中。

三、综合操作题

【知识点播】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。 —39—

②For循环通常用于知道次数的循环，在不知道明确的循环次数的情况下，我们可以用条件来控制循环，While循环和Do循环就是用条件来控制的循环。While…Wend语句的一般语法格式：

While 条件 语句块 Wend

功能：在给定的条件为真（True）时，执行循环中的\语句块\。

③素数的判断准则就是看该数除了1和其本身外是否别无其他约数。

【审题分析】程序设计思路：要找出小于给定数的最大素数，可以定义一个初值比给定数小1的整型变量n，通过调用函数isprime（n），以其返回值不是素数（即Not isprime（n））作为While循环语句的循环条件，在循环体中加入语句：n=n-1实现每执行循环体一次变量n的值减1，当循环结束时n的值即为一个最大素数。

由于本题要求找出三个小于给定数的最大素数，故可通过For循环重复执行三次上述查找最大素数的语句，并将每次查找结果在对应标签中显示出来。

【操作步骤】

步骤1：打开本题对应工程文件vbsj5.vbp。

步骤2：双击窗体Form1上的\计算\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：

参考代码： Dim j As Integer Dim n As Integer

n = Val(txtInput.Text) - 1 For j = 0 To 2

While Not IsPrime(n) n = n - 1 Wend

lblResult(j).Caption = n n = n - 1 Next

步骤3：运行程序，在\给定的素数\对应的文本框中输入12379，并执行\查找\命令，将找到满足条件的三个素数显示在标签中，然后单击关闭按钮结束程序的运行。

步骤4：按要求将文件保存至考生文件夹中。

【考试误区】正确使用循环控制结构是解决此题的关键。

【主要考点】循环控制结构的应用、过程调用。

第八十套上机答案解析103

一、基本操作题

第1小题

【知识点播】&运算符用来强制两个表达式作字符串连接。

【审题分析】本题只需在命令按钮的单击事件过程中，用Print方法将两个文本框中的内容输出到窗体上。

【操作步骤】

步骤1：新建一个\标准EXE\工程，按表1在窗体中画出控件并设置其相关属性。

表1

步骤2：在代码编辑窗口，编写命令按钮的

Click事件过程。

参考代码：

Private Sub cmdDisplay_Click()

Print txtName.Text & \，现年\ txtAge.Text & \岁\

End Sub

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【知识点播】图片框（PictureBox）主要用于显示图片（支持的图形文件有位图（bmp）、图标（ico）、Windows元文件（wmf））或在其上画图，也可用作其他控件的容器，还可使用Print方法在其上直接输出文本。

【审题分析】要实现本题所要求的功能，可在文本框的Change事件过程中，将当前文本框中的文本用Print方法输出到图片框中。

【操作步骤】

步骤1：新建一个\标准EXE\工程，按表2在窗体中画出控件并设置其相关属性。

表2

步骤2：打开代码编辑窗口，编写命令按钮的单击事

件过程。

参考代码：

Private Sub txtIn0put_Change() picOutput.Print txtInput.Text End Sub

步骤3：按要求将文件保存至考生文件夹中。

二、简单应用题

第1小题

【知识点播】①控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。②容器（如窗体和框架）中的单选按钮（OptionButton）组常用于提供多个选项间的唯一选择，其Value属性用于设置或返回每个单选按钮的选中状态：值为False表示未选，值为True表示选中。

【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用For循环语句（循环变量k的初值为0，终值为3）逐一检查单选按钮数组中的每个元素是否被选中，若选中则用变量n记录下选中单选按钮的索引号，即n=k。循环结束后，取消对当前选中单选按钮的选择，变量n增1；接着判断增1后的n值是否为4，若是则将n的值设置为0；最后设置索引号为n的单选按钮被选中。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj3.vbp，按表3在窗体中用\复制\和\粘贴\命令画出包含4个元素的单选数组和1个命令按钮并设置属性。

表3

步骤2：打开代码编辑窗口，去掉程序中的注释符

\，将问号\？\改为正确的内容。

参考代码：

Private Sub CmdNext_Click() For k = 0 To 3

If OptItem(k).Value Then n = k End If Next k

—40—

OptItem (n).Value = False n = n + 1 If n = 4 Then n = 0 End If

OptItem (n).Value = True End Sub

步骤3：按要求将文件保存至考生文件夹中。 第2小题

【知识点播】①UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。②LCase()函数用于将字符串中大写字母转化为小写字母，原本小写或非字母字符保持不变。

【审题分析】本题源程序是在命令按钮的单击事件过程中，用For循环语句和Mid函数逐一取出文本框txtInput中的字符后，根据单选按钮的选择进行相应转换；当选择\大小写互换\时，如果是小写字母就用UCase函数转换为大写，如果是大写字母就用LCase函数转换为小写，如果不是字母就不用转换；当选择\全部大写\时，就用UCase函数将文本框中所有字母转换为大写；当选择\全部小写\时，就用LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框txtResult中。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。

参考代码：

a = Mid$(txtInput.Text, k, 1) ch = ch + LCase(a) txtResult = ch

步骤2：按要求将文件保存至考生文件夹中。 【主要考点】字符串函数。

三、综合操作题

【知识点播】①Type语句用于在模块级别中定义一个用户自己的数据类型，其本质上是一个数据类型集合，它含有一个至一个以上的成员，每个成员可以被定义为不同的数据类型。声明自定义类型变量后，可通过\变量名.成员名\来访问自定义变量中的元素。②用Open语句打开随机文件，其语法格式为：Open FileName for Random as #FileNumber Len=记录长度。记录长度是一条记录实际所占字节数，可用Len(记录变量名)函数获取；Get#语句用于从文件中读出某记录号的记录，格式为：Get # FileNumber,[RecordNuber], Var；Put#语句用于把记录按指定记录号写入文件，格式为：Put # FileNumber,[RecordNuber],Var。③LOF函数可返回一个用Open 语句打开的文件的大小，该大小以字节为单位，返回值为Long数据类型。

【审题分析】本题需在\显示第三个记录\按钮的单击事件过程中，先声明一个自定义数据类型PalType的变量，然后用Open语句打开文件in5.txt，接着用Get#语句读出记录号为3的记录并赋值给自定义类型变量，最后将该变量各元素的值显示在对应文本框中。

【操作步骤】

步骤1：打开考生文件中的本题工程文件vbsj5.vbp，按表4在窗体中画出控件并设置其相关属性。

表4

步骤2：在代码编辑窗口中，编写cmdDisplay_Click

事

件过程。

参考代码：

Private Sub cmdDisplay_Click() Dim pers As PalType

Open \ Get #1, 3, pers

txtName.Text = pers.Name txtTel.Text = pers.Tel txtPost.Text = pers.Post Close #1 End Sub

步骤3：按要求将文件保存至考生文件夹中。

步骤4：按键运行程序，先单击\显示第三个记录\按钮，再单击\保存\按钮。

—41—

件过程。

参考代码：

Private Sub cmdDisplay_Click() Dim pers As PalType

Open \ Get #1, 3, pers

txtName.Text = pers.Name txtTel.Text = pers.Tel txtPost.Text = pers.Post Close #1 End Sub

步骤3：按要求将文件保存至考生文件夹中。

步骤4：按键运行程序，先单击\显示第三个记录\按钮，再单击\保存\按钮。

—41—

本文来源：https://www.bwwdw.com/article/pj25.html