vb上机考试操作题
Vb上机操作题
四、基本操作题
1．在考生文件夹中，完成以下要求：
件的工程名称改为“Spks”，并将该工
程中的窗体文件Sjt.frm的窗体名称
改为“vbbc”，窗体的标题为“二级
VB考试”。
（2）在窗体上增加以下控件：定时器
Timer1，时间间隔值为10；图片框
Picture1；标签Label1放置在图片框
中，标签的大小自动调整；标签
Label2的标题为“快”；文本框Text1
放置在图片框下方；水平滚动条
HScroll1，最小值为0,最大值为
100 。
（3）按如下要求编写代码：
文本框中输入的字符自动显示为标签
的标题；标签自动向左移动，移出图
片框后又从右边进入（提示：编程使
得当标签的Left<-1000时，重置Left
＝10000）；拖动水平滚动条时，将调
整移动的速度。
（4）请先调试、运行，然后将工程、窗体
保存。
2．在考生文件夹中，完成以下要求：
（1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗
体文件Sjt.frm的窗体名称改为“vbbc”。（2）请在适当位置添加控件：三个标签，Label1标题为“姓名：”，Label2标题为“籍
贯：”， Label3标题为空；一个框架Frame1
标题为“性别”；两个单选按钮在框架
Frame1中，Option1标题为“男”,Style
属性为1且为选中状态，Option2标题为
“女”，Style属性为1；一个文本框Text1
内容为空，且Tabindex属性值为0；一个
列表框List1；一个命令按钮Command1，标
题为“确定”。（以上操作在属性窗口中完
成）
（3）在窗体模块中声明全局变量xb，jg；在窗体的装载事件中完成：列表框添加三项内
容：“北京”，“上海”，“合肥”，且“北
京”选项默认被选中，xb变量的初始值为
“男”。
(4)按如下要求编写代码：选中Option1时，为
变量xb赋值为“男”；选中Option2时，
为变量xb
赋值为“女”；选中列表框的某一项时，把选中的内容赋值给jg (要求在列表框的Click事件中实现)；单击按钮Command1时，在Label3中顺次显示姓名（Text1中的内容），籍贯（变量jg的值）,性别（变量xb的值）。
运行后如图所示：
(5)请先调试、运行，然后将工程、窗体保存。
3．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个驱动器列表框Drive1；一个目录列表框Dir1；一个文件列表框
File1，自动过滤出扩展名为bmp和jpg的图形文件；一个图像框Image1，其中的图片自动匹配图像框的大小。（以上操作在属性窗口中完成）
(3)按要求编写代码使得驱动器列表框、目录列表框和文件列表框同步工作；文件列表框中显示扩
展名为bmp和jpg的图形文件；当单击文件列表框中的某个图形文件时，图像框中显示出该图片（可为机器上任意扩展名为bmp和jpg的图形文件）。
运行后，如下图所示：
(4)
4．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp ，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm 的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个标签Label1,标题改为“请输入手机号：”；一个文本框Text1,
其值设为空，允许输入的
，标题分别
(3)要求窗体装载时，文本框的值取“13”，输入手机号码时，一旦键入非数字字符，用Msgbox 给
出“请输入数字符号”的提示信息；输入手机号码后，单击“确定”按钮，如果数字符号不足11位，用Msgbox 给出“手机号码为11位数字”的提示信息，反之，用Msgbox 给出是“联通用户”还是“移动用户”或者是“空号”的判定结果（第三位数字为0、1、3是联通用户，5、6、7、8、9为移动用户，其它为“空号”，要求用Select Case 结构实现）；单击“取消”按钮可结束程序运行。 运行界面如下图。
(4)
5．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个文本框Text1，其值置为空，两个命令按钮Command1、Command2，
标题分别为“添加”、“删除” ，Command2的Enabled属性值设为假；一个列表框List1。（以上操作在属性窗口中完成）
(3)要求程序运行时，单击“添加”按钮，若文本框中有内容，则将文本框中的内容添加到列表框
中。选中列表框中的某一项，命令按钮“删除”有效，单击“删除”按钮可将该项删除。运行效果如下图。
(4)请先调试、运行，然后将工程、窗体保存。
6．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个标签Label1，标题为“等级考试”；两个命令按钮Command1、
command2标题分别为“移动”、“暂停”，Command2的Enabled属性值设为False，一个时钟控件Timer1，其Enabled属性值设为False,Interval属性值设置为500。（以上操作在属性窗口中完成）
(3)要求程序运行时，单击“移动”按钮可使Timer1、 Command2有效；时钟控件每隔半秒触发一
次Timer事件，该事件触发时可将标签向左移动60缇，一旦整个标签出了窗体左端，要求标签再从窗体的右端开始移动，单击“暂停”按钮可使时钟控件失效。运行效果如下图。
(4)请先调试、运行，然后将工程、窗体保存。
五、简单应用题
1．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp ，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm 的窗体名称改为“Prog1”，窗体的标题为“数据计算”。
(2)请在窗体适当位置增加以下控件：一个标签Label1，标题为“计算结果”；一个文本框Text1；
两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。
(3)编写程序计算S 的近似值，直到最后一项的绝对值小于10-5
为止（要求将存放结果的变量类型定
义成单精度浮点型）。
(4)要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，
将结果存入考生文件夹中的文件“kssj.dat”中。
(5)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求
把这个模块文件添加到当前的工程中，直接调用该过程。
(6)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。
2．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“字符串个数”。
(2)请在窗体适当位置增加以下控件：文本框1（名称为Text1，Multiline属性为True，ScrollBars 属性为2）；文本框2（名称为Text2）和三个命令按钮（名称分别为C1、 C2和C3，标题分别为“读入数据”、“显示结果”和“保存”），如图所示。
(3)要求程序运行后，单击“读入数据”按钮，读入“ini.txt”文件中的内容，同时在文本框text1
中显示出来；然后单击“显示结果”按钮，统计出字符串“and”出现的次数，并把结果在文本框Text2中显示出来；最后单击“保存”按钮，把该结果（Text2的值）存入考生文件夹中的文件“kssj.dat”中。
（4）在考生文件夹下有标准模块Prog1.bas，其中的getdata过程可以读出文件“ini.txt”中的内容，Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前工程中，直接调用过程。
(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。
3．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”。
(2)请在窗体适当位置增加以下控件：两个标签label1，label2，标题分别为“平均数为：”，“大
于平均数的个数为：”；三个文本框Text1，Text2，Text3；Text1的Multiline的属性为True，ScrollBars属性为2，文本均为空白；两个命令按钮Command1,Command2，标题分别为：“读数并计算”，“保存”；将窗体标题改为“求平均数”（如图所示）。
(3)要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示在Text1
中，同时在Text2中显示这些整数的平均数，在Text3中显示大于平均数的个数。单击“保存”
按钮将大于平均数的个数（Text3的值）存入考生文件夹中的文件“kssj.dat”中。
(4)在考生文件夹下有标准模块Prog1.bas，其中Getdata过程可以读出文件“ini.txt”中的数据，
Putdata过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。
(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。
4．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“排序”。
(2)请在窗体适当位置增加以下控件：两个标签Label1和Label2(标题分别为“排序之前”和“排
序之后”)；两个列表框List1和 List2；三个命令按钮（均为默认名称，标题分别为“读取数据”、“排序”和“写入文件”），如图所示。
(3) 要求：程序运行后
(1) 单击“读取数据”按钮，读入“ini.txt”文件中的50个数据，同时在列表框List1中
显示出来
(2) 单击“排序”按钮，在List2中显示出从大到小的排列顺序
(3) 单击“写入文件”按钮，把List2中内容存入考生文件夹中的文件“kssj.dat”中。
(4)考生文件夹下有标准模块Prog1.Bas，其中getdata过程可以读出文件“ini.txt”中的数据，
putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前的工程中，直接调用过程。
(5)将工程、窗体与模块保存，然后调试、运行并生成可执行文件Prog1.exe。
编程题评卷结果如下：
所建工程得分：0分
所建的窗体得分：0分
尚未生成.exe文件！
尚未生成答案文件！编程题最后得分：0分
5．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”。
(2)请在窗体适当位置增加以下控件：一个标签（名称为label1，标题为“100～200之间的素数和
为”），一个文本框（名称为Text1，文本内容为空）和两个命令按钮（名称分别为：Command1,Command2，标题分别为：“计算”，“保存”），将窗体标题改为“求素数和”（如图所示）。
(3)要求程序运行后，单击“计算”按钮，在Text1中显示出100～200之间的素数和；单击“保存”
按钮，将计算结果存入考生文件夹中的文件“kssj.dat”中。
(4)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求
把该模块文件添加到当前工程中，直接调用该过程。
(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。
6．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”，窗体标题为“求数列的前20项和”。
(2)请在窗体适当位置增加以下控件：标签label1，标题为“数列前20项之和”；文本框Text1；
两个命令按钮Command1、Command2，标题分别为“计算”和“保存”。如图所示。
(3)已知FIBONACCI数列的第1和第2项的值均为1，从第3项开始每项都是前2项之和。数列中的
值为：1，1，2，3，5，8，13，……
要求程序运行后：
①单击“计算”按钮，在窗体上显示FIBONACCI数列的前20项，每行显示5个数据；在Text1
中显示数列前20项的和；
②单击“保存”按钮，将前20项的和存入考生文件夹中的文件“kssj.dat”中。
(4)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求
考生把该模块文件添加到当前工程中，直接调用过程。
(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。
六、综合应用
1．在考生文件夹中建立一个名称为“Vbcd ”的工程文件Menu1.Vbp ，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
（1）菜单格式与内容如下: 系统(S) 统计(T)
退出 专业
性别
其中,括号内的字符为热键；各菜单与子菜单的名称与标题相同，但不含热键； -> ：下一级菜单；“女”：该菜单项不可见。
（2
件Sjt.frm 添加进本工程。
（3）除“专业”菜单的Click()
事件调用Sjt.frm 窗体，
“退出”子菜
单的Click()事件执行
End 语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程
序： Menu1.exe 。
2．在考生文件夹中建立一个名称为“Vbcd ”的工程文件Menu1.Vbp ，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求： （1）菜单格式与内容如下: 格式(O) 窗口(W) 图层 (√)水平平铺 颜色 垂直平铺 ----
返回（Ctrl+B ）
其中,括号内的字符为热键；分隔条的名称为FGT ，其它菜单与子菜单的名称与标题相同，但不含热键；(√)：复选标记； Ctrl+B ：设置为快捷键。
（2）将考生文件夹下的窗体文件SJT.frm 添加进本工程。 （3）除“图层”菜单的Click()事件调用SJT.frm 窗体，“返回”子菜单的Click()事件执行End 语句，其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序：Menu1.exe 。
3．在考生文件夹中建立一个名称为“Vbcd ”的工程文件Menu1.Vbp ，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,（1）菜单格式与内容如下:
插入(I) 窗口(W)
曲面 (√)水平平铺 特征 排列图标 ----
返回(Ctrl+B.
其中,括号内的字符为热键；分隔条的名称为FGT ，其它菜单与子菜单的名称与标题相同，但不含热键；(√)：复选标记；Ctrl+B ：设置为快捷键；“特征”：该菜单项呈浅灰色，无效，不可用。 （2）将考生文件夹下的窗体文件Sjt.frm 添加进本工程。 （3）除“曲面”子菜单的Click()事件调用Sjt.frm 窗体，“返回”子菜单的Click()事件执行End 语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序：Menu1.exe 。
4．在考生文件夹中建立一个名称为“Vbcd ”的工程文件Menu1.Vbp ，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
（1）菜单格式与内容如下:
编辑(E) 插入(I) 查找 图片 替换(Ctrl+H) 文本框 ---- 退出
其中,括号内的字符为热键；分隔条的名称为FGT ，其它菜单与子菜单的名称与标题相同，但不含热键； Ctrl+H ：设置为快捷键。
（2）将考生文件夹下的窗体文件Sjt.frm 添加进该工程。 （3）除“替换”菜单的Click()事件调用Sjt.frm 窗体，“退出”子菜单的Click()事件执行End 语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行文件：Menu1.exe 。
5．在考生文件夹中建立一个名称为“Vbcd ”的工程文件Menu1.Vbp ，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
（1）菜单格式与内容如下:
排序(S) 窗口(W)
升序 (√)平铺
降序 层叠 ----
退出 (Ctrl+X)
其中,括号内的字符为热键；分隔条的名称为FGT ，其它菜单与子菜单的名称与标题相同，但不含热键；(√)：复选标记；Ctrl+X ：设置为快捷键。
（2）将考生文件夹下的窗体文件Sjt.frm 添加进该工程。 （3）除“降序”菜单的Click()事件调用Sjt.frm 窗体，“退出”子菜单的Click()事件执行End 语句,其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行程序：Menu1.exe 。
6．在考生文件夹中建立一个名称为“Vbcd ”的工程文件Menu1.Vbp ，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求：
（1）菜单格式与内容如下:
视图(V) 插入(I)
工具栏 单元格
显示比例 图片 ->剪贴画
------- 艺术字 退出 (Ctrl+S)
其中,括号内的字符为热键；分隔条的名称为FGT ，其它菜单与子菜单的名称与标题相同，但不含热键；Ctrl+S ：设置为快捷键；-> ：下一级菜单。
（2）将考生文件夹下的窗体文件Sjt.frm添加进该工程。
（3）除“工具栏”子菜单的Click()事件调用Sjt.frm 窗体，子菜单“显示比例”的Click()事件执行语句：Msgbox "选择显示的比例",其它菜单和子菜单不执行任何操作。
（4）调试运行并生成可执行文件：Menu1.exe。
============================================================ ==
2006年5月新增考题：
（一）在考生文件夹中，完成以下要求：
L 启动工程文件Sjt.Vbp,将该工程文件的工程名称改为“Spks”并将该工程中的窗体文件Sjt.frm的窗体名称改为“Vbbc”。
2.请在窗体适当位置添加控件：一个标签Label1,标题为“字体”且自动调整大小；一个组合框Combo1;一个文本框Text1,文本内容为“计算机水平考试”，举重现实；一个框架Frame1标题为“颜色”；两个单选按钮在框架Frame1中,Option1标题为“红色”，Option2标题为“蓝色”。（以上操作在属性窗口中完成）
3．窗体装载事件中编写代码，为组合框添加三个选项：“隶书”，“黑体”，“宋体”，且默认选项为“隶书”；程序运行时，选中组合框某项，相应改变文本框中的字体；选中某个单选按钮，相应改变文本框中字的颜色。程序运行界面如下图所示：
4
（二）在考生文件夹中，完成以下要求：
1．启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm 的窗体名称改为“Vbbc”。
2.请在窗体适当位置上添加控件：一个标签Label1,标题为“请输入一个自然数”，自动调整大小；一个文本框Text1,文本内容为空，且Tabindex属性值为0；一个命令按钮Command1,标题为“添加”；一个列表框List1。（以上操作在属性窗口中完成）
3．按要求编写代码：程序运行时，在文本框中输入一个自然数，单击“添加”按钮时，首先清除列表框中的内容然后在列表框中列出小于等于该自然数的所有偶数。程序运行界面如下图所示：
4．请先调试、运行，然后将工程、窗体保存。
（三）在考生文件夹中，完成以下要求：
1．启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm 的窗体名称改为“Prog1”,窗体的标题为“统计计算”。
2.请在窗体适当位置上添加控件：四个标签（均为默认名称，标题分别为“原始数据”、“最小值：”、“最大值：”和“平均值”）；三个文本框（均为默认名称）；列表框List1；三个名林干牛（均为默认名称，标题分别为“读取数据”、“统计”、“写入文件”），如图所示。
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期末考试试题及答案
二、选择题 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.360docs.net/doc/e16708389.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上机练习题
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
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程序设计期末考试题 一、选择题 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上机练习题电子版本
计算机一级V B上机 练习题
2007—2008(2) VB上机练习题 1．设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。 2．设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。 3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。在连续三次输入错误口令后，给出警告并结束运行。
4．设计一个程序，用户界面如下图所示。程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。 5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。 6．设计一个程序，用户界面如下图所示。程序运行后，单击Command1按钮，求出最大最小数。 7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。编写 适当的事件过程，程序运行后在第一个文本框中 输入圆的半径，单击“计算”按钮，分别在第二个 和第三个文本框中显示圆的面积和周长。 9．界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。 10．某工程运行时，图片框中图可以任意。单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。
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、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
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题库及答案 一、选择题 第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",
VB期末考试上机题编程答案
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；
VB上机操作题综合
VB程序设计—《暴风影音》程序运行前： 程序运行后： 说明：当用户双击窗体任意区域时，播放器窗口最大化。 提示：窗体最大化可使用语句：Form1.windowstate = 2 详细内容： 程序使用控件如下： 窗体（Form）1个。控件属性设置： Form1 Caption 暴风影音 BackColor 黑色
参考代码： Private Sub Form_DblClick() Form1.WindowState = 2 End Sub VB程序设计—《登录框》 程序运行： 说明：制作如图所示登录框，其中，用户名限制输入6位长度，密码以“*”号显示。 详细内容： 程序使用控件如下： 窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（Command Button）2个。 控件属性设置： Form1 Caption 登录框 Label1 Label2 Caption 用户名Caption 密码 Font 小三Font 小三 Text1 Text2 Text 清空Text 清空
Font 小三Font 小三 MaxLength 6 Passwordchar * Command1 Command2 Caption 登录Caption 退出 Font 小三Font 小三 VB程序设计—《静夜思》 程序运行： 说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下： 窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。控件属性设置： Form1 Label1 Caption 诗词记忆练习Caption 静夜思 Font 一号，隶书Label2 Label3 Caption 床前明月光，Caption 疑是地上霜。Font 小二，隶书Font 小二，隶书Visible False Visible False Label4 Label5 Caption 举头望明月，Caption 低头思故乡。Font 小二，隶书Font 小二，隶书Visible False Visible False Command1 Command2
VB练习题(上机)含标准答案
第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)
Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
VB程序设计试题及答案一
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
学年第二学期VB期末上机练习题
2011-2012学年第二学期VB期末上机练习题 1.设计"健康称"程序，具体要求如下： ●将两个文本框的文字对齐方式均设置为右对齐，最多接受3个字符；窗体标题为“健康 称”，固定边框； ●两个文本框均不接受非数字键； ●单击“健康状况”按钮后，根据计算公式将相应提示信息通过标签显示在按钮下面，如图 所示。计算公式为：标准体重＝身高-105，体重高于标准体重的1.1倍为偏胖，提示“偏胖，加强锻炼，注意节食”；体重低于标准体重的90％为偏瘦，提示“偏瘦，增加营养”； 其他情况提示为“正常，继续保持！” 2.新建一个工程，完成应用程序的设计： ●取消窗体的最大化和最小化按钮。 ●当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。 ●同时可使用热键Alt+L和Alt+B实现窗口放大或还原。 ●当窗体大小改变后，总是让命令按钮位于窗口的中央。 3.新建一个工程，完成应用程序的设计。 (1)当单击"确定"按钮后,首先比较"用户名"和"原密码"是否一致，若一致且都为"admin",则继续执行步骤2；否则弹出消息框,提示用户出错,并让用户重新输入； (2)比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。 (3)当单击“取消”按钮时,程序终止执行。 (4)当按“Tab”键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。
4.完成“计算平均成绩”应用程序的设计。 ●在输入或修改单科成绩的同时计算平均分，即在"高数"、"英语"和"计算机"文本框内容 发生改变时，就要立即重新计算平均分，并将计算结果在平均成绩文本框中显示。 ●“平均成绩”文本框不允许编辑，即不能手工修改。 ●各单科成绩框中只能输入数字，不能输入字母或汉字，否则不予显示，并发出错误提示 音。 5.新建一个工程，完成“密码检验”程序的设计。 ●文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字 符。 ●窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息，它的文字对齐 方式为居中对齐，文字颜色为红色，宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。 ●当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”， 同时文本框就不能使用了；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。 6.新建一个工程，完成“编辑”程序的设计。 ●窗体的标题为“编辑”。