VB上机综合测试题(十五套)
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机试(上机操作)模拟试卷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的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。
三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
（40分）答案：一、界面设计------10分Private Sub Check1_Click()Text1.FontBold = Check1.Value ------5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value------5分End SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.Value ------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 SubPrivate 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 SubPrivate 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分End SubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。
（35分）2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80，向上移动160）；单击“停止升起”时，太阳静止不动。
(40分)答案：一、界面设计------10分Private Sub Command1_Click()-----2分Text3.Text = Val(Text1.Text) * 0.3 + Val(Text2.Text) * 0.7-----7分End SubPrivate Sub Command2_Click()------2分Text1.Text = ""------3分Text2.Text = ""------3分Text3.Text = ""------3分End SubPrivate Sub Command3_Click()------2分End------3分End Sub二、界面设计------10分Private Sub Check1_Click(Indes As Integer）------2分Text1.Text =""------3分For k = 0 To 3------2分If Check1(k）.value = 1 Then-----2分Text1.Text = Text1.Text & Check1(k）.Caption & " " ------2分End If------2分Next k------2分End Sub三、界面设计-----10-分Private Sub Command1_Click()------2分Timer1.Enabled = True------3分End SubPrivate Sub Command2_Click()------2分Timer1.Enabled = False------3分End SubPrivate Sub Form_Load()------2分Timer1.Enabled = False------3分End SubPrivate Sub Timer1_Timer()------2分If Image1.Top = 0 Then------3分Image1.Move Image1.Left + 80, Image1.Top + 160------3分Else------2分Image1.Move Image1.Left + 80, Image1.Top - 160-----3分End If------2分End SubVB 上机综合测试题（三）一、银行卡密码验证程序1. 输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。
2. 如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码清空，设置焦点。
3. 密码为123456，要求密码框中以“*”的形式显示。
二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案。
程序运行时单击窗体，即可在窗体上输出如下图案。
三、计算球体积和表面积设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、 “球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积（4πr 3/3）和球表面积（4πr 2）的计算结果。
答案：一、银行卡密码验证程序（30分）Private Sub Command1_Click() 2分If Text1.Text = 123456 Then 4分Form1.Cls 2分Print "密码正确!" 2分Else 3分Cls 3分Print "密码错误,请重新输入!" 2分Text1.Text = "" 2分Text1.SetFocus 4分End If 4分End Sub 2分二、输出图形（30分）Private Sub Form_Click() 2分For i = 1 To 5 4分Print "**"; 4分For j = 1 To i 4分Print i; 4分Print "**"; 4分Next j 2分Print 2分Next I 2分End Sub 2分三、计算球体积和表面积（40分）Private Sub Check1_Click() 2分r = Val(Text1.Text) 2分If Check1.Value = 1 Then 3分v = 4 * 3.14159 * r ^ 3 / 3 3分Text2.Text = v 3分Else 1分Text2.Text = "" 2分End If 2分End Sub 2分Private Sub Check2_Click() 2分r = Val(Text1.Text) 2分If Check2.Value = 1 Then 3分s = 4 * 3.14159 * r ^ 2 3分Text3.Text = s 3分Else 1分Text3.Text = "" 2分End If 2分End Sub 2分VB上机综合测试题（四）一、在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。
其他属性按下图进行设置。
要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。
双击列表框中的某一项时将该项删除。
(25分)二、输入圆的半径，计算圆的面积。
要求自行设计界面，使用到的控件包括文本框，文字标签等。
（35分）三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。
（40分）答案：一、界面设计------10分Private Sub Command1_Click()------2分List1.AddItem Text1.Text ------5分End SubPrivate Sub List1_DblClick() ------3分List1.RemoveItem List1.ListIndex ------5分End Sub二、界面-10分Private Sub Command1_Click()------2分Const PI As Single = 3.14------3分Dim r As Integer, s As Single------5分r = Val(Text1.Text) ------5分s = PI * r * r------5分Text2.Text = s------5分End Sub三、Private Sub Form_Click()------2分Dim a(10) As Integer, i As Integer, sum As Integer------5分For i = 0 To 10------5分a(i) = Int(100 * Rnd) ------5分Print a(i); ------3分If a(i) Mod 2 = 0 Then------5分sum = sum + a(i) ------5分End If------2分Next i------3分MsgBox "随机数中偶数之和为：" & sum------5分End SubVB上机综合测试题（五）一、在窗体上画两个名称分别为Text1、Text2的文本框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。