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(题后含答案及解析)题型有：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(题后含答案及解析) 全部题型 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期末考试上机题编程答案】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(题后含答案及解析)题型有：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上机考试新版题库及解析【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(题后含答案及解析) 全部题型 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练习题(上机)含答案第一部分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上机操作练习题及答案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试题及答案上机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程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。