VB上机综合测试题(十五套)
国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以业示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下。
工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、忧度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。
步骤2：按照步骤1设置其他控件相关属性，程亭中涉及的控件及属性见表3．10。
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub C1 Click( )’当单击”放大”按钮时，依次将Imagel的高与宽分别加100 Imagel．Height=Imagel．Height+i00 Imagel．Width=Imagel．Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮，则依次将Imagel的高与宽分别减100 Imagel．Height=Imagel．Height—100 Imagel．Width=Imagel．Width一100 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。
vb机试模拟试题(十五套)
附录2 Visual Basic上机模拟试题（1～10套）上机模拟试题 1一、调试程序（程序存盘文件名Test11.frm、Test11.vbp）（40分）在磁盘上有一名为“test11.vbp”的文件（程序界面如图1所示）。
其功能为：单击图片框后，则在图片框Picture1中输出如下所示的图形。
图1该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test12.frm、Test12.vbp）（60分）建立一个窗体，界面如图2所示。
程序功能要求如下：1、单击“查找”按钮后，查找所有四位数中满足条件“奇数位之和与偶数位之和均为素数”的数，并显示列表框list1中。
2、统计找到的满足条件的数的个数。
3、单击“存盘”按钮，将找到的数据存入数据文件“test12out.txt”中。
4、要求编写函数来判断是否是素数。
图2上机模拟试题2一、调试程序（程序存盘文件Test21.frm、Test21.vbp）（40分）在磁盘上有一名为“test21.vbp”的文件（程序界面如图1所示）。
其功能为：当在text1中输入行数和在text2中输入起始字母后，单击命令按钮command1，则在picture1中输出图形如图1所示。
要求：在text2中只能输入一个英文字母字符（大小写均可以），否则，提示错误信息，如图2所示。
图1 图2 该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test22.frm、Test22.vbp）（60分）建立一个成绩查询窗体，界面如图3所示。
程序功能要求如下：图31、在Form1_Load时，打开磁盘文件“test22in.txt”读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组中（每个数组可定义为200个元素）；并默认选中第一名学生。
VB机试模拟试卷120(题后含答案及解析)
VB机试模拟试卷120(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmdl和Cmd2，标题分别为“输出”和“清除”，如图22—1所示。
要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“load me’’；如果单击“清除”按钮，则清除图片框中的内容。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。
(2)在名为：Form1的窗体上绘制一个标签，名为Labl，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Textl，其宽、高分别为1500和300。
设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外冉把窗体的标题设置为“PassWord窗口”。
运行时的窗体如图22—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)本题主要考查图片框控件的基本操作。
命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；打印信息用Print方法，清除用Cls方法。
题目要求在图片框中打印信息，所以在编写代码时应指定Print方法和C1s方法的使用对象。
在窗体上建立好控件后，先设置控件属性，再编写事件过程。
①建立界面并设置控件属性。
程序用到的控件及其属性见下表。
②命令按钮Cmdl触发Click事件，打印信息用Print方法。
题目要求在图片框中打印信息，所以在编写代码时，应指定Print方法使用对象。
Private Sub Cmdl Click( ) P1．Print”load me”End Sub ③清除用Cls方法。
题目要求清除图片框中的信息，所以在编写代码时，应指定Cls方法的使用对象。
Private Sub Cmd2_Click( ) P1．Cls End Sub ④调试并运行程序。
计算机一级VB上机练习题
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）界面如左图，编写适当的事件过程。
11．在文本框T1中打印100~999之间的所有水仙花数。
（该数为各位数字的立方和。
例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。
编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。
国家二级VB机试(上机操作)模拟试卷155(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷155(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架，标题分别为“字号”、“修饰”；在Frame1中添加两个单选按钮，1名称分别为Option1、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中添加一个名称为Checkl的复选框，标题为“下划线”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，丁程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加一个命令按钮，名称为Command1，标题为“选中字符数是”。
程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则选中的字符个数显示在Text2中(如图所示)。
请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt．frm。
正确答案：(1)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。
程序中的控件及属性见表3．43。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】步骤1：建立界而，添加相应的控件并设置控件的属性。
程序中涉及的控件及属性见表3．44。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Commandl_lick( ) Text2＝Text1．SeiLength End Sub 步骤3：调试并运行程序，关闭程序后按题日要求存盘。
简单应用题2．(1)在考生文件夹下有一个工程文件sjt3．vbp。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
VB机试模拟试卷66(题后含答案及解析)
VB机试模拟试卷66(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个二级下拉菜单。
一级菜单的标题为“编辑”，名称为vbEdit，有效。
二级菜单有两项，一项标题为“复制”，名称为vbCopy，有效，命令执行的快捷方式为Crtl+C；另一项标题为“粘贴”，名称为vbPaste，无效，命令执行的快捷方式为Ctrl+P。
程序运行时，窗体界面如图69一1所示。
注意：存盘时必须存放到考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forml的窗体上画一个文本框，其名称为Textl，然后通过属性窗口设置窗体和文本框属性；文本框中显示的初始信息为“模拟考试”，字体为四号、常规、黑体，并有删除线，文本框可以显示多行文本且只有垂直滚动条。
不编写任何代码。
程序运行时的窗体界面如图69—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2.vbp。
正确答案：(1)根据题意，新建“标准EXE”工程，在窗体空白处单击右键，在弹出的快捷菜单中选择“菜单编辑器”命令，或按“Ctrl+E”组合键，打开菜单编辑器，添加以下菜单项：添加完成后，单击“确定”按钮。
再单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Text1，Text属性为“模拟考试”，Font属性为“常规”、“黑体”、“四号”，并选中删除线复选按钮，MultiLIne属性为True，Scrollbars属性为2。
单击按钮运行程序，并按要求保存。
简单应用题（40分）2．(1)在考生文件夹中有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。
在名为Form1的窗体上有一个命令按钮，其名称为Commandl，标题为“添加”；有一个文本框，名为Textl，初始内容为空白；此外还有一个列表框，其名称为Listl。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
国家二级VB机试(上机操作)模拟试卷115(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷115(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。
再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3-130所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，工程文件名为sjtl．vbp。
(2)新建一个名称为Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。
请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。
如图3．131所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sit2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。
步骤3：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，将窗体Forml的Caption属性设置为“使用输入对话框”。
步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Form Click( )InputBox“请输入”，“等级考试”，“Basic”End Sub步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在考生目录下有一个工程文件sit3．vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图3-18所示。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
计算机二级VB上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
vb试题及答案上机
vb试题及答案上机1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为：" & sum)```2. 编写一个VB程序，实现输入一个字符串，然后输出该字符串的反转。
答案：```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为：" & reversedString)```3. 编写一个VB程序，判断一个整数是否为素数，并输出结果。
答案：```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序，实现一个简单的计算器，可以进行加、减、乘、除运算。
答案：```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数："))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数："))Dim operation As String = Console.ReadLine("请输入运算符（+、-、*、/）：")Select Case operationCase "+"Console.WriteLine("结果为：" & num1 + num2)Case "-"Console.WriteLine("结果为：" & num1 - num2)Case "*"Console.WriteLine("结果为：" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为：" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。
VB上机综合测试题(十五套)
End Sub Private Sub Timer1_Timer()------2 分
If = 0 Then------3 分 + 80, + 160------3 分
Else------2 分 + 80, - 160-----3 分
End If------2 分
End Sub
End Sub
三、
界面设计------10 分 Dim n%------2 分 Private Sub Form_Load() End Sub
Private Sub Option1_Click()------2 分
Dim i% ------2 分
n = Val(Text1) ------3 分
m = 1 ------1 分
答案：
一、
界面设计------10 分 Private Sub Check1_Click()
= ------5 分 End Sub Private Sub Check2_Click()
=分 End Sub Private Sub Check3_Click()
= ------5 分
End Sub
二、
2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的 复选框后面的文字罗列在文本框中（见右图）（25 分）。
3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止 不动，单击“太阳升起”按钮时，太阳升起（以为时间间隔，太阳向右移动 80， 向上移动 160）；单击“停止升起”时，太阳静止不动。(40 分)
二、 界面设计------10 分 Private Sub Check1_Click(Indes As Integer）------2 分
vb考试题及答案.doc
vb考试题及答案.docvb 考试题及答案【篇一：vb 考试真题一含答案】一、单项选择题（40 道小题，共40 分）1、在visual basic 中应用的是( c ) 。
（1 分）a、面向过程的程序设计方法b、面向数据的程序设计方法c、面向对象的程序设计方法d、面向用户的程序设计方法2、如果想让代码窗口中代码的字体大些，可以使用( a ) 命令设置。
（1 分）a、“工具”菜单的“选项”b、“视图”菜单的“缩放”c、“编辑”菜单的“替换”d、“视图”菜单的“定义”3、开发一个标准exe 程序时，工程资源管理器窗口应包含( b ) 文件。
（1 分）a、.bas b 、.frmc、.res d 、.cls4、在设计模式下，双击窗体上的一个控件，则会打开( c ) 。
（1 分）a、属性窗口b、工程资源窗口c、代码窗口d、窗体布局窗口5、下列属性中，能表示窗体执行时以正常窗口状态显示的属性是( d ) 。
（1 分）a、tabindex b 、controlboxc、borderstyle d 、windowsstate6、text1 是个文本框，语句text1=* 和下面( d ) 的作用相同。
（ 1分）a、text1.caption=* b 、text1.password=*c、text1.maxlength=* d 、text1.text=*7、command1 是一个按钮控件，它的pictrue 属性已经被成功设置为一个可显示图形，但运行时该图形未被显示，其原因可能是( d ) 。
（1 分）a、该图形太大b、forecolor 被设置为黑色c、backcolor 被设置为黑色d、style 属性值被设置为08、为了使标签覆盖背景，应把backstyle 属性设置为( b ) 。
（1分）a、0 b 、1c、ture d 、false9、要使时钟控件的timer 事件每隔3 秒发生一次，应该把它的interval 属性设置为( d ) 。
VB上机综合考试题十五套
Tｅxt2 = m----－-２分
Eｎd Sub
ＰriｖatｅＳub Optioｎ２_Cliｃｋ()----－-1分
Dimi%－-－---2分
ｍ＝１－-----1分
Forｉ=１Tｏn + 2----－-2分
m＝m * i--－－－-2分
Ｎeｘtｉ－-----２分
Text2＝ｍ－－----2分
EndＳuｂ
VB上机综合测试题（二)
1.设计如图所示界面，编程实现如下功能:在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中,其中，平时成绩占最终成绩的30％，考试成绩占最终成绩的70%；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮,关闭窗口。（3５分）
２．设计左图所示界面,编程实现如下功能:单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
IfＣheck１(ｋ).ｖaluｅ= 1 Thｅn--－--2分
Text1．Tｅxt＝Tｅｘt1.Tｅxt & Check1(k）．Caｐtｉon＆"＂----－-2分
EndＩf----－－2分
Nｅxtｋ----－-2分
ＥndSub
三、
界面设计----－10-分
Ｐriｖate SuｂCｏmｍａnd１_Ｃliｃk（)------2分
PrivatｅSub Chｅck3_Clｉck()
Text1.FontUnｄｅｒｌine= Check3.Value----－-5分
Ｅnd Suｂ
二、
界面设计-－----10分
ＰriｖateSub Cmd1_Clｉcｋ()-－--－-２分
Ｄｉma％（19), i%, suｍ!, aｖer!--－－－-４分
国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件火下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。
要求在程序中不得使用变量，每个事什过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。
程序中用到的控件及属性如表3．7所示。
步骤2：调试并运行程序，效果如图3．12所示。
步骤3：关闭程序后按题目要求保存T程和窗体文件。
(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。
步骤2：打开代码编辑窗口，存指定位置编写如下代码。
参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。
简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。
国家二级VB机试(上机操作)模拟试卷359(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷359(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。
窗体的标题为“按钮窗口”。
运行后的窗体图3一132所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上画一个名称为Shal的形状控件，然后建立一个菜单，标题为“形状”，名称为shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为shapel 和shape2，如图3—133所示，然后编写适当的程序。
程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，表4-77在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表4．78所示，设置建立菜单项。
步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。
参考代码：PriVate Sub Shape1_Click( )Me．Shal．Shape=1End SubPriVate Sub Shape2_Click( )Form1．Shal=3End Sub 步骤4：按要求将文件保存至考生文件夹中。
VB机试模拟试卷79(题后含答案及解析)
VB机试模拟试卷79(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个二级下拉菜单。
一级菜单的标题为“文件”，名称为vbFile，有效；二级菜单有两项，一项标题为“打开”，名称为“vbOpen”，有效，命令执行的快捷方式为Crtl+N，一项标题为“保存”，名称为“VbSaVe”，执行快捷键方式为Ctrl十S，有效，另一项标题为“关闭”，名称为“vbClose”，无效，命令执行的快捷方式为Ctrl+C。
程序运行时，窗体界面如图56—1所示。
注意：存盘时必须存放到考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forml的窗体上绘制一个名为Textl的文本框控件和一个名为Timerl的计时器控件，程序运行后，文本框中显示的是当前的日期和时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，如图56—2所示。
注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．Vbp。
正确答案：(1)根据题意，新建“标准EXE”工程，打开菜单编辑器，添人以下几项：单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个Timer控件和一个Text控件添加到窗体上，Timer的名称为Timerl、Interval属性为1 000毫秒，Text的名称为Textl、Text属性为空。
双击Timerl，进入代码窗口，编写如下代码：Private Sub Timerl_Timer( ) Textl．Text=Date+Time End Sub 单击按钮运行程序，并按要求保存。
简单应用题（40分）2．(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。
其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Command1_Click()------2 分 = True------3 分
End Sub Private Sub Command2_Click()------2 分
= False------3 分 End Sub Private Sub Form_Load()------2 分
End Sub
三、
界面设计------10 分 Dim? n%------2 分 Private Sub Form_Load() End Sub
Private Sub Option1_Click()------2 分 Dim i% ------2 分 n = Val(Text1) ------3 分 m = 1 ------1 分 For i = 1 To n ------2 分 m = m * i -----2 分 Next i ------2 分 Text2 = m ------2 分 End Sub Private Sub Option2_Click()------1 分 Dim i% ------2 分 m = 1 ------1 分 For i = 1 To n + 2 ------2 分 m = m * i ------2 分 Next i ------2 分 Text2 = m ------2 分
答案：
一、
界面设计------10 分 Private Sub Check1_Click()
= ------5 分 End Sub Private Sub Check2_Click()
=分 End Sub Private Sub Check3_Click()
= ------5 分
End Sub
二、
答案： 一、 界面设计------10 分 Private Sub Command1_Click()-----2 分
= Val * + Val * 分 End Sub Private Sub Command2_Click()------2 分
= ""------3 分 = ""------3 分 = ""------3 分 End Sub Private Sub Command3_Click()------2 分 End------3 分 End Sub
VB 上机综合测试题（一）
一、如下所示，在窗体上，放置一个文本框 text1（文本框中的文字为“改变字 形”，居中显示）。三个复选框 check1,check2 和 check3，如图设置属性。 要 求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选 中时）能将文本框的字形变为“粗体、斜体、加下划线” （25 分）
二、 界面设计------10 分 Private Sub Check1_Click(Indes As Integer）------2 分
=""------3 分 For k = 0 To 3------2 分 If Check1(k）.value = 1 Then-----2 分
= & Check1(k）.Caption & " " ------2 分 End If------2 分 Next k------2 分
二、在窗体上添加一个命令按钮(名称为 Cmd1，标题为"输出平均值")。程序运 行后，单击命令按钮完成以下工作： ①随机产生 20 个 0 到 1000 的整数，将其 放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) （35 分）
三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超 过 10 的正整数，然后选择"N 的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算， 计算结果在右侧文本框中显示。请编写程序完成上述功能。（40 分）
应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体， 即可在窗体上输出如下图案。
End Sub
VB 上机综合测试题（二）
1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成 绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占 最终成绩的 30%，考试成绩占最终成绩的 70%；单击“清除”按钮，清除文本框 中的内容；单击“退出”按钮，关闭窗口。（35 分）
界面设计------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 分
VB 上机综合测试题（三）
一、银行卡密码验证程序
1. 输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续 操作！”。 2. 如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密 码清空，设置焦点。 3. 密码为 123456，要求密码框中以“*”的形式显示。
二、输出图形
2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的 选框后面的文字罗列在文本框中（见右图）（25 分）。
3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止 不动，单击“太阳升起”按钮时，太阳升起（以为时间间隔，太阳向右移动 80， 向上移动 160）；单击“停止升起”时，太阳静止不动。(40 分)
= False------3 分 End Sub Private Sub Timer1_Timer()------2 分
If = 0 Then------3 分 + 80, + 160------3 分
Else------2 分 + 80, - 160-----3 分
End If------2 分 End Sub