声明：本资料由大家论坛计算机考试专区https://www.doczj.com/doc/1e13567509.html,/index_49.html收集整理，转载请注明出自https://www.doczj.com/doc/1e13567509.html,
更多计算机考试信息，考试真题，模拟题：https://www.doczj.com/doc/1e13567509.html,/index_49.html大家论坛，学习的天堂！
二级上机测试中VB程序设计及程序调试样题
程序设计题的操作步骤如下：
1．考生在单击“回答”按钮后，便可启动Visual Basic6.0系统，同时运行考生目录中的Design.exe 文件，以便考生设计时随时同程序设计要求最终效果比较。
2．程序界面设计，要求考生设置窗体指定的一些属性，在窗体添加控件，并设置控件的某些属性。
3．编写程序代码，根据题目的要求，在代码窗口中编写相应事件的程序代码，调试运行程序使其程序的运行效果与运行Design.exe的效果相同。
4．将工程以文件名“Design.Vbp”，窗体以文件名“Design.Frm”保存在考生文件夹中。
上机做这些试题，由于你的计算机中没有Design.EXE文件，你可自己启动Visual Basic6.0系统，新建一标准EXE工程，按题目的要求设计界面、添加所需控件并设置相关属性，编写相应事件代码，使其程序运行结果能实现题目的要求。
（一）程序设计题
1．请参考Design.exe程序的运行结果，新建一个工程，完成“添加与删除”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“添加与删除”，固定边框。
（2）在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。
（3）单击“添加”按钮（Command1），将文本框中的内容加到列表框中的第一题，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择删除的项目”。
（5）其他界面设计参考Design.exe程序运行效果，如图2-1所示。
图2-1 “添加与删除”程序运行结果
2．请参考Design.exe程序的运行结果，新建一个工程，完成“加法器”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“加法器”，固定边框。
（2）在窗体上从到下依次引入Text1、Text2、Text3三个文本框，三个文本框的对齐方式均为右对齐。
（3）上面两个文本框用于输入加数，要求不接受非数字键
（4）下面一个文本框用于显示和，它不能进行编辑操作。
（5）单击“=”按钮（Command1），将两个加数的和显示在下面一个文本框中。
（6）单击“清空”按钮（Command2），三个文本框内容都被清空，同时第一个文本框获得焦点。
（7）其他界面设计参考Design.exe程序运行效果，如图2-2所示。
图2-2 “加法器”程序运行效果
3．请参考Design.exe程序的运行结果，新建一个工程，完成“字幕滚动”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“字幕滚动”，固定边框。
（2）在属性窗口中将标签(Label1)的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。
（3）单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边进入，同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时，“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.1秒。
（6）其他界面设计参考Design.exe程序运行效果，如图2-3所示。
图2-3 “字幕滚动”程序运行效果
4．请参考Design.exe程序的运行结果，新建一个工程，完成“改变字号”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“改变字号”，固定边框。
（2）窗体的下部有一个水平滚动条Hscroll1，它的取值范围为[12，72]。
（3）窗体的上部有一个标签Label1,标题为“心想事成”，格式设置为在窗体中水平居中对齐。（4）水平滚动条的上有一个标签Label2,标题为“字号”，标签的旁边有一个文本框Text1,文字内容为“12”，Text1最多接受两个字符。
（5）改变滚动条可以控制标签文字的大小，并同时在文本框Text1中显示标签文字的大小改变后的字号。
（6）在文本框Text1中输入一个属于[12，72]的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置；如果输入的数据不在上述范围内，则不起作用（要求用Text1的Change事件实现）。
（7）要求以上两种改变字号的操作要保持标签Label1在窗体中水平居中。
（8）其他界面设计参考Design.exe程序运行效果，如图2-4所示。
图2-4 “改变字号”程序运行效果
5．请参考Design.exe程序的运行结果，新建一个工程，完成“字幕闪烁”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“字幕闪烁”，固定边框。
（2）在属性窗口中将标签(Label1)的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。格式设置为在窗体中水平居中对齐。
（3）单击“开始”按钮，标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签文字停止闪烁。同时，“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.3秒。
（6）其他界面设计参考Design.exe程序运行效果，如图2-5所示。
图2-5 “字幕闪烁”程序运行效果
6．请参考Design.exe程序的运行结果，新建一个工程，完成“图片欣赏”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“图片欣赏”，固定边框。
（2）窗体上有驱动器列表框（Drive1）、目录列表框（Dir1）和文件列表框（File1）三个控件，要求三个控件能够联动。
（3）窗体的右半部有一个图像框Image1，将它的Stretch属性设置为True。
（4）设置文件列表框只显示*.bmp和*.jpg类型的图片文件。
（5）单击文件列表框上的图片文件名时，图片显示在图像框中。
（6）其他界面设计参考Design.exe程序运行效果，如图2-6所示。
图2-6 “图片欣赏”程序运行效果
7．请参考Design.exe程序的运行结果，新建一个工程，完成“拨号盘”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“拨号盘”，固定边框。
（2）窗体的上边有一个文本框Text1，设置为最多接受10个字符；Font；宋体、粗体、三号；文字颜色为兰色。
（3）用命令按钮数组Command1(0)~Command1(9)构成数字键，数字键标题正好和命令按钮数组的下标一致。单击数字键按钮，将拨号的内容显示在文本框中。
（4）单击“重拨”按钮（Command2），再现原来的拨号过程；（提示：再现过程由定时器实现）。（5）定时器（Timer1）的时间间隔为0.5秒。
（6）其他界面设计参考Design.exe程序运行效果，如图2-7所示。
图2-7 “拨号盘”程序运行效果
8．请参考Design.exe程序的运行结果，新建一个工程，完成“作图”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“作图”，固定边框。
（2）窗体的右边是一个图片框Picture1，用于显示图形。
（3）单击“坐标系”按钮（Command1），将图片框的坐标系统设置为原点在中央，X轴[-10，10]，Y轴[-10，10]，并在图片框中画出该坐标系统示意图。
（4）单击“扇形”按钮（Command2），在图片框中画一个圆心在原点，半径为5，圆周为红色，线宽为2，内部为绿色，起始角为л/6，终止角为5л/6的扇形。
（5）单击“结束”按钮（Command3），程序结束运行，
（6）其他界面设计参考Design.exe程序运行效果，如图2-8所示。
图2-8 “作图”程序运行效果
9．请参考Design.exe程序的运行结果，新建一个工程，完成“反弹球”程序的设计。将工程文件以Design.vbp、窗体文件以Design.frn保存到考生目录下，具体要求如下：
（1）窗体的标题为“反弹球”，固定边框。
（2）设计两个菜单项，nnustart的标题为“启动”，nnustop的标题为“停止”。
（3）在窗体中引入一个形状控件Shapel，形状为圆，贺半径为500Twios,填充色为红色。（4）第一次单击菜单“启动”，圆球先向右上角方向运动，碰壁后改变方向。每年时间间隔水平方向改变量bx和垂直方向改变量by都是100Twips。
（5）单击菜单“停止”，圆球停止运动。再单击菜单“启动”，圆球继续运动。
（6）定时器（timerl）的时间间隔为0.1秒。
（7）其他界面设计参考Design.exe程序运行效果，如图2-9所示。
图2-9 “反弹球”程序运行效果
10．请参考Design.exe程序的运行结果，新建一个工程，完成“健康称”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“健康称”，固定边框。
（2）窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“cm”，Label4的标题为“kg”。
（3）将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。
（4）两个文本框均不接受非数字键。
（5）单击“健康状况”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Label5中。
计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。
（6）其他界面设计参考Design.exe程序运行效果，如图2-10所示。
图2-10 “健康称”程序运行效果
11．请参考Design.exe程序的运行结果，新建一个工程，完成“电子钟”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“电子钟”，固定边框。
（2）设计两个定时器，Timer1用于显示系统时间，时间间隔为一秒；Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可用。
（3）窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。
（4）窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。（5）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1显示的时间超过那种时间，则标签Label1的背景色按红白两色交替变换。
（6）其他界面设计参考Design.exe程序运行效果，如图2-11所示。
图2-11 “电子钟”程序运行效果
12．请参考Design.exe程序的运行结果，新建一个工程，完成“改变大小”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“改变大小”，固定边框。
（2）窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3400Twips。
（3）窗体的下面有一个水平滚动条Hscroll1，将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips。
（4）水平滚动条的下面有两个标签控件，Label1的标题为“圆直径为：”，Label2的标题为“3400”，两个标签均为固定边框。
（5）改变滚动条的值可以控制圆形的直径，同时在标签Label2中动态显示圆形的直径。（6）要求圆形直径在变化时要保持圆心位置不变。
（7）其他界面设计参考Design.exe程序运行效果，如图2-12所示。
图2-12 “改变大小”程序运行效果
13．请参考Design.exe程序的运行结果，新建一个工程，完成“点餐”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“点餐”，固定边框。
（2）窗体上有一个框架Frame1，标题为“菜单”。框架内有复选框数组提供选择三种套餐，Check1(0)的标题为“儿童套餐13元”，Check1(1)的标题为“标准套餐18元”，Check1(2)的标题为“商务套餐25元”。框架的右边有一个标签Label1，标题为“份数”，标签的下面是文本框控件数组，从上到下依次为Text1(0)、Text1(1)和Text1(2)，文本框中都没有内容，并且都不能使用。
（3）在复选框中进行了选择操作后，相应的文本框才能输入并自动获得焦点；如果取消选择，那么相应的文本框内容立即清空并且不能使用了。
（4）要求文本框在输入时只接受数字键。
（5）单击“确定”按钮(Command1)，统计点餐的金额，并用消息框显示出来。
（6）其他界面设计参考Design.exe程序运行效果，如图2-13所示。
图2-13 “点餐”程序运行效果
14．请参考Design.exe程序的运行结果，新建一个工程，完成“编辑”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“编辑”，固定边框。
（2）窗体是上半部是一个文本框Text1，可以多行显示文字。
（3）文本框的下面从左到右依次排列4个命令按钮（Command1、Command2、Command3和Command4），标题分别为“复制”、“剪切”、“粘贴”和“删除”。
（4）编写各命令按钮的单击事件，分别实现“复制”、“剪切”、“粘贴”和“删除”功能。（5）其他界面设计参考Design.exe程序运行效果，如图2-14所示。
图2-14 “编辑”程序运行效果
15．请参考Design.exe程序的运行结果，新建一个工程，完成“字体设置”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“字体设置”，固定边框。
（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”。
（3）文本框下面的左边有一个标签Label1，标题为“字体：”，标签下面是一个简单组合框Combo1，有三项内容，分别是“宋体、黑体、楷体-GB2313”，单击时文本框的字体进行设置。（4）文本框下面的右边有一个标签Label2，标题为“大小：”，标签下面是一个简单组合框combo2，有八项内容，分别是“10、12、16、20、24、36、48、72”，单击时对文本框的文字大小进行设置。
（5）其他界面设计参考Design.exe程序运行效果，如图2-15所示。
图2-15 “字体设置”程序运行效果
16．请参考Design.exe程序的运行结果，新建一个工程，完成“倒计时”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“倒计时”，固定边框。
（2）窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选钮控件数组，从上到下为Option1(0)、Option1(1)和Option1(2)，标题分别为“1分钟”、“5分钟”和“10分钟，默认选择为1分钟。
（3）窗体的右边有一个标签Label1，用于显示倒计时的剩余的时间，标签Label1设置为：宋体、粗体、三号，文字居中对齐，固定边框。
（4）单击“开始计时”按钮(Command1)后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。
（5）但当剩余时间到0分0秒时，改为显示“时间到！”。
（6）定时器Timer1的时间间隔为1秒。
（7）其他界面设计参考Design.exe程序运行效果，如图2-16所示。
图2-16 “倒计时”程序运行效果
17．请参考Design.exe程序的运行结果，新建一个工程，完成“替换”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“替换”，固定边框。
（2）窗体的上半部是一个文本框Text1，可以多行显示文字。
（3）文本框Text1的下面有一个标签Label1，标题为“查找：”，标签Label1的右边是一个文本框Text2，可以在Text2中输入查找内容。
（4）标签Label1的下面有一个标签Label2，标题为“替换为：”，标签Label2的右边是一个文本框Text3，可以在Text3中输入替换为的内容。
（5）单击“替换”按钮(Command1)，对文本框Text1中与查找内容匹配的文字进行替换操作。（6）其他界面设计参考Design.exe程序运行效果，如图2-17所示。
图2-17 “替换”程序运行效果
18．请参考Design.exe程序的运行结果，新建一个工程，完成“偶数迁移”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“偶数迁移”，固定边框。
（2）窗体的左边有一个标签Label1，标题为“两位正整数：”，标签的下面是一个列表框List1。（3）窗体的右边有一个标签Label2，标题为“偶数：”，标签的下面是一个列表框List2。（4）单击“产生”按钮（Command1），计算机产生10个两位正整数放入列表框List1中。同时清空列表框List2中的内容。
（5）单击“-->”按钮（Command2），将列表框List1中所有偶数迁移到列表框List2中。（6）其他界面设计参考Design.exe程序运行效果，如图2-18所示。
图2-18 “偶数迁移”程序运行效果
（二）程序调试
程序调试题的操作步骤是：
（1）建立一标准EXE工程，将这一模块程序添加到工程中。如果你是通过双击标准模块程序Model1.BAS进入Visual Basic系统的，则首先需要添加一个窗体模块。
（2）将该标准模块程序Model1.BAS中代码的指定的错误修改正确或在指定的空位填上适当的语句，并在窗体模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的Sub过程或用户自定义函数（如果在标准模块程序Model1.BAS有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。
（3）按试题要求保存工程。
如果你的计算机中没有模块程序Model1.BAS，你必需先自己新建一工程，再添加一个默认标准模块，将题目所附的参考程序输入（可复制粘贴），将其中用---n---（n为1，2，3，4，5）部分删除后改为合适的内容或将用**** 错误n **** 标示的下一语句中的错误改正，然后调试运行程序使其达到该题目的要求。
1．已有一模块文件Modify.Bas。该模块中的Summary过程是用于计算1!+2!+...+20!，并打印出计算结果，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的nFactor
函数过程用于计算n!。
程序如下：
Public Function nFactor(ByVal n As Integer) As Double
Dim i As Integer
Dim temp As Double
----1----
For i = 1 To n
temp = temp * i
Next i
nFactor = ----2----
End Function
Public Sub summary()
Dim sum As Double
Dim i As Integer
Dim n As Integer
n = 20
For i = 1 To n
sum = sum + ----3----
Next i
Form1.Print "sum=" & ----4----
End Sub
2．已有一模块文件Modify.Bas。该模块中的Calculate过程是产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。
程序如下：
Public Sub calculate()
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer, p As Integer
'产生100个[0，99]范围内的随机整数
'每行10个打印出来
For i = 1 To 100
'******** 错误1 ***********
a(i) = Rnd * 100
If a(i) < 10 Then
Form1.Print Space(2); a(i);
Else
Form1.Print Space(1); a(i);
End If
If i Mod 10 = 0 Then Form1.Print
Next i
'统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数
'并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来
For i = 1 To 100
'******** 错误2 **********
p = Int(a(i) / 10) '求个位上的数字
If p = 0 Then p = 10
'******** 错误3 **********
x(p) = x(p) - 1
Next i
Form1.Print "统计结果"
For i = 1 To 10
p = i
If i = 10 Then p = 0
'******** 错误4 *********
Form1.Print "个位数为" + Str(p) + "共" + Str(x(p)) + "个"
Next i
End Sub
3.已有一模块文件Modify.Bas。该模块中的Findat过程是用于在一个字符串变量中查找"at"，并用消息框给出查找结果的报告：没有找到或找到的个数，但不完整，请在横线上填入必要的内容，使其完整。
程序如下：
Public Sub Findat()
'在字符串str1中查找"at"
Dim str1 As String
Dim length As Integer '字符串长度
Dim sum As Integer '查到的个数
Dim i As Integer
str1 = InputBox("请输入一个字符串")
length = ----1----
i = 1
sum = 0
Do While i <= ----2----
If ----3---- = "at" Then
sum = sum + 1
End If
i = i + 1
Loop
If ----4---- Then
MsgBox "没有找到！"
Else
MsgBox "找到了" & Str(sum) & "个"
End If
End Sub
4.已有一模块文件Modify.Bas。该模块中的Guess 过程是猜数游戏，由计算机产生一个[1，100]
的任意整数，输入猜数后计算机给出提示，如果5次后还没有猜中就结束游戏并公布正确答案。
程序如下：
Public Sub Guess()
Dim R As Integer
Dim X As Integer
Dim times As Integer
Randomize
'****** 错误1 ******
R = Rnd * 100 '产生一个1--100 的任意整数
times = 1
Do
X = Val(InputBox("输入猜数X"))
Select Case X
Case R
Form1.Print "猜中了"
Exit Do
'***** 错误2 ******
Case X > R
Form1.Print "太大了,继续猜!"
Case Else
Form1.Print "太小了,继续猜!"
End Select
times = times + 1
'****** 错误3 ******
Loop While times > 5
If times > 5 Then
Form1.Print "猜数失败,游戏结束!"
'****** 错误4 ******
Form1.Print "正确答案为" & Str(X)
End If
End Sub
5.已有一模块文件Modify.Bas。该模块中的ArmstrongNumber过程是用于求出1--999之间所有的Armstrong数，并打印出来，但不完整，请在横线上填入必要的内容，使其完整。所谓Armstrong 数是指一个数等于它每位上数字的立方和。例如：371=3^3+7^3+1^3，那么371就是一个Armstrong数。
程序如下：
Public Sub ArmstrongNumber()
Dim armstrong As Integer
Dim i As Integer
Dim hundred As Integer '百位上的数字
Dim ten As Integer '十位上的数字
Dim one As Integer '个位上的数字
For i = 1 To 999
hundred = ----1----
ten = ----2----
one = ----3----
If ----4---- Then
Form1.Print i; "is armstrong number"
End If
Next i
End Sub
6.已有一模块文件Modify.Bas。该模块中的CountTo60 过程是用于从一堆一分、二分、五分的硬币中取出20枚，使其总值为60分，要求输出取法的数量及每一种取法的一分、二分、五分的个数。
程序如下：
Public Sub CountTo60()
'从一堆一分、二分、五分的硬币中取出20枚，使其总值为60分
'输出取法的数量及每一种取法的一分、二分、五分的个数
Dim one As Integer '一分硬币个数
Dim two As Integer '二分硬币个数
Dim five As Integer '五分硬币个数
Const n = 20 '总数20枚
Dim k As Integer '取法数量
k = 0
For one = 1 To n
'******* 错误1 ********
For two = one + 1 To n
five = n - one - two
'******* 错误2 *********
If one + two + five = 60 Then
k = k + 1
Form1.Print "one="; one; "two="; two; "five="; five
End If
'******* 错误3 ********
Next one
'****** 错误4 ******
Next two
Form1.Print "k="; k
End Sub
7.已有一模块文件Modify.Bas。该模块中的TJ过程是将一批数据中小于零的数及它们的积打印出来，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的SCSJ过程是产生数据，数据的取值范围为-10 ~ 10 之间的随机数。
程序如下：
Private Const n = 10
Private a(1 To n) As Integer
'TJ过程是将一批数据中小于零的数及它们的积打印出来
'数据由SCSJ过程产生，数据的取值范围为-10 ~ 10 之间的随机整数
Public Sub TJ()
Dim i As Integer
Dim t As Single
-------- 1 --------
For i = 1 To 10
If -------- 2 -------- Then
t = t * a(i)
End If
Next i
Form1.Print "T="; t
End Sub
Public Sub SCSJ()
Randomize
Form1.Print "原始数据"
Dim i As Integer
Dim j As Integer
For i = 1 To n
'随机产生0或1，为0时取负，为1时取正
j = Int(Rnd * 2)
If ------ 3 ----- Then J = -1
a(i) = j * Int(Rnd * (n + 1))
Form1.Print a(i);
Next i
Form1.Print
End Sub
8.已有一模块文件Modify.Bas。该模块中的Money过程是用于统计一个有7个工作人员的餐厅发工资所需的100元、50元、10元、5元和1元的票面数，但不完整，请在横线上填入必要的内容，使其完整。
Modify.Bas模块中的SalaryData过程是给出7个员工的工资。（工资单位是元）
程序如下：
Dim salary(7) As Integer
Public Sub Money()
Dim hundred As Integer, totalhundred As Integer '100元票面数量、总数量
Dim fifty As Integer, totalfifty As Integer '50元票面数量、总数量
Dim ten As Integer, totalten As Integer '10元票面数量、总数量
Dim five As Integer, totalfive As Integer '5元票面数量、总数量
Dim one As Integer, totalone As Integer '1元票面数量、总数量
Dim totalsalary As Integer '工资总计
Dim i As Integer, temp As Integer
totalhundred = 0
totalfifty = 0
totalten = 0
totalfive = 0
totalone = 0
totalsalary = 0
For i = 1 To 7
temp = ----1----
hundred = Int(temp / 100)
temp = ----2----
fifty = Int(temp / 50)
temp = temp - fifty * 50
ten = Int(temp / 10)
temp = temp - ten * 10
five = Int(temp / 5)
temp = temp - five * 5
one = ----3----
totalhundred = totalhundred + hundred
totalfifty = totalfifty + fifty
totalten = totalten + ten
totalfive = totalfive + five
totalone = totalone + one
totalsalary = ----4----
Next i
Form1.Print "共需100元" & Str(totalhundred) & "张"
Form1.Print "共需50元" & Str(totalfifty) & "张"
Form1.Print "共需10元" & Str(totalten) & "张"
Form1.Print "共需5元" & Str(totalfive) & "张"
Form1.Print "共需1元" & Str(totalone) & "张"
Form1.Print "合计" & Str(totalsalary) & "元"
End Sub
Public Sub SalaryData()
salary(1) = 1398
salary(2) = 1765
salary(3) = 689
salary(4) = 1500
salary(5) = 832
salary(6) = 590
salary(7) = 1200
End Sub
9.已有一模块文件Modify.Bas。该模块中的MaxLine 过程用于查找一个5行4列的二维数组中行平均值最大的行，并将该行所有数据调整到第一行的位置。
Modify.Bas模块中的DataProduce 过程用于产生原始数据；Average 过程用于计算各行的平均值；PrintArray过程用于打印二维数组和行平均值。
程序如下：
Dim a(1 To 5, 1 To 4) As Integer
Dim ave(1 To 5) As Integer
Public Sub MaxLine()
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim Line_no As Integer '最大平均值的行号
'找出最大平均值所在行
Line_no = 1
For i = 2 To 5
'****** 错误1 *******
If ave(Line_no) >= ave(i) Then
'****** 错误2 *******
Line_no = ave(i)
End If
Next i
'交换第一行与最大平均值所在行
For j = 1 To 4
temp = a(1, j)
'****** 错误3 ******
a (Line_no, j) = a(1, j)
a (Line_no, j) = temp
Next j
'交换对应行的平均值
temp = ave(1)
ave(1) = ave(Line_no)
ave(Line_no) = temp
'打印交换后的数据
Form1.Print "交换后的数据和平均值"
PrintArray
End Sub
Public Sub DataProduce()
Dim i As Integer
Dim j As Integer
'产生5*4数组
For i = 1 To 5
For j = 1 To 4
a(i, j) = Int(100 * Rnd)
Next j
Next i
Public Sub Average()
Dim i As Integer
Dim j As Integer
Dim sum As Integer
'计算各行平均值
For i = 1 To 5
sum = 0
For j = 1 To 4
'****** 错误4 ******
sum = a(i, j)
Next j
ave(i) = sum / 4
Next i
'将数组和平均值打印出来
Form1.Print "原始数据和平均值"
PrintArray
End Sub
Public Sub PrintArray()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 4
Form1.Print a(i, j); Spc(3);
Next j
Form1.Print "平均值="; ave(i)
Next i
End Sub
10．已有一模块文件Modify.Bas。该模块中的Wrap 过程用于判断一个字符串是否“回文”。所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。
程序如下：
Public Sub Wrap()
Dim length As Integer
Dim str1 As String
Dim strleft As String
Dim strright As String
Dim k As Integer
str1 = InputBox("请输入任意的字符串") '输入任意字符串
'****错误1*****
length = Val(str1)
k = 1
'****错误2*****
strleft = Left(str1, k) '从左边起逐个取出一个字符
'****错误3*****
strright = Right(str1, k) '从右边起逐个取出一个字符
'****错误4****
If strleft = strright Then
Exit Do
End If
k = k + 1
Loop While k <= length / 2
If k > length / 2 Then
Form1.Print str1 & "是回文"
Else
Form1.Print str1 & "不是回文"
End If
End Sub
11.已有一模块文件Modify.Bas。该模块中的BubbleSort过程是冒泡排序法；GenerateData过程产生10个[1，20]之间互不相同的随机整数；Swap过程交换两个变量的数值。
程序如下：
Private Const n = 10
Private a(1 To n) As Integer
'BubbleSort过程是冒泡排序
'Swap过程交换两个变量数值
'GenerateData过程产生10个[1，20]之间互不相同的随机整数
Public Sub BubbleSort()
Dim i As Integer, j As Integer
i = 1
Do
For j = i + 1 To n
If a(j) > a(i) Then
'******* 1 *********
Swap (a(j), a(i))
End If
Next j
i = i + 1
'******* 2 *******
Loop While i = n
Form1.Print "排序结果"
For i = 1 To n
Form1.Print a(i);
Next i
Public Sub GenerateData()
Dim i As Integer
Dim j As Integer
Dim b As Boolean
For i = 1 To n
b = False
Do While Not b
a(i) = Int(20 * Rnd + 1)
b = True
'****** 3 ******
For j = 1 To i
If a(i) = a(j) Then
b = False
Exit For
End If
Next j
Loop
Form1.Print a(i)
Next i
End Sub
'******** 4 ********
Public Sub Swap(ByVal a As Integer, ByVal b As Integer)
Dim temp As Integer
temp = a
a = b
b = temp
End Sub
12.已有一模块文件Modify.Bas。该模块中的Transfer 过程用于将一个十六进制整数转换为十进制整数；number 函数过程用于将一个十六进制符号转换为数值。
程序如下：
Public Sub Transfer()
Dim Hex As String '十六进制数
Dim Dec As Double '十进制数
Dim temp As String
Dim i As Integer
Dim n As Integer
Hex = InputBox("输入一个十六进制整数")
'****** 错误1 *******
n = Val(Hex)
i = 0
Do
'****** 错误2 *******
二、选择题 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 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
大学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/1e13567509.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．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE
第一套试题 一、选择题（每题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 )
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%
第一部分 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. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性
8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly
******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为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 索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim 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试卷 一、单项选择题(每题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程序设计》试卷试卷十五 一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误） 1. 窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按 | 最新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程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用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 … … Next x Next xVB考试题及答案
完整word版,VB程序设计例题12例
VB程序设计期末模拟试卷
VB程序设计试题及答案一
vb试题及答案
VB程序设计试卷
vb题库及答案
VB程序设计试题及答案(一)
相关主题
文本预览