2013年9月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析(4)
第六十一套题干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各分数段的人数，将统计结
果显示在相应的文本框中。结束程序之前，必须单击"保存"按钮，保存统计结果。
注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按"保存"按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。
图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所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
—1—
图4
三、综合操作题
在考生文件夹中有一个工程文件sjt5.vbp，窗体如图5所示。运行程序时，从数据文件中读取学生的成绩。要求编写程序，统计总人数、平均分(四舍五入取整)、及格人数和不及格人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击"保存"按钮，保存统计结果。
注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再单击"保存"按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。
图5
第六十三套题干63
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为"文本框练习"的窗体上画一个名称为Text1的文本框，设置属性，使其宽度为1600、初始内容为空、显示字号为三号，且最多只能输入6个字符。运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为"计算机等级考试"，显示为宋体12号字，且能根据标题内容自动调整标签的大小。再画两个名称分别为"Command1"、"Command2"，标题分别为"放大"、"还原"的命令按钮，如图2所示。
要求：编写适当的事件过程，使得单击"放大"按钮，Label1中所显示的标题内容自动增大两个字号；单击"还原"按钮，Label1中所显示的标题内容自动恢复到12号字。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2
二、简单应用题
(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个控件数组，一个名称为Text，含有三个文本框；另一个名称为Cmd，含有三个命令按钮，且"暂停"按钮的初始状态为不可用。如图3所示。请画一个计时器Timer1，设置时间间隔为1秒，初始状态为不可用，并使程序实现如下功能：
①单击"开始"按钮，则计时器Timer1和"暂停"按钮状态变为可用，且"开始"按钮的标题变为"继续"，且为不可用。与此同时，Text的三个文本框开始显示计时的小时、分、秒值；
②单击"暂停"按钮，则Timer1停止工作，"暂停"按钮变为不可用，"继续"按钮变为可用；
③单击"继续"按钮，则Timer1接着开始工作，"继续"
按钮变为不可用，"暂停"按钮变为可用；
④单击"结束"按钮，则结束程序运行。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图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显示内容中同时含有"t"、"h"、"e"三个字母的单词的个数(如the、there和whatever都属于满足条件的单词)，并将统计结果显示在Text2文本框内。
"读数据"按钮的Click事件过程已经给出，请将"统计"按钮的Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
图5
第六十四套题干64
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序
—2—
(包括界面和代码)。
(1)在名称为Form1、标题为"控件数组"的窗体上，画
一个名称为Cmd1的控件数组，该控件数组由三个命令按钮组成，其标题分别是"插入"、"删除"、"更新"，索引号分别为0、1、2。运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上画一个名称为Text1、内容为"计算机"的文本框，且显示为小四号字；再画三个命令按钮，名称分别为"Command1"、"Command2"、"Command3"，标题分别是"居左"、"居中"、"居右"。如图2所示。
要求：编写三个命令按钮的Click事件过程，使得单击"居左"按钮时，文本框的内容靠左对齐；单击"居中"按钮时，文本框的内容居中对齐；单击"居右"按钮时，文本框的内容靠右对齐。程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2
二、简单应用题
(1)在考生文件夹下有一个工程文件sjt3.vbp，包含两个名称分别为Form1、Form2的窗体。窗体上已有部分控件，请在Form1窗体上再画一个名称为Text1的文本框，初始内容为空，初始状态为不可用(如图3所示)，输入字符时文本框内将显示字符"*"。
程序功能如下：
①单击Form1窗体的"输入密码"按钮，则Text1变为可用，且获得焦点。
②输入密码后单击Form1窗体的"密码校验"按钮，则判断Text1中输入内容是否为小写字符"abc"，若是，则隐去Form1窗体，显示Form2窗体；若密码输入错误，则提示重新输入，三次密码输入错误，则退出系统。
③单击Form2窗体的"返回"按钮，则隐藏Form2窗体，显示Form1窗体。Form2窗体的控件和程序已给出。但Form1窗体的程序不完整，请将程序中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp，窗体如图4所示。程序功能如下：
①单击"读数据"按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中；
②在Text1中选中一部分文本，并单击"统计"按钮，则以不区分大小写字母的方式，自动统计选中文本中单词"the"出现的次数，并将统计结果显示在Text2文本框内。
请将"统计"按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和
程序，最后将程序按原文件名存盘。
图4
三、综合操作题
在考生文件夹下有一个工程文件sjt5.vbp，其功能是：
①单击"读数据"按钮，则把考生文件夹下in5.dat文件
中的100个正整数读入数组a中，同时显示在Text1文本框中；
②单击"分组"按钮，则将数组a中所有3的倍数的元
素存入数组b中，并对数组b中的元素从小到大排序后显示在文本框Text2中。在给出的窗体文件中已经有了全部控件(如图5所示)，但程序不完整。
要求：编写适当的程序部分使其实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行"分组"操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
图5
第六十五套题干65
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为"菜单"的窗体上，设计满
足如下要求的菜单：
生文件夹下，且工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上，画一个名称为Image1
的图像框，左界为360，且图像框中显示考生文件夹下的图片文件"Duck.bmp"；再画两个名称分别为"Command1"、"Command2"，标题分别为"移动"、"复位"的命令按钮，如图2所示。
要求：编写适当的事件过程，使得每单击"移动"按钮一次，图像框向右移动10；单击"复位"按钮，图像框自动回位到左界为360的位置。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
—3—
图2
二、简单应用题
(1)考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有一个名称为Cmd的命令按钮控件数组；有一个名称为Image1的图像框。请画一个名称为Timer1的计时器，时间间隔为3秒，初始状态为不可用，如图3所示。程序功能如下：
①单击"前进"按钮，则Timer1的状态变为可用，且在图像框中黄灯显示3秒(图像文件为考生文件夹下的"yellow.ico")后，显示绿灯(图像文件为考生文件夹下的"green.ico")直至下次单击某个命令按钮；
②单击"停止"按钮，则Timer1的状态变为可用，且在图像框黄灯显示3秒后，显示红灯(图像文件为考生文件夹下的"red.ico")直至下次单击某个命令按钮；
③单击"结束"按钮，则结束程序运行。
请将命令按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
图3
(2)考生文件夹下有一个工程文件sjt4.vbp，其中的窗体上已有如图4所示的控件。程序功能如下：
①单击"读数据"按钮，则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中；
②在Text1中选中部分文本，并单击"统计"按钮，则以不区分大小写字母的方式，自动统计选中文本中同时出现"o"、"n"两个字母的单词的个数(如million、company都属于满足条件的单词)，并将统计结果显示在Text2文本框内。
请将"统计"按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
图4
三、综合操作题
在考生文件夹下有一个工程文件sjt5.vbp，其功能是：
①单击"读数据"按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；
②单击"素数"按钮，则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中，并将数组b中的元素显示在文本框Text2中。
在给出的窗体文件中已经有了全部控件(如图5所示)，但程序不完整。
要求：完善程序使其实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和
程序，在结束程序运行之前，必须先执行"素数"操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
图5
第六十六套题干66
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Shape1的
形状控件，要求在属性窗口中将其形状设置为椭圆，其长轴(水平方向)、短轴(垂直方向)的长度分别为1600、800。
把窗体的标题改为"Shape控件"，窗体上没有最大化按钮、最小化按钮。程序运行后的窗体如图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的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选按钮，即可进行计算，计算结果显示在文本框Text2中，如图3所示。
在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图3
(2)在考生文件夹中有一个工程文件sjt4.vbp。该程序
的功能是将文件in4.txt中的文本读出并显示在文本框Text1中。在文本框Text2中输入一个英文字母，然后单击"统计"
按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果显示在标签Label3中，如图4所示。给出的窗体文件中已经有了全部控件，程序不完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容。
—4—
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图4
三、综合操作题
在考生目录下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为"计算"、"存盘"，如图5所示。有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。
请编写适当的事件过程，使得在运行时，单击"计算"按钮，则找出小于18000的最大的素数，并显示在Text1中；单击"存盘"按钮，则把Text1中的计算结果存入考生目录下的out5.txt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击"存盘"按钮存入out5.txt文件中，否则无成绩。
图5
第六十七套题干67
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Label1、标题为"滚动条控件"的标签，一个名称为HScroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1，最大值为100，滚动条的宽度为3000，高度为300，滚动块的初始位置为20。程序运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时间间隔为0.5秒，窗体如图2所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0.5秒形状控件向下移动100。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2
二、简单应用题
(1)在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时，当向文本框Text2中输入密码时，若"显示密码"复选框没有被选中，则在文本框Text3中同时显示"#"(如图3所示)；若"显示密码"复选框
被选中，再重新输入密码时，则在Text3中同时显示的是密码字符本身。
在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图3
(2)考生文件夹中有一个工程文件sjt4.vbp。该程序的
功能是：程序运行时，向文本框控件数组Text1(有5个文本框)中任意输入5个数，单击名称为Command1的命令按钮，则找出其中最小数并显示在标签lblResult中。给出的窗体文件中已经有了全部控件，但程序不完整，其中函数FindMin 返回两个数中的较小数。要求：去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
三、综合操作题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是：分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数，并将统计结果显示在相应的标签中。请仔细阅读已有程序，然后在标出的位置编写适当的程序实现上述功能。
要求：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后按原文件名存盘。
第六十八套题干68
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Command1、标题为"打开"的命令按钮，然后画一个名称为CD1的通用对话框(如图1所示)，编写适当的事件过程，使得运行程序时，单击"打开"命令按钮，则弹出打开文件对话框。在属性窗口中设置通用对话框的适当属性，使得对话框中显示的文件类型第一项为"所有文件"，第二项为"*.DOC"，默认的过滤器为.DOC文件。
注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上画一个文本框，名称为Text1，其初始内容为0；画一个命令按钮，名称为C1，标题为"开始计数"；再画一个名称为T1的计时器。要求在开始运行时不计数，单击"开始计数"按钮后，使文本框中的数每秒加1。在命令按钮的适当事件过程中加入语句：T1.Enabled=True，并编写适当的事件过程实现这个功能，要求只能写一条语句。运行时的窗体如图2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2
二、简单应用题
(1)在考生文件夹下有一个工程文件sjt3.vbp，它包含两
—5—
个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为"C1"和"C2"的按钮。请把Form1上按钮的标题改为"结束"，把Form2上按钮的标题改为"显示"，并将Form2设为启动窗体，将Form1设为不显示。该程序实现的功能是：在程序运行时显示Form2窗体，单击Form2上的"显示"按钮，则显示Form1窗体；若单击Form1上的"结束"按钮，则关闭Form1和Form2，并结束程序运行。
请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。正确程序运行后的界面如图3所示。
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp，窗体上
有一个名为P1的图片框；一个单选按钮数组，含三个单选
按钮，标题分别为"正方形"、"椭圆形"、"圆形"；还有一个
标题为"显示"的命令按钮。程序的功能是在运行时，如果
选中一个单选按钮后，单击"显示"按钮，则根据单选按钮
的选中情况，在图片框中显示"选择了正方形"、"选择了椭
圆形"或"选择了圆形"，如图4所示。
要求：
①原题中的单选按钮和命令按钮没有标题，请利用属
性窗口依次添加单选按钮标题分别为"正方形"、"椭圆形"、
"圆形"，添加命令按钮标题为"显示"。
②去掉程序中的注释符，把程序中的？改为正确的内
容，使其实现上述功能。
注意：不能修改程序中的其他部分，也不能修改控件
的其他属性。最后把修改后的程序以原文件名存盘。
图4
三、综合操作题
在考生文件夹下有一个工程文件sjt5.vbp。运行程序
时，在文本框中输入一个素数，然后单击"查找"命令按钮，
找出小于给定素数的三个最大的素数，并显示在标签控件
数组Label1中，如图5所示。
要求：工程文件中已给出部分程序，其中的IsPrime
过程用来判断一个数是否为素数。请编写"查找"命令按钮
的事件过程中的部分程序代码。
注意：程序调试通过后，在"给定的素数"对应的文本
框中输入12379，并执行"查找"命令，将找到满足条件的三
个素数显示在标签中，否则没有成绩。不得修改程序的其
他部分和控件属性。最后把修改后的文件按原文件名存盘。
图5
第六十九套题干69
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序
(包括界面和代码)。
(1)在名称为Form1的窗体上添加一个计时器控件，名
称为Timer1。请利用属性窗口设置适当属性，使得在运行
时可以每隔1秒，调用计时器的Timer事件过程一次。另外，
请把窗体的标题设置为"题目2"。设计阶段的窗体如图1所
示。
注意：保存时必须存放在考生文件夹下，工程文件名
为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上画一个文本框，名称为
Text1，无初始内容；再画一个图片框，名称为P1。请编写
适当的事件过程，使得在运行时，在文本框中每输入一个
字符，就在图片框中输出一行文本框中的完整内容，运行
时的窗体如图2所示。程序中不能使用任何变量。
注意：保存时必须存放在考生文件夹下，工程文件名
为sjt2.vbp，窗体文件名为
sjt2.frm
图2
二、简单应用题
(1)在考生目录下有一个工程文件sjt3.vbp，窗体上有
一个单选按钮数组，含三个单选按钮，均没有标题，请利
用属性窗口，为单选按钮依次添加标题为"北京"、"上海"、
"广州"；再添加一个标题为"显示"的命令按钮，如图3所示。
程序的功能是在运行时，如果选中一个单选按钮后，单击"
显示"按钮，则根据单选按钮的选中情况，在窗体上显示"
我的出生地是北京"、"我的出生地是上海"或"我的出生地是
广州"。要求如下：
①依次添加单选按钮标题为"北京"、"上海"、"广州"；
设初始选中的是"上海"，添加命令按钮标题为"显示"。
②去掉程序中的注释符，把程序中的？改为正确的内
容，使其实现上述功能，但不能修改程序中的其他部分，
也不能修改控件的其他属性。
最后把修改后的文件按原文件名存盘。
图3
(2)在考生目录下有一个工程文件sjt4.vbp，请在
Form1窗体中画三个标签，名称分别为B1、B2、L1，标题
分别为"字号"、"字体"、"计算机等级考试"，其中L1的高为
500，宽为3000；再在B1、B2标签的下面画两个组合框，
名称分别为Cb1、Cb2，并为Cb1添加项目："10"、"15"、"20"，
为Cb2添加项目："黑体"、"隶书"、"宋体"。请编写适当的
事件过程，使得在运行时，当在Cb1中选一种字号、Cb2中
选一种字体时，标签L1中的文字立即变为选定的字号和字
体。如图4所示。
注意：考生不得修改窗体文件中已经存在的程序，在
结束程序运行之前，必须选择一种字号和字体。必须用窗
体右上角的关闭按钮结束程序，否则无成绩。最后，按原
文件名存盘，程序中不得使用任何变量。
图4
三、综合操作题
在考生目录下有一个工程文件sjt5.vbp，其窗体上有
一个文本框，名称为Text1；还有两个命令按钮，名称分别
为C1、C2，标题分别为"计算"、"存盘"，如图5所示。并有
一个函数过程isprime(a)可以在程序中直接调用，其功能是
判断参数a是否为素数，如果是素数，则返回True，否则返
回False。请编写适当的事件过程，使得在运行时，单击"
计算"按钮，则找出大于15000的第一个素数，并显示在
—6—
—7—
Text1中；单击"存盘"按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt 文件中。
注意：考生不得修改isprime 函数过程和控件的属性，必须把计算结果通过单击"存盘"按钮存入out5.txt 文件中，否则无成绩。
图5
第七十套题干70
一、基本操作题
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为100、最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边的按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为"操作"，名称为m1，此菜单下含有两个菜单项，名称分别为Copy 和Clear ，标题分别为"复制"、"清除"，请编写适当的事件过程，使得在运行时，单击"复制"菜单项，则把Text1中的内容复制到Text2中，单击"清除"菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2
二、简单应用题
(1)在考生目录下有一个工程文件sjt3.vbp ，窗体上已经有一个标签Label1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为"飞机"、"火车"、"汽车"，再画一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车去"，如图3所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图3
(2)在考生目录下有一个工程文件sjt4.vbp ，Form1窗体中有一个文本框，名称为Text1；请在窗体上画两个框架，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中画两个单选按钮Op1、Op2，标题分别为"男"、"女"；在F2中画两个单选按钮Op3、Op4，标题分别为"学生"、"教师"；再画一个命令按钮，名称为C1，标题为"确定"。如图4所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个单选按钮，然后单击"确定"按钮，就可以按照表1把结果显示在文本框中。
表
1
最后把修改后的文件按原来的文件名存盘。
注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。
图4
三、综合操作题
数列1，1，2，3，5，8，13，21，…的规律是从第三个数开始，每个数是它前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp 。窗体中已经给出了所有控件，如图5所示。请编写适当的事件过程完成以下功能：选中一个单选按钮后，单击"计算"按钮，则计算出上述数列的第n 项的值，并显示在文本框中，n 是选中的单选按钮后面的数值。(提示：因计算结果较大，应使用长整型变量。)
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击"计算"按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
图5
第七十一套题干71
一、基本操作题
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个标签，名称为L1，标签上显示"请输入密码"，画一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性使得在输入密码时，文本框中显示"*"字符，此外再把窗体的标题设置为"密码窗口"，以上这些设置都必须在属性窗口中进行，运行时的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1
(2)在名称为Form1的窗体上画一个图片框，名称为P1，请编写适当的事件过程，使得在运行时，每单击一次图片框，就在图片框中输出"单击图片框"，每单击图片框外的窗体一次，就在窗体中输出"单击窗体"，运行时的窗体如图2所示。要求程序中不得使用变量，每个事件过程中
—8—
只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2
二、简单应用题
(1)在考生目录下有一个工程文件sjt3.vbp ，窗体中有两个图片框，名称分别为P1、P2，其中的图片分别是一个航天飞机和一朵云彩，还有一个计时器，名称为Timer1，一个命令按钮，名称为C1，标题为"发射"。并给出了两个事件过程，但并不完整，要求：
①设置计时器的属性，使其在初始状态下不计时； ②设置计时器的属性，使其每隔0.1秒调用Timer 事件过程一次。
③去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时单击"发射"按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图3所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp ，运行情况如图71-4所示。程序的功能是计算表达式的值：
z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N 。
其中N 和x 的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击名称为Command1、标题为"计算"的命令按钮，则计算表达式z 的值，并将计算结果显示在名称为Label1的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn 进行幂运算。程序至少运行一次，按照图4输入数据，使N=5，x=10，单击"计算"按钮，计算z 的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。
图4
三、综合操作题
在考生文件夹中有一个工程文件sjt5.vbp 。该程序的功能是从in5.txt 文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将统计和查找的结果分别显示在标签Label3和Label4中(窗体外观如图5所示)。程序不完整，请在指定的位置把程序补充完整。
注意：不得修改原有程序和控件的属性。在结束程序运行前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
图5
第七十二套题干72
一、基本操作题
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个标签，名称为L1，标题为"业余爱好"，再画一个名称为Ch1的复选框数组，含三个复选框，它们的Index 属性分别为0、1、2，标题依次为"体育"、"音乐"、"美术"，请设置复选框的属性，使其初始状态见表1。
表
1
运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1
(2)在名称为Form1的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为"操作"，名称为M1，此菜单下含有两个菜单项，名称分别为Show 和Hide ，标题分别为"显示"、"隐藏"，请编写适当的事件过程，使得在运行时，单击"隐藏"菜单项，则文本框消失；单击"显示"菜单项，则文本框显示出来。运行后的窗体如图2所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2
二、简单应用题
(1)在名称为Form1的窗体上画一个名称为L1的标签，标题为"口令"；画两个文本框，名称分别为Text1、Text2，都没有初始内容；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为"显示口令"、"隐藏口令"、"复制口令"，在开始运行时，向Text1中输入的所有字符，都显示"*"，单击"显示口令"按钮后，在Text1中显示所有字符，再单击"隐藏口令"后，Text1中的字符不变，但显示的都是"？"，单击"复制口令"后，把Text1中的实际内容复制到Text2中，如图3所示。
要求：
①在属性窗口中，把窗体的标题改为"口令窗口"。 ②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。
存盘时，工程文件名为sjt3.vbp ，窗体文件名为sjt3.frm 。
图3
(2)在名称为Form1的窗体上画一个名称为P1的图片
框，并利用属性窗口把考生目录中的图标文件Open.ico放到图片框中；再画一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为"打开文件"，文件类型为"Word文档"，初始目录为C盘根目录。再编写适当的事件过程，使得在运行时，单击P1图片框，可以打开上述对话框。运行后的窗体如图4所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。程序中不得使用任何变量。
图4
三、综合操作题
在考生文件夹下有工程文件sjt5.vbp，窗体上有两个标题分别是"读数据"和"统计"的命令按钮，请添加一个名称为Label1、标题为"回文的个数为"的标签和一个名称为Text1，初始值为空的文本框，如图5所示。程序功能如下：
①单击"读数据"按钮，则将考生文件夹下in5.dat文件的内容读到变量s中。
②单击"统计"按钮，则统计in5.dat文件(该文件中仅含由空格间隔开的字母串)中回文的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的字符串，如"recycer")。"读数据"按钮和"统计"按钮的Click 事件过程已经给出，请完善Function过程foundhuiwen的功能，实现上述程序功能。
注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
图5
第七十三套题干73
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为"身高"和"体重")、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为"输入")。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来，运行后的窗体如图1所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上画一个图片框(名称为
Picture1)、一个垂直滚动条(名称为VScroll1)和一个命令按钮(名称为Command1，标题为"设置属性")，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的宽度与图形的宽度相同，图片框的高度任意(如图2(a)所示)。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
Min=100
Max=2400
LargeChange=200
SmallChange=20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图2 (b)所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
(a) (b)
图2
二、简单应用题
(1)在考生目录下有一个工程文件sjt3.vbp(相应的窗
体文件名为sjt3.frm)，请装入该文件，在窗体上画两个命令按钮(其名称分别为Command1和Command2，标题分别为"
添加项目"和"删除项目")，再画一个列表框(名称为List1)和一个文本框(名称为Text1)，如图73-3(a)所示。编写适当的事件过程。程序运行后，如果单击"添加项目"命令按钮，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果单击"删除项目"命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。
程序的运行情况如图3(b)所示。提供的窗体文件可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行，但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
(a) (b)
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的
窗体文件名为sjt4.frm)，其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最大值，并在窗体上显示出来(如图4所示)。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图4
三、综合操作题
考生文件夹下有一个工程文件sjt5.vbp，请在窗体上建立含有三个菜单项的菜单(菜单项名称分别为Read、Calc 和Save，标题分别为"读入数据"、"计算并输出"和"存盘")，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)(如图5所示)。程序运行后，
—9—
如果单击"读入数据"按钮，则调用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)所
示。编写窗体的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)
—10—
—11—
所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为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 事件过程。程序运行后，如果按"A"键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按"D"键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图3(b)所示。在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(a) (b)
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average 求数组的平均值，请装入该文件。程序运行后，在四个文本框中各输入一个整数，然后单击"求平均值"按钮，即可求出数组的平均值，并在窗体上显示出来(如图4所示)。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图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应用程序
(包括界面和代码)。
(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)所示)。这个程序不完整，请把它补充完整，并能正确运行。
—12—
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(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上。
注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为
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，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答"Y"(或"y")则输入新记录，回答"N"(或"n")则停止输入；
如果单击"读通信录"命令按钮，则可以随机存取方式打开文件out5.txt，读出文件中的全部记录，并在窗体上显示出来，如图6所示。该程序不完整，请把它补充完整。
—13—
图6
要求：①去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。②文件out5.txt中已有3个记录，请运行程序，单击"写通信录"命令按钮，向文件out5.txt中添加以下两个记录(全部采用西文方式)：
LiuXiaoqiang (028)87348765 430065
DengQinghua (021)26874321 300120
③运行程序，单击"读通信录"命令按钮，在窗体上显示全部记录(共5个)。④用原来的文件名保存工程文件和窗体文件。
第七十九套题干102
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为cmdOpen、标题为"打开"的命令按钮，然后画一个名称为cdlOpen的通用对话框(如图1所示)，编写适当的事件过程，使得运行程序时，单击"打开"命令按钮，则弹出打开文件对话框。在属性窗口中设置通用对话框的适当属性，使得对话框中显示的文件类型第一项为"所有文件"，第二项为"*.DOC"，默认的过滤器为.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事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其它控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。
图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所示。程序中不能使用任何变量。
—14—
图2
注意：保存时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm
二、简单应用题
(1)在考生目录下有一个工程文件vbsj3.vbp，窗体上有一个命令按钮cmdNext(标题为"下一个")。
要求：在窗体上建立一个单选按钮数组optItem，含4个单选按钮，标题分别为"A"、"B"、"C"、"D"，初始状态下，"A"为选中状态。如图3所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图3
(2)在考生文件夹下有一个工程文件vbsj4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtInput中输入若干个大写和小写字母，并选中一个单选按钮，再单击"转换"按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图4所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程
序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图4
三、综合操作题
在考生文件夹下有一个工程文件vbsj5.vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为lblName、lblTel和lblPost，标题分别为"
姓名"、"电话号码"和"邮政编码"。再画三个文本框，其名称分别为txtName、txtTel和txtPost，初始内容均为空白，如图5所示。程序运行后，如果单击"显示第三个记录"命令按钮，则读取考生文件夹下in5.txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件，共有5个记录)。单击"保存"
按钮，则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。请编写"显示第三个记录"按钮的Click事件过程，以实现上述功能。
注意：考生不得修改已经存在的程序，必须用"保存"
按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。
图5
—15—
—16—
上机题答案解析
第六十一套上机答案解析61
一、基本操作题
第1小题
【知识点拔】BackColor 属性用于设置窗体的背景颜色。Caption 属性用于设置或返回窗体标题栏中显示的信息。
【审题分析】本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor 属性值为"&HFF&"。
【操作步骤】
步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表1所示。
表
1
步骤2：打开代码编辑窗口，编写按钮的Click 事件过程中。
参考代码：
Private Sub C1_Click()
Form1.BackColor = &HFF& End Sub
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】当形状控件的Shape 属性值是3时显示为圆；形状控件的填充色样式通过FillStyle 属性设置，其中0为实线、1为透明、2为水平线、3为垂直线、4为向上对角线、5为向下对角线、6为交叉线、 7为对角交叉线，缺省值为1。要通过单击列表框中的项目，来改变形状控件的填充样式，需在列表框的Click 事件过程中，用语句将列表框中所选的值（通过其Text 属性返回）作为形状控件的填充参数。
【操作步骤】
步骤1：新建一个"标准EXE"工程。
步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表2设置它们的相关属性。
表
2
步骤3： 打开代码编辑窗口，编写列表框的Click 事件过程：
参考代码：
Private Sub List1_Click()
Shape1.FillStyle = List1.Text End Sub
步骤4：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】判断整数A 能被整数B 整除的条件表达式为：A Mod B=0。本题原程序在"计算数据"的单击事件过程中，通过For 循环逐一判断单选按钮数组中的每个元素是否选中，用变量y 记录选中单选按钮所标识的数字，并调用过程"calc"计算满足条件的正整数。
在过程"calc"中，通过Do 循环依次判断大于文本框中数的正整数是否能被变量y 整除，将能被整除的前5个数添加到列表框List1中。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt3.vbp ，在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
If Option1.Item(i) = True Then y = Val(Option1(i).Caption) Do While i <=5 List1.AddItem x
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题原程序利用计时器的Timer 事件来控制图片的移动，因此单击"开始"按钮启动计时器，而单击"停止"按钮就是要停止计时器。在计时器的Timer 事件过程中，通过每次使图片框的Top 属性值增量200实现移动，并让垂直滚动条滑块的位置随图片框的Top 属性值变化。当图片顶端移动到距窗体的下边界的距离少于200时（即VScroll1.Value + 200 >= Form1.Height - 200）时，则重新从窗体顶端开始移动，即Picture1.Top = 0。由于题目要求不能在设计阶段修改控件属性，要想在单击"开始"按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval 属性，即Timer1.Interval = 500。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp 。 步骤2：进入代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
Timer1.Interval = 500
VScroll1.Value = Picture1.Top Picture1.Top = 0
步骤3：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题要求编写"统计"按钮的单击事件过程。程序设计思路：在一个For 循环中逐一取出存于数组arr 中的各学生成绩，用Select Case 语句对取出的某学生成绩进行判断，根据成绩所属情况，使对应文本框中的数增1。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp ，在代码编辑窗口的指定位置编写以下代码：
参考代码： Text1.Text = n count1 = 0 count2 = 0 count3 = 0 count4 = 0 count5 = 0 count6 = 0 For i = 1 To n
y = Int(arr(i) / 10) Select Case y
Case 1, 2, 3, 4, 5
count1 = count1 + 1 Case 6
count2 = count2 + 1 Case 7
count3 = count3 + 1 Case 8
count4 = count4 + 1 Case 9, 10
count5 = count5 + 1 End Select Next
Text2.Text = count1 Text3.Text = count2 Text4.Text = count3 Text5.Text = count4 Text6.Text = count5
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按
—17—
第六十二套上机答案解析62
一、基本操作题
第1小题
【审题分析】本题需在命令按钮的单击事件过程中，通过修改按钮的Width 属性来改变命令按钮的宽度。
【操作步骤】
步骤1：新建一个"标准EXE"工程，如表1在窗体中画出控件并设置其相关属性。
表1 对象属性设置
步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub C1_Click()
C1.Width = C1.Width + 100 End Sub
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【知识点拔】①形状控件（Shape ）提供了显示一些规则图形的简易方法。通过设置形状控件Shape 属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。②Width 属性用于设置形状的宽度，当形状为圆时即为圆的直径。
【审题分析】要通过单击列表框中的项目，来改变形状控件的形状，需在列表框的Click 事件过程中，用语句将列表框中所选的值（通过其Text 属性返回）作为形状控件的Shape 参数。
【操作步骤】
步骤1：新建一个"标准EXE"工程。
步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表2设置它们的相关属性。
表
2
步骤3： 打开代码编辑窗口，编写列表框的Click 事件过程：
参考代码：
Private Sub L1_Click()
Shape1.Shape = L1.Text End Sub
步骤4：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【知识点拔】调用过程有两种方式：一种是过程名 参数1，参数2，…；另一种是Call 过程名(参数1，参数2，…)。
【审题分析】本题原程序在"计算"按钮的单击事件过程中，逐一检查单选按钮数组两元素（Option1.Item(i)即是Option1(i)）是否选中，将选中单选按钮的索引号作为参数调用过程calc ，在标签Label2中显示该单选按钮的标题（即Caption 属性值）。过程calc 用以按选定的"计算类别"计算小于或等于输入数据的奇数和或偶数和，其中参数c=0为计算奇数和、参数c=1为计算偶数和。最后在标签Label3中显示计算结果result 。
输入数据x=Val(Text1.Text) ，循环变量i 为奇数的条件表达式为i Mod 2 = 1，循环变量i 为偶数的条件表达式为i Mod 2 = 0。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp ，在
代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码： Call calc(i)
Lbl2.Caption = Option1(i).Caption x = Val(Text1.Text) If i Mod 2 = 1 Then Label3.Caption = result
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题原程序利用计时器的Timer 事件来控制图片的移动，因此单击"开始"按钮启动计时器，而单击"停止"按钮就是要停止计时器。在计时器的Timer 事件过程中，通过每次使图片框的Left 属性值增量200实现移动，并让水平滚动条滑块的位置随图片框的Left 属性值变化。当图片完全移出窗体的右边界（即Picture1.Left > Form1.Width ）时，则重新从窗体左边界开始移动，即Picture1.Left = 0。由于题目要求不能在设计阶段修改控件属性，要想在单击"开始"按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval 属性，即Timer1.Interval = 500。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp 。 步骤2：进入代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
Timer1.Enabled = False Timer1.Interval = 500
If Picture1.Left > Form1.Width Then Picture1.Left = 0
步骤3：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题原程序中使用变量n 来保存数组中的元素个数，在循环开始前首先设置累加和变量Sum 、计数器变量count1和count2的初值均为0，然后利用For 循环遍历整个数组，依次取出数组的每一个元素进行判断是否小于60，若小于60则count1加1，否则count2加1，不管判断结果如何，都将这个数组元素加入累加和变量Sum 。这样当循环结束后，count1中存放的就是不及格学生个数，count2中就是及格学生个数，累计和Sum 除以数组元素数n 就是数组平均值，分别将它们显示在文本框中。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp ，打开代码编辑窗口，编写"统计"按钮的单击事件过程。
参考代码： Text1.Text = n Sum = 0 count1 = 0 count2 = 0 For i = 1 To n
Sum = Sum + arr(i) If arr(i) < 60 Then
count1 = count1 + 1 Else
count2 = count2 + 1 End If
Avg = Sum / n Next
Text2.Text = Int(Avg + 0.5) Text3.Text = count1 Text4.Text = count2
步骤2：按要求将文件保存至考生文件夹中。
第六十三套上机答案解析63
一、基本操作题
第1小题
【知识点拔】MaxLength 属性用来设置允许在文本框中输入的最多字符数。
【审题分析】本题只需按要求在窗体中画出控件并设置其属性。
【操作步骤】
步骤1：新建一个"标准EXE"工程，在窗体中画出一个
—18—
文本框，并如表1设置其及窗体相关属性。
表
1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】程序运行时要改变标签的标题的字体大小，可通过修改其FontSize 属性值来实现。
【操作步骤】
步骤1：新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。
表2
步骤2：打开代码编辑窗口，编写两个命令按钮的Click 事件过程。
参考代码：
Private Sub Command1_Click()
Label1.FontSize = Label1.FontSize + 2 End Sub
Private Sub Command2_Click() Label1.FontSize = 12 End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题原程序在Cmd 按钮数组的单击事件过程中，通过Select Case 语句对按钮数组的索引号（即Index 参数，第一个？处应为Index ）进行检查，若索引号为0则启动计时器（第两个？处为True ），并且将该按钮的标题设置为"开始"/"继续"，该按钮禁用（第三个？处为False ），"暂停"按钮变为有效；若索引号为1则停止计时器，该按钮禁用，"开始"/"继续"按钮变为有效；若索引号为2则结束程序。
计时器启动时，每隔1秒执行一次Timer 事件过程，记录秒数的数组元素t(3)的值就增1，若t(3)的值增至60，则记录分钟的数组元素t(2)的值就增1，而t(3)清零，若t(2)的值增至60，则记录小时的数组元素t(1)的值就增1，而t(2)清零。每次执行Timer 事件过程，都通过一个For 循环将数组t 各元素的值显示在对应文本框数组中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp ，在窗体上画一个计时器控件，其名称设置为Timer1，Interval 属性值设置为1000，Enabled 属性值设置为False 。
步骤2：打开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
Select Case Index
Timer1.Enabled = True Cmd(0).Enabled = False If t(3) = 60 Then
Text1(i - 1).Text = t(i)
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题"计算"按钮的单击事件过程源代码设计思路：利用For 循环语句（初值为0，终值为20）来控制二维数组的行，在每一行中首先假设第一个元素（a(i,1)）为本行最大值，接着通过一个内嵌的For 循环依次判断该行的2~5列元素是否大于最大值，若比最大值大那么该元素就是本行新的最大值，内循环结束后即可求出该行最大值，将其累加到累加和中，外循环结束后用累加和除以行数就可以得到平均值。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt4.vbp 。 步骤2：打开代码编辑窗口，编写"计算"按钮的单击事件。
参考代码：
If Len(Text1) = 0 Then
MsgBox "请先执行"读数据"功能！" Else
For i = 1 To 20 Max = a(i, 1) For j = 2 To 5
If a(i, j)>Max Then Max = a(i, j) Next j
s = s + Max Next i
Avg = s / 20 Text2 = Avg End If
步骤3：按
三、综合操作题
【知识点拔】Instr(n,s1,s2)函数用于查找字符串s2在s1中第一次出现的位置，其中n 为开始查找的起始字符位置，若未找到返回0。若缺省n ，默认从第一个字符找起。
【审题分析】本题原程序在"统计"按钮的Click 事件过程中，先检验文本框Text1（已赋值给变量s ）中是否读入数据，并以空格为单词分隔依据找出每个单词。然后将找出的单词转换成小写，用InStr 函数检查该单词中是否同时含有字母t 、h 、e ，若该单词满足条件则用于统计满足条件单词个数的变量m 的值增1。最后将结果显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp ，在窗体Form1中画一个标签和一个文本框，其属性和值如表3所示。
表
3
步骤2：打开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
If Len(s) = 0 Then If c <> " " Then x = LCase(t) m = m + 1
步骤3：按要求将文件保存至考生文件夹中。
步骤4：按
第六十四套上机答案解析64
一、基本操作题
第1小题
【审题分析】本题只需按题目要求画出含三个元素的按钮数组，并分别设置Caption 属性。
【操作步骤】
步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
—19—
表
1
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】控件数组画法。 第2小题
【知识点拔】①Alignment 属性用于确定文本框中文本的放置方式，其值可以设置为0（靠左，默认）、1（靠右）或2（居中）。②FontSize 属性用来将文本格式设置成相应的字号。
【审题分析】本题需分别在三个命令按钮的Click 事件过程中，设置文本框的Alignment 属性为对应值。
【操作步骤】
步骤1：新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。
表
2
步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。
参考代码：
Private Sub cmdLeft_Click() txtComputer.Alignment = 0 End Sub
Private Sub CmdCenter_Click() txtComputer.Alignment = 2 End Sub
Private Sub CmdRight_Click() txtComputer.Alignment = 1 End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】根据题目原程序，判断文本框Text1输入的密码是否为"abc"的条件表达式为：Text1.Text = "abc"；每次密码输入错误的时候都令全局变量n 加1，当n=3的时候弹出消息框并结束程序的运行；如果密码校验通过则调用Form1的Hide 方法隐藏窗体，调用Form2的Show 方法显示窗体。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp ，如表3在窗体中画出控件并设置属性。
表
3
步骤2：打开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。 参考代码：
Text1.Enabled = True If Text1 <> "abc" Then If n = 3 Then Form1.Hide Form2.Show
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题原程序在"统计"按钮的Click 事件过程中，先检验文本框Text1中是否读入数据（条件表达式为len(s)=0），再检查是否在文本框Text1中选中文本（条件表达式为Text1.SelLength=0），并以空格为单词分隔依据找出每个单词。然后将找出的单词转换成小写，并判断该单词是否为"the"，若该单词满足条件则用于统计满足条件单词个数的变量m 的值增1。最后将结果显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp ，在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
If Len(s) = 0 Then
If Text1.SelLength = 0 Then If LCase(t) = "the" Then Text2.Text = Str(m)
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】设计思路：通过For 循环逐一判断数组a 的每一个元素是否能被3整除。每找到一个3的倍数，则将记录数组b 元素个数的变量num 增1，并将当前数组元素a(i)的值赋予数组元素b(num)，从而生成数组b 。
当数组b 生成后，依据"冒泡法"原理，利用一个嵌套For 循环对数组b 中的元素从小到大排序。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt5.vbp ，在代码编辑窗口指定位置编写以下代码：
参考代码：
For i = 1 To 100
If a(i) / 3 = Fix(a(i) / 3) Then num = num + 1 b(num) = a(i) End If Next
For i = 1 To num - 1 For j = i + 1 To num If b(i) > b(j) Then tem = b(i) b(i) = b(j) b(j) = tem End If Next Next
步骤2：按
步骤3：按要求将文件保存至考生文件夹中。
第六十五套上机答案解析65
一、基本操作题
第1小题 【【审题分析】本题只需按题目要求利用VB 菜单设计器建立一个二级菜单。
【操作步骤】
步骤1：新建一个"标准EXE"工程，把窗体的标题改为"菜单"，然后利用菜单设计器如表1在窗体上建立一个二级菜单。
表1 控件属性设置
—20—
步骤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），并以空格为单词分隔依据找出每个单词。然后将找出的单词转换成小写，并判断该单词是否同时出现了"o"和"n"，若该单词满足条件则用于统计满足条件单词个数的变量m 的值增1。最后将结果显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp ，在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：
If Len(s) = 0 Then 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 事件。要实现单击列表框中的某一项，就改变滚动条
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
大学VB考试题库
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/7f12015116.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
全国计算机等级考试二级VB笔试试题及答案
2009年9月全国计算机等级考试二级VB笔试试题及答案 一、选择题（每小题2分，共70分） 一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈 答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树 答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针 答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量
C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数 答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案A 7.软件详细设计产生的图如下 该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案C 8.数据库管理系统是（）。
VB上机综合测试题(十五套)
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
vb练习题及答案.doc
vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23
25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb
计算机二级VB考试题及答案
计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If
Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1
Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)
VB上机程序调试题_题目及参考答案
第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
vb试题及答案
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
VB考试题及答案
VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
vb题库及答案
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
2017年计算机二级考试VB重点-VisualBasic的特点
2017年计算机二级考试VB重点:Visual Basic的特点 一、Visual Basic的特点和版本 (一)Visual Basic 的特点 Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。 总的来看，Visual Basic有以下主要特点： 1.可视化编程 2.面向对象的程序设计 3.结构化程序设计语言 4.事件驱动编程机制 5.访问数据库 6.动态数据交换(DDE) 7.对象的链接与嵌入(OLE) 8.动态链接库(DLL) 9.建立用户自己的ActiveX 控件 10.建立ActiveX 文档
11」nternet 组件下载 12.枚举类型 (二)Visual Basic 的版本 Visual Basic6.0包括3种版本，分别为学习版、专业版和企业版。 (1)学习版:Visual Basic的基础版本，可用来开发Windows应用程序。该版本包括所有的内部控件(标准控件)、网络(Grid)控件、Tab对象以及数据绑定控件。 (2)专业版:该版本为专业编程人员提供了一整套用于软件开发、功能完备的工具。它包括学习版的全部功能，同时包括ActiveX控件、In ternet 控件、Crystal Report Writer 和报表控件。 (3)企业版:可供专业编程人员开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能，同时具有自动化管理器、部件管理器、数据库管理工具、Microsoft Visual SourceSafe 面向工程版的控制系统等 二、Visual Basic的启动与退出 开机并进入中文Win dows 后，可以用多种方法启动Visual Basic。 第一种方法：使用“开始”菜单中的“程序”命令。操作如下： (1)单击Windows 环境下的“开始”按钮，弹出一个菜单，把光标移到“程序”命令上，将弹出下一个级联菜单； (2)把光标移到“ Microsoft Visual Basic6.0 中文版”，弹出下一个级联菜单，即Visual Basic6.0程序组；
vb经典题目及答案
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
计算机二级考试《VB》模拟试题及答案
计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。
“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9
计算机二级VB考试试题
站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108