第01套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1、标题为“滚动条”的窗体上画一个名称为HScroll1的水平滚动条，刻度值范围为1--100；再画两个标签，其名称分别为Label1、Label2，标题分别为“1”、“100”。运行后的窗体如图所示。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上用形状控件画一个圆，名称为Shape1。其直径为1000（高、宽均为1000）；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“红色”、“绿色”。
要求：编写两个按钮的Click事件过程，使得单击“红色”按钮，则圆的边线的颜色变为红色（为相关属性赋值：&HFF&）；单击“绿色”按钮，则圆的边线的颜色变为绿色（为相关属性赋值：&HC000&）。在程序中不得使用变量，事件过程中只能写一条语句。运行时的窗体如图所示。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生目录下有一个工程文件sjt3.vbp，窗体上有两个命令按钮，其中“读数据”按钮的名称是Command1，“统计”按钮的名称是Command2；还有一个文本框。请画三个单选按钮，其名称分别是：Option1、Option2、Option3，标题分别是“统计大写字母数”、“统计小写字母数”、“统计空格字符数”，如图所示。
程序运行时，请按以下顺序操作：
1）单击“读数据”按钮，把考生目录下的文件in3.dat 中的所有内容读到变量s中（此过程已经给出）；
2）选择一个单选按钮；
3）单击“统计”按钮，则可按选中的单选按钮的标题要求对s中的字符进行统计，结果放到文本框中（要求考生编写程序）；
4）单击窗体右上角的关闭按钮结束程序。
“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。
注意：
考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次统计，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存
盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp。程序功能是：在程序运行时，显示红灯，汽车不动；单击“开始”按钮后，显示绿灯，汽车向右运动；
单击右边命令按钮中的一个方向按钮后，则汽车向该按钮上箭头所示的方向移动（如图所示）；单击“停止”按钮，则显示红灯，汽车停止运动。
在窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的？改为正确的内容。
提示：
两个图片框Picture1、Picture2分别装入了红灯亮和绿灯亮的图片，并重叠在一起，要使哪种灯亮，就使相应的图片框为可见，另一图片框为不可见。汽车的移动是由计时器按一定时间间隔移动汽车所在的图片框来实现的。
注意：
不能修改程序的其他部分和控件属性。最后把修改后
的文件按原文件名存盘。
3. 综合应用（1小题，计30分） 若两个素数a 、b 之间没有其他素数，则称a 、b 为相邻的素数。
在考生目录下有一个工程文件sjt5.vbp 。窗体中已经给出了所有控件，如图所示。 从左到右的三个文本框名称分别为Text2、Text1、Text3；三个命令按钮的名称分别为Command1、Command2、Command3。本程序的功能是：单击“读入数据”按钮，则从文件in5.dat 中读入一个整数x 放入Text1（ 中间的文本框）中；单击“找素数”按钮，则找出一对相邻素数a 、b ，使得满足以下条件： a≤x
已经给出了部分程序，其中函数isprime(x)的功能是判断整数x 是否为素数，若是，则返回True ，否则返回False 。请编写“找素数”按钮的Click 事件过程，找到满足要求的相邻素数。
注意：
不得修改原有程序和控件的属性。在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5.dat 文件，否则
无成绩。最后把修改后的文件按原文件名存盘。
第02套
※※※※※※※※※※※※※※※※※※※※※※※※※ 1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上用名称为Shape1的形状控件画一个椭圆，高、宽分别为1000、2000。请设置适当的属性满足以下要求： 1）椭圆的边线为红色（把相应的属性设置为：&H000000FF& 或 &HFF&）；
2）窗体的标题为“椭圆”，窗体的最大化按钮不可用。 运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm
。
（2）在文件名为sjt2.vbp 的工程文件中建立两个窗体：名称分别为Form1和Form2，其中Form2是启动窗体，其标题为“启动窗体”，在Form2上画一个命令按钮，名称为Command1，标题为“结束”，如图1所示。 请编写适当的事件过程以满足以下要求：
1）单击Form2窗体，则显示Form1窗体（如图2所示）；
2）单击Form1窗体，则Form1窗体消失； 3）单击“结束”按钮则结束程序运行。
注意：要求程序中不能使用变量，每个事件过程中只
能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjt2.vbp ，Form1窗体文件名为sjt21.frm ，Form2窗体文件名为sjt22.frm
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生目录下有一个工程文件sjt3.vbp ，窗体上给出了一个文本框Text1和两个命令按钮，命令按钮的标题分别是“读文件”、“计算”，名称分别是Command1、Command2。请画三个单选按钮，名称分别为Option1、Option2、Option3，标题分别为“大小写字母数之差”（即大写字母数减小写字母数）、“大小写字母数之和”、“大小写字母数乘积”；窗体如图所示。 程序运行时，请按以下顺序操作：
1）单击“读文件”按钮，可把考生目录下的文件in3.dat 中的所有内容读到变量s 中（此事件过程已经给出）；
2）选中一个单选按钮。
3）单击“计算”按钮，则可按选中的单选按钮的标题要
求对s 中的字符进行计算，结果放到文本框中（要求考生编写程序）。 4）单击窗体右上角的关闭按钮结束程序。
“读文件”按钮的Click 事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：考生不得修改窗体文件中已经存在的程序，在
结束程序运行之前，必须进行一次计算，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名
存盘。
（2）在考生目录下有一个工程文件sjt4.vbp，其窗体左部的图片框的名称为Picture1，框中还有六个有香蕉图案的小图片框，它们是一个数组，名称为pic，在窗体右部有一个有香蕉图案的图片框，名称为Picture2，如图1所示。
程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右部的香蕉放到左部的图片框中（右部的香蕉不动），如图2所示。左部的图片框最多可放六个香蕉。
实现此功能的方法是：刚运行程序时，图片框数组不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：
考生不得修改工程中已经存在的内容和控件属性，最
后把修改后的文件按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjt5.vbp，其中文本框Text1用于显示五个学生的六门课成绩；右边的五个文本框是一个数组，名称为Text2，用于显示每个学生的平均分；下方的六个文本框是一个数组，名称为Text3，用于显示每门课的平均分。
程序的功能是：
单击“读入文件”按钮，则把考生文件夹下的文件in5.dat中的姓名和成绩分别读到数组n和a 中；单击“每人平均分”按钮，则计算每个学生的平均分，并显示在Text2数组中；单击“每科平均分”按钮，则计算每门课的平均分，并显示在Text3数组中，所有平均分的值均四舍五入取整或截尾取整；单击“存结果”按钮，则把Text2，Text3中的所有平均分存入out5.dat文件中。
窗体中给出了所有控件（见图所示）和“读入文件”、“存结果”按钮的Click事件过程，请为“每人平均分”按钮和“每科平均分”按钮编写适当的事件过程，实现上述功能。
注意：
不得修改已经存在的程序；在结束程序运行之前，必须用“存结果”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
第03套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Text1的文本框，请设置适当属性，使文本框中无初始内容，可显示多行，有垂直滚动条，且最多只能输入1000个字符。如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上利用形状控件画一个矩形，名称为Shape1，高和宽分别为1000、1700；再画两个命令按钮，名称分别是Command1、Command2，标题分别为“圆”、“椭圆”，如图1所示。请编写适当的事件过程使得在运行时，单击“圆”按钮，则矩形变为一个圆；单击“椭圆”按钮，则矩形变为一个椭圆（如图2所示）。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线，是一个数组，数组的名称为Line1。在运行时，用鼠标单击其中一条线的任何位置，则以单击的点为起始点，画一个正弦曲线（如图所示）；若鼠标单击在直线之外，则不画正弦曲线。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。文件中的drawsin过程的作用是画一条正弦曲线，可以直接调用。
注意：
不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上有三个文本框Text1、Text2、Text3，其中Text3可显示多行，并已经输入了内容（如图所示），Text1用来输入要查找的内容，Text2用来输入要替换的新内容。程序运行时，在Text1、Text2中输入文字，单击“替换”按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为“第1个”和“全部”。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串，若Option2被选中，则替换Text3中所有匹配的字串。
在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。
注意：
不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生目录下有一个工程文件sjt5.vbp，其功能是：单击“读数据”按钮，
则把考生目录下的文件in5.dat中的100个整数读到数组a中；单击“计算”按钮，则找出其中与所有数的平均值（平均值截尾取整）最接近的整数，放到文本框中；单击“存盘”按钮则把计算结果存盘。窗体中给出了所有控件（如图所示）和“读数据”按钮及“存盘”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：
不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
提示：
与平均值最接近的数可能大于也可能小于平均值。
第04套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色（不可用），如图所示。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上（如图所示）。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：
程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作：1）单击“读入数据”按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中；
2）从名称为List1的列表框中选中一项（如图所示）。
3）单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。
4）单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中的横线（横坐标）的名称为Line1，竖线（纵坐标）的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图1所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数（最好在100-2000之间），并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图2所示。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjt5.vbp，已给出了所有控件（如图所示）和部分程序。程序运行时，请按以下顺序操作：
1）单击“读入文件”按钮，把考生目录下的文件in5.dat 中的内容读入内存并显示在上面的文本框（Text1）中；
2）单击“加密”按钮，则可对Text1中的内容进行加密并显示在下面的文本框（Text2）中。
3）单击“存结果”按钮则把Text2中的内容存到out5.dat 文件中。
加密规则：
对于第奇数个字符，若是字母，则把它变为它后面的字符（若为'Z'则变为'A'），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为'A'则变为'Z'），不是字母则不变。大小写字母都遵循此规则。
例如：
若原有的字符是：AbbaZG Ha-MnnK Yzx
则加密后的字符是：BaczAF Gb-Nmoj Xaw
已经给出“存结果”按钮的Click事件过程和函数isletter，函数isletter（a As String) 判断变量a中是否为一个字母，是则返回True，否则返回False，可以直接调用。
请编写“读入文件”按钮和“加密”按钮的Click事件过程，以实现上述功能。（in5.dat文件中只含英文单词和空格，不分段落和行）
注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序
存盘。
第05套
※※※※※※※※※※※※※※※※※※※※※※※※※ 1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画出如图所示的三角形。下表给出了直线Line1、 Line2的坐标值，请按此表画Line1、Line2，并画出直线Line3，从而组成
如图所示的三角形。
注意：
存盘时必须存放在考生文件夹下，工程文件名为
sjt1.vbp ，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上画一个名称为List1的列表框，并任意输入若干列表项；再画一个名称为Text1的文本框，无初始内容。请编写List1和Text1的Click 事件过程。程序运行后，如果单击列表框中的某一项，则在文本框中显示该项相应的顺序号，即：若单击第一项，则在文本框中显示1，若单击第二项，则在文本框中显示2，依此类推，（ 如图所示）；如果单击文本框，则把该列表项的内容显示在文本框中。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生目录下有一个工程文件sjt3.vbp ，有两个名称分别为Form1和Form2的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单（如图1所示），程序运行时，若单击“格式”菜单项，则显示Form2窗体（如图
2所示），选中一种字号和字体后单击“确定”按钮，则可改变Form1上文本框的字号和字体，并使Form2窗体消失。若单击“退出”菜单项，则结束程序的运行。 文件中已经给出了所有控件和程序，但程序不完整，要求：
1）利用属性窗口设置适当的属性，使Form1窗体标题栏右上角的最大、最小化按钮消失（如图1所示）； 2）利用属性窗口把Form2窗体的标题设置为“格式”（如图2所示）； 3）请去掉程序中的注释符，把程序中的 ？改为正确的内容。
注意：
不能修改程序中的其他部分和其他控件的属性。最后
把修改后的文件按原文件名存盘。
（2）在考生目录下有一个工程文件sjt4.vbp ，包含了所有控件和部分程序。程序运行时，请按以下顺序操作：
1）单击“读入数据”按钮，可把考生目录下的文件 in4.dat 中的100个整数读到数组a 中；
2）从名称为Combo1的组合框中选中一项(如图所示)。 3）单击“计算”按钮，则可按该选项的要求对a 中的数计算平均值（四舍五入取整或截尾取整）并放到文本框中。
4）单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的 Click 事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
提示：存放前n 个数之和的变量应使用Long 类型。 注意：
不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程
序，否则无成绩。最后，程序按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生目录下有一个工程文件sjt5.vbp 。窗体左边的图
片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic ，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还
有一个文本框Text1以及四个标签，如图1所示。
程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中（右边的物品不动），同时把该物品的价格累加到Text1中，如图2所示。最多可放六个物品。
实现此功能的方法是：
程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：
不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
第06套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示，如图1所示；如果双击窗体，则Text1显示，Text2隐藏，如图2所示。
注意：
程序中不得使用变量。
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上画一个文本框，其名称为Text1，初始内容为空白；
再画一个水平滚动条，其名称为HS1，SmallChange 属性为4，LargeChange属性为10，Min属性为0，Max属性为200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值（0～200），然后单击窗体，则把滚动条的滚动框移到相应的位置，如图所示。
注意：
程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm，在窗体上有一个命令按钮（名称为Command1，标题为“计算并输出”）和两个文本框（名称分别为Text1和Text2），如图所示。程序运行后，单击命令按钮，即可计算出数组Arr中10个数的正数之和pos与负数之和neg，并分别在两个文本框中显示出来。
该程序不完整，请把它补充完整。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。
在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图1所示。程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0.1倍（即变为原来的1.1倍），如图2所示，字体大小超过100后，自动缩小为8；
如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内
容，使其实现上述功能，但不能修改程序中的其他部分。最
后把修改后的文件按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjt5.vbp ，相应的窗体文件为sjt5.frm 。窗体上三个命令按钮的名称分别是Command1、Command2和Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件in5.txt 中读取文本,并显示在文本框Text1中，如图所示。单击“统计” 按钮，则统计Text1中字母R 、T 、D （不区分大小写）出现的次数，统计结果分别保存在窗体变量intR 、intT 、intD 中，同时显示在文本框Text2中（显示格式不限）。单击“保存”按钮，可将intR 、intT 、intD 中的数据保存到考生文件夹下out5.txt 文件中。 要求：
1）去掉“显示”按钮事件过程中的注释，把程序中的？改为能实现上述要求的正确内容。
2）编写统计字母R 、T 、D 出现次数的事件过程。
3）不要改动各控件的属性设置和程序的其他部分。最
后把修改后的文件用原文件名存盘。
第07套
※※※※※※※※※※※※※※※※※※※※※※※※※
请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为 Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”，BorderStyle 属性为1，且可以根据标题自动调整大小，编写适当的事件过程。程序运行后，其界面如图1所示，此时如果单击窗体， 则标签消失，同时用标签的标题作为窗体的标题，如图2所示。 注意：
程序中不得使用变量。存盘时必须存放在考生文件夹
下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上画一个文本框，其名称为Text1，初始内容为空白；
然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为“单选按钮1”、“单选按钮2”和“单选按钮3”，编写适当的事件过程。程序运行后，如果单击“单选按钮1”则在文本框中显示“1”，单击“单选按钮2”则在文本框中显示“2”，依此类推。程序的运行情况如图所示。 注意：
程序中不要使用变量，每个单选按钮的事件过程中只
能写一条语句；存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp ，相应的窗
体文件为sjt3.frm 。
在窗体上有一个名称为Text1的文本框，其MultiLine 属性为True 。程序运行后， 如果单击窗体，则用随机数函数产生16个0到99的整数，并按4行4列的矩阵形式在文本框中显示出来；然后在文本框中输出该矩阵对角线上的数。程序运行情况如图所示。 这个程序不完整，请把它补充完整，并能正确运行。 提示：程序中的vbCrLf 是回车-换行符。 要求：
去掉程序中的注释符，把程序中的 ？改为正确的内容， 使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。
在窗体上有两个命令按钮，其名称分别为Command1和Command2，标题分别为“开始” 和“停止”；有两个水平滚动条，其名称分别为HScroll1和HScroll2，Min属性均为0，Max属性均为100；此外还有一个计时器，其名称为Timer1，如图1所示。程序的功能是，程序运行后，如果单击“开始”命令按钮，则滚动条HScroll1中的滚动框从左向右移动（每次移动一个刻度），移到最右端后，自动回到最左端，再重新向右移动；同时滚动条HScroll2中的滚动框从右向左移动（每次移动一个刻度），移到最左端后，自动回到最右端，再重新向左移动。如果单击“停止”按钮，则两个滚动条中的滚动框停止移动，如图2所示。该程序不完整，请把它补充完整。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjt5.vbp，装入该工程文件。窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读文件”、“删除”和“计算/保存”。程序运行后，单击“读文件”命令按钮，将in5.txt文件中的内容显示在Text1中，如图1所示；单击“删除”命令按钮，删除Text1中的字母“A”、“D”、“R”和“S”（小写字母也删），并将删除后的文本显示在Text1中，如图2所示；单击“计算/保存”命令按钮，则计算当前Text1中显示的所有字符（删除后）的ASCII码之和，并把结果保存到考生文件夹下的out5.txt文件中。
要求：
1）要删除的字母不区分大小写。
2）不要改变窗体中各控件的属性设置及事件过程。
3）编写“计算/保存”按钮的事件过程。
4）“删除”按钮的事件过程不完整，去掉程序中的注释符，把程序中的？
改为正确的内容，使程序能正常运行。最后把修改后的文件按原文件名存盘。
第08套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个文本框,名称为Text1，内容为“VB程序设计”；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“缩小”，如图所示，编写适当的事件过程。程序运行后，每单击Command1命令按钮一次，文本框中文本的字体扩大1.2倍；每单击Command2单选按钮一次，文本框中文本的字体缩小1.2倍。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个列表框，其名称为
List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Text1，初始内容为空白；再画一个水平滚动条，其名称为HScroll1，Min 属性和Max 属性分别为0和100，如图1所示，编写适当的事件过程。 程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移到相应的位置，如图2所示。 要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名
为sjt2.vbp ，窗体文件名为sjt2.frm
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp ，相应的窗体文件为sjt3.frm 。
在名称为 Form1的窗体上有一个名称为Text1的文本
框和名称为Command1、标题为“确定”的命令按钮，一个名称为 List1的列表框和两个名称分别为Option1和 Option2、标题分别为“添加”和“删除”的单选按钮，如图1所示。程序运行后，如果选择单选按钮Option1并在文本框中输入一个字符串，然后单击“确定”命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图2所示；如果选择列表框中的一项和单选按钮Option2，并单击“确定”命令按钮，则删除列表框中所选择的项目，如图3所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击“确定”命令按钮后，将显示一个信息框“未输入或未选择项目”，如图4所示。该程序不完整，请把它补充完整。
要求： 去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
（2）在考生文件夹下有一个工程文件sjt4.vbp ，相应的窗体文件为sjt4.frm 。
在窗体上有一个命令按钮，其名称为Command1，标题为“计算”。程序运行后，如果单击命令按钮，程序将根据下面的公式计算π的值：
π/4 = 1 - 1/3 + 1/5 - 1/7 + ...... 所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图所示。
该程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjt5.vbp ，相应的窗体文件为sjt5.frm 。窗体外观如图1所示。三个命令按钮的名称分别为Command1、Command2和Command3，标题分别为“读取数据”、“首字母大写”和“存盘”。程序运行后，如果单击“读取数据”命令按钮，则读取考生文件夹下 in5.txt 中的全部文本（文本中的单词与单词之间或标点符号与单词之间均用一个空格分开），并在文本框中显示出来。文本内容如下：
Tucked deep within the promises and policies of his State of the Union address, President Bush uttered three words that speak volumes about Washington's paralysis in addressing the plight of the forty million Americans who lack health insurance. In between his discourse on Medicare and his support for a low-income health care tax credit, Bush called for something called association health plans.
如果单击“首字母大写”命令按钮，则将文本框中每个单词的第一个字母变为大写字母（如果原来已是大写字母则不改变），并在文本框中显示出来，如图2所示； 如果单击“存盘”命令按钮，则把文本框中的内容（首字母大写后）保存到考生文件夹下的文件out5.txt 中。窗体文件中已给出了部分程序，请把它补充完整，使其实现上述功能。 要求：
1）编写“读取数据”命令按钮的Click 事件过程。 2）去掉“首字母大写”命令按钮和“存盘”命令按钮事件
过程中的注释符，把程序中的 ？改为正确的内容，使其能
正确运行。
3
）用原来的文件名保存工程文件和窗体文件。
第09套
※※※※※※※※※※※※※※※※※※※※※※※※※ 1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1，标题为“窗体” 的窗体上画一个标签，其名称为Label1，标题为“等级考试”，字体为“黑体”，BorderStyle 属性为1，且可以自动调整大小，再画一个框架，名称为Frame1，标题为“科目”，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm
。
（2）在名称为Form1的窗体上画两个图像框，其名称分别为Image1和Image2，Stretch 属性分别为True 和False ，然后通过属性窗口在Image1中装入一个图形文件pic.jpg （位于考生文件夹下），如图1所示，编写适当的事件过程。程序运行后，如果单击窗体，则可清除Image1中的图形，并把该图形复制到Image2中，如图2所示。 注意：要求程序中不得使用变量。
存盘时必须存放在考生文件夹下，工程文件名为
sjt2.vbp ，窗体文件名为sjt2.frm
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp ，相应的窗体文件为sjt3.frm 。
在窗体上有一个文本框，其名称为Text1；另有一个命令按钮，其名称为Command1，标题为“计算/输出”。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入n 的值，然后单击“确定”按钮，即可计算 1+(1+2)+(1+2+3)+...+(1+2+3+...+n) 的值，并把结果在文本框中显示出来，如图所示。 注意：
去掉程序中的注释符，把程序中的 ？改为正确的内
容， 使其实现上述功能，但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp ， 相应的窗体文件为sjt4.frm 。
在窗体上有两个文本框，其名称分别为Text1和Text2，其中Text1中的内容为“计算机等级考试”；另有一个命令按钮， 其名称为Command1，标题为“反向显示”，如图1所示。程序运行后， 如果单击命令按钮，则在Text2中按相反方向显示Text1中的内容，如图2所示。 该程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内
容，使其能正确运行，但不能修改程序中的其他部分。最后
用原来的文件名保存工程文件和窗体文件。
3. 综合应用（1小题，计30分）
在名称为Form1的窗体上画一个文本框，其名称为Text1，可以多行显示，并有垂直滚动条；然后再画三个命令按钮，其名称分别为Command1、Command2和Command3， 标题分别为“取数”、“排序”和“存盘”，如图1所示，编写适当的事件过程。程序运行后，如果单击“取数”命令按钮，则将in5.txt 文件中的100个整数读到数组中，并在文本框中显示出来，如图2所示；如果单击“排序”命令按钮，则对这100个整数按从大到小的顺序进行排序，并把 排序后大于500的数在文本框中显示出来；如果单击“存盘”
命令按钮，则把文本框中所有的数（即排序后大于500的）保存到考生文件夹下的文件out5.txt中。
注意：
1）必须把排序后大于500的所有整数保存到文件out5.txt中，否则没有成绩。
2）存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
第10套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，Min属性为0，Max属性为100，LargeChange 属性为5，SmallChange属性为2，然后再画一个文本框，其名称为Text1，初始内容为空白，编写适当的事件过程。
程序运行后，在文本框中输入0-100之间的一个值，然后单击窗体，则滚动条的滚动框移到相应的位置，程序的运行情况如图所示。
要求：
程序中不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”，AutoSize属性为True；然后再画一个列表框，通过属性窗口输入5个项目，分别为10、16、20、24、36，如图1所示，编写适当的事件过程。程序运行后，如果用鼠标选中列表框中的某个项目，则把标签中字体的大小设置为与该项目相同。程序的运行情况如图2所示。
要求：
程序中不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。
在窗体上有一个命令按钮，其名称为Command1，标题为“移动”；有一个文本框，名称为Text1，可以多行显示；此外还有一个列表框，其名称为List1。程序运行后，会在列表框中显示几行文字，如图1所示。如果单击命令按钮，则把列表框中的文字移到文本框中，如图2所示。该程序不完整，请把它补充完整（程序中的vbCrLf表示回车换行符）。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后
用原来的文件名保存工程文件和窗体文件。
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。
在窗体上有一个标签（名称为Label1）、一个计时器（名称为Timer1）和二个命令按钮（名称分别为Command1和Command2），如图1所示。程序运行后，其初始界面如图2所示。此时如果单击“开始”命令按钮，则可使标签每隔0.2秒闪烁一次；如果单击“停止”命令按钮，则标签停止闪烁。该程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。
最后用原来的文件名保存工程文件和窗体文件。
3. 综合应用（1小题，计30分）
在名称为Form1的窗体上画三个命令按钮（名称分别为Command1、Command2和Command3，标题分别为“显示”、“统计”和“保存” ），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2），如图1所示。程序运行后，如果单击“显示”命令按钮，则读入in5.txt文件中的文本，并在文本框中显示出来，如图2所示；如果单击“统计”命令按钮，则统计文本框中ASCII 码大于等于70，小于等于100的字符的个数，并把结果在文本框中显示出来，如图3所示（注意，图中所显示的统计次数是随便写的，不是实际的统计结果）；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5.txt文件中。
注意：
结束程序运行前必须用“保存” 命令按钮把统计结果存入考生文件夹下的out5.txt文件中，否则没有成绩。存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
第88套
※※※※※※※※※※※※※※※※※※※※※※※※※1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画1个命令按钮，其名称为C1，标题为"等级考试"；再画1个文本框，名称为T1，如图1所示。编写适当的事件过程。程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中显示出来，如图2所示。
注意：
存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
（2）在名称为Form1，标题为"菜单演示"的窗体上画一个名称为Label1、标题为空的标签；再建立一个菜单，各菜单项的属性设置如下表。窗体外观如图1
所示。
请编写适当的程序，使得选中"输出窗体标题"菜单项时，就在标签中显示窗体标题；选中"输出当前时间"菜单项时，在标签中显示当前系统时间（如图2所示）。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：
存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2.frm，工程文件名为sjt2.vbp
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：1）单击"读数据"按钮，则把考生文件夹下in3.dat文件中的100个按升序排列的整数读入到数组a中，同时显示在Text1文本框中；
2）单击"查找"按钮，则提示用户输入查找的数，并利用二分法在数组a中查找该数，若查找成功，则在Text2文本框中显示该数在数组中的位置，否则显示查找失败。
提示：
二分法查找的思路是，将查找值与有序数组的中间项
元素进行比较，若相同则查找成功结束；否则判断查找值落在数组的上半部分还是下半部分，并继续在那一半的数组中重复上述查找过程。 要求：
请将窗体的标题设置为"二分法查找"， 并将"查找"命
令按钮的Click 事件过程中的注释符去掉，把？改为正确内容，以实现上述程序功能。下图所示的是运行时输入数值68的查找结果。 注意：
考生不得修改窗体文件中已经存在的控件和程序。最
后，程序按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp 。运行
程序，按下鼠标左键，并在窗体上拖动鼠标时，沿鼠标移动可在窗体上画出一系列圆，如图所示。 给出的程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。
注意：
考生不得修改窗体文件中已经存在的控件和程序，最
后将程序按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjti.vbp 。程序功能为：在文本框Text1中输入一个正整数N 后，单击“计算“按钮，则计算11+22+33+…NN ，并将计算结果显示在Text2中。程序中的函数f 可以计算mm 的值。
在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的？改为正确的内容，并编写相应的程序，实现程序的动能，并且必须在运行时计算N=8时的结果。 注意：
不能修改程序的其他部分和控件属性。最后把修改后
的文件按原文件名 存盘。程序调试通过后，必须计算N=8时的结果，否则无成绩。
第89套
※※※※※※※※※※※※※※※※※※※※※※※※※ 1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。
（1）在名称为Form1，标题为"电影制作"的窗体上画1个名称为Cmb1、初始内容为空的下拉式组合框（可以输入文本）。 下拉列表中有"音频效果"、"视频效果"和"视频过渡"3个表项内容。运行后的窗体如图所示。 注意：
存盘时，将文件保存至考生文件夹下，且窗体文件名
为sjt1.frm ，工程文件名为sjt1.vbp 。
（2）在名称为Form1、标题为"椭圆练习"的窗体上，画1个名称为Shape1的椭圆，其高为800、宽为1200、左边距为1000。椭圆的边框是宽度为5的蓝色（&H00C00000&）实线，椭圆填充色为黄色（&H0000FFFF&）。再画2个名称 为Command1和Command2、标题为"左移"和"右移"的命令按钮。如图所示。 要求：
编写2个按钮的Click 事件过程，使得每单击"左移"
按钮一次，椭圆向左移动100；每单击"右移"按钮一次，椭圆向右移动100。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：
存盘时，将文件保存至考生文件夹下，且窗体文件名
为sjt2.frm ，工程文件名为sjt2.vbp
。
2. 简单应用（2小题，每题20分，计40分）
（1）在考生文件夹下有一个工程文件sjt3.vbp ，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔半秒，方框的颜色交替变为黄色和红色（黄色值为&HFFFF&；红色值为&HFF&）；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处（如图所示）。请将事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。 注意：
考生不得修改窗体文件中已经存在的控件和程序，最
后将程序按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp ，其窗口上有2个名称分别为Command1和Command2，标题分别为"开始查找"和"重新输入"的命令按钮； 有2个名称分别为Text1和Text2，初始值均为空的文本框。
1）在Text1文本框中输入仅含字母和空格（空格用于分隔不同的单词）
的字符串后，单击"开始查找"按钮，则可以将输入字符串中最长的单词显示在Text2文本框中，如图所示；
2）单击"重新输入"按钮，则清除Text1和Text2中的内容，并将焦点设置在Text1文本框中，为下一次的输入做好准备。 请将"开始查找"命令按钮Click 事件过程中的注释符去掉，把？改为正确内容，以实现上述程序功能。
注意：
考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
3. 综合应用（1小题，计30分）
在考生文件夹下有一个工程文件sjti.vbp ，窗口中有2个名称分别为Command1和Command2，标题分别为"读数据"和"排序"的命令按钮，有2个标题分别为"数组A"和"数组
B"的标签。请将窗体标题设置为"完生平方数排序"；再画2个名称分别为Text1和Text2，初始内容都为空的文本框，并且可多行显示、有垂直滚动条，如图所示。程序功能如下：
1）单击"读数据"按钮，则把考生文件夹下in5.dat 文件中的100个正整数读 入数组A ，并将它们显示在Textl 文本框中；
2）单击"排序"按钮，则首先将这100个数中的所有完全平方数放入数组B 中，并将它们按阵序排列显示在Tex2文本框中。
提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如：144=122，所以144就是一个完全平方数。
要求：去掉注释符，把？改为正确内窖，并添加代码使得"排序"命令按钮的Click 事件过程可以实现上述功能。
提示：sort 过程可以把求出的完全平方数进行排序，可以直接调用。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行"排序"，且须用窗体右上角的关闭按钮结束程序，否则无成绩。
最后，程序按原文件名存盘。
大学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.doczj.com/doc/8b4871804.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
一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)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
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
vb综合考试试题
1303班9月16日第一次综合考试试题 一、单选（本大题共25小题，每小题2分， 共 50分） 1. 设a=2,b=3,c=4,d=5,表达式NOT a<=c OR 4*c=b^2 AND b<>a+c的值是( )。 A、-1 B、 1 C、True D、False 2、假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ __。 A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 3、下列叙中不正确的是（） A、变量名中的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明 字符 D、变量名不能使用关键字 2
4、下列关于变体类型的描述，其中正确的是 _______。 A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0 C. 一个变量没有定义就赋值，该变量即为变体 类型 D. 变体是赋给变量某一种类型数据后，就不能 再赋给它另一类型的数值 5、执行 PRINT 18/2*3,-3^2 命令后，输出结 果为_____。 A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 6、下面的_______语句可以实现：先在窗体上 输出大写字母A，然后在同一行的第10列输出 小写字母b。 A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 3
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D
A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B
C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D
A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程
C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B
C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置
第一部分 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题库及答案 一、选择题 第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",
1.设计一个如图所示的成绩录入程序。要求利用文本框的lost focus事件检查录入的成 绩是否有效。如果录入的成绩介于0~100之间则可以继续输入，否则清除原数据，并且要求重新输入。底部的5个复选框用来设置参加合计的课程成绩。 2.设计一个用户界面如图所示，用于将学生学习的课程在列表框中显示出来，要求程序 有以下功能： a)单击“添加”按钮，若文本框“Text1.text”中不是空格串，并且在列表中也没 有，则将课程添加到列表框中去。 b)单击“删除”按钮，删除列表框中被选中的并显示在文本框中的课程名称。 c)单击“统计”按钮，统计课程列表框中的课程数量，并显示在文本框“Text2.text” 中。 d)单击“结束”按钮，结束程序运行。 3.设计一个偶数迁移程序，运行界面如图所示。要求如下： a.单击“产生”按钮，随机产生10个两位正整数，并添加到左边的列表框(list1)中。 b.单击“→”按钮，或双击list1,将list1中的所有偶数迁移到list2中。 c.单击“清除”按钮，清除list1和list2中所有的项目。
4. 设计如图所示窗体form1,在窗体上画一个名称为lst的列表框，通过属性窗口向列表框添加“中国”、“日本”、“新加坡”、“澳大利亚”、“美国”五个项目；在列表框右侧上方画一个名称为text1的文本框，并使其内容空白；在文本框下方画两个名称分别为c1和c2、标题分别为“修改”和“添加”的命令按扭。程序运行时要求：单击“修改”按钮时文本框text1中显示列表框中选中项目内容，同时列表框移除该项；单击“添加”按钮时，将文本框修改后的内容添加在列表框中列表的末尾。保存窗体文件xg.frm,工程文件为xg.vbp. 5. 设计如图所示窗体form1,在窗体左边画两个名称为t1、t2的文本框，文本框内显示空白；在窗体右下方画一个名称为c1的命令按扭，按扭的标题为“复制”。编写适当的事件过程，使得在运行时，选定t1中任意文本后，单击命令按扭c1,文本框t2中显示t1中所选定的文本。
(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！ ．．．．．．) 实验一：第二章 ⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。 Private sub command1_click() Label1.visible=false Command1.caption=label1.caption End sub ⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框， 名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。 上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub ⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名 称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)
作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width
一、选择题（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
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/8b4871804.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
广东开放大学VB形考题目答案 (1/15)、设CurrentX=80,CurrentY=90，执行指令“Line (100,20)-Step(300,500)”后，CurrentY =（）。(3分) ?A、520 ?B、500 ?C、20 ?D、590 (2/15)、在VB中，进行音、视频处理都要用到多媒体控制接口，通过它实现对音频设备、视频设备及其它设备透明操作，这其中最为重要的是（）。(3分) ?A、SysInfo控件 ?B、Data控件 ?C、MMControl控件 ?D、媒体流处理技术 (3/15)、在关系型数据库中，“记录”的含义是（）。(3分) ?A、数据表中的每一列数据 ?B、数据表中的每一行数据 ?C、数据库中数据 ?D、相关数据组成的二维表格 (4/15)、用来从数据库表中查询记录的SQL命令是（）。(3分) ?A、ｕpdate ?B、ｓelect ?C、ｗhere ?D、ｄelete (5/15)、将图片框的AutoSize属性设置成（）时，可使图片框根据图片调整大小。(3分)
?A、Yes ?B、False ?C、True ?D、No (6/15)、图像框对象（Image控件）的Stretch属性设置为（）时，图像框可自动改变大小以适应其中的图形。(3分) ?A、Yes ?B、False ?C、True ?D、No (7/15)、CLS可清除窗体或图形框中（）的内容。(3分) ?A、程序运行时产生的图形和文字 ?B、在设计时放置的控件 ?C、Picture属性设置的背景图案 ?D、ScaleWidth属性 (8/15)、为了使图像框中的图形自动适应图像框的大小，则应（）。(3分) ?A、将其Stretch属性值设置为True ?B、将其AutoSize属性值设置为False ?C、将其AutoSize属性值设置为True ?D、将其Stretch属性值设置为False (9/15)、打开MMControl控件控制的多媒体设备的命令是（）。(3分) ?A、Pause ?B、Play ?C、Prev
计算机等级考试（二级VB）模拟试题二 第一部分计算机基础知识 1．是我国安全部开发的一种检测和消除计算机病毒的杀毒软件。 A．Kill B．Scan C．Vsafe D．WPS 2．用n位二进制来表示一个整数的补码，用最高位作为符号位，其整数的表示范围是. A．-2n-1～+2n-1-1 B．-2n-1+1～+2n-1 B．-2n-1～+2n-1D．-2n～+2n-1 3．下列四个数中最大的数是。 A．十进制数1789 B．十六进制数IFF C．二进制数10100001 D．八进制数227 4．存储器体系由不同类型的存储器组成多层结构，按存取速度从快到慢的是。 A．快存、辅助、主存、海量存储器B．光盘、主存、辅助、海量存储器 C．快存、主存、辅助、海量存储器D．DVD、主存、辅助、海量存储器 5．高级语言采用解释方式时的执行速度与采用编译方式时的执行速度相比，下列是正确的。 A．相等B．前者快C．前者慢D．不能确定 6．设汉字字库包括全角符号和一、二级汉字共8000个，进入汉字操作系统调用16x15点阵汉字库，且全部常驻内存中，则内存开销约为。 A．640KB B．1.47KB C．240KB D．70KB 7．下列软件中，不属于应用软件的是。 A．字表处理软件B．财务管理软件 C．股市分析软件D．高级语言编译程序 8．传送速率单位“bps”代表的意义是。 A．Bytes Per Second B. Bits Per Second C．Band Per Second D. Billion Per Second 9．软件需求分析一般应确定的是用户对软件的。 A. 功能需求 B. 非功能需求 C. 性能需求 D. 功能需求和非功能需求 10．计算机网络中的拓扑结构是一种。 A．实现异地通信方案B．理论概念 C．设备在物理上的连接形式D．传输信道的分配 11．E-mail地址中@后面的内容是指。 A．收信服务器名称B．寄信服务器名称 C．帐号D．密码 12．如果用户正在用到3个文件夹，每个文件夹至少含有4个文件，若想不移动文件，工作却更方便，应当。 A．在桌面上右击鼠标，为这些文件夹建立快捷键 B．把这些文件夹增加到快捷文件夹中去
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.doczj.com/doc/8b4871804.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()