VB考试练习题(上机操作)
VB上机模拟卷
《计算机高级语言上机实验（VB）》试卷模拟卷考试时间：70分钟考试方式：闭卷学院班级姓名学号序号【考试须知】1. 请在E盘下新建一个以你的班级、学号、姓名命名的考生文件夹2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。
一、改错题（40分）【题目】一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称是绝对素数。
例如11和13都是绝对素数。
试求所有两位绝对素数。
【要求】1．新建工程，输入代码（5分）；参考界面如图1；（3分）2．共3处错误。
改错时，不得增加或删除语句，但可适当调整语句位置；（30分）3．将窗体文件和工程文件分别命名为F1和P1，并保存到考生文件夹中。
（2分）图1错误的代码：二、编程题（60分）编写程序，生成一个5×5的二维数组，每个元素均为随机生成的两位正整数；然后将数组的最大值与最小值位置互换。
【要求】1.程序参考界面如图2所示。
编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见（6分）。
2.单击“生成数组”按钮，在左边文本框中生成1个5×5的二维数组（14分）；单击“互换”按钮，则把最大值和最小值位置对换，并按图示格式输出结果（10分）；单击“清除”按钮，将两个文本框中的内容清除，焦点置于“生成数组”按钮上（6分）；单击“退出”按钮，则停止程序运行（2分）。
3.程序中包含1个名为MinAMax的通用Sub过程，用来求一个数组的最小值与最大值，并记录最小值与最大值各自的行坐标与列坐标（20分）。
4.将窗体文件和工程文件分别命名为F2和P2，并保存到考生文件夹下（2分）。
图2。
VB上机练习题
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
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机试(上机操作)模拟试卷410(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷410(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：打开Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3．1所示。
步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3．2所示。
步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3．3所示。
步骤4：按照题目的要求设置两个标签的相关属性，如图3．4所示。
程序中用到的控件及属性见表3．1。
步骤5：按下键盘上的F5键运行程序，程序运行后的窗体界面如图3．5所示。
步骤6：按题目要求保存工程和窗体，如图3．6所示。
国家二级VB机试(上机操作)模拟试卷267(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷267(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．在考生文件夹下有一个数据库文件“samp1．accdb”，里边已建立了两个表对象“tGrade”和“tStudent”，同时还存在一个Excel文件“tCourse．xlsx”。
请按以下操作要求，完成表的设计。
(1)将Excel文件“tCourse．xlsx”链接到“samp1．accdb”数据库文件中，链接表名称不变。
要求：数据中的第一行作为字段名。
(2)将“tGrade表中隐藏的列显示出来。
(3)将“tStudent”表中“政治面貌”字段的默认值属性设置为“团员”，并将该字段在数据表视图中的显示标题改为“政治面目”。
(4)设置“tStudent”表的显示格式，使表背景颜色为主题颜色的“橄榄色，强调文字颜色3，深色50％”，文字颜色为标准色中的“黄色”、字号为10号。
(5)将北京五中毕业学生的学号第3、4位改为“09”。
(6)建立“tGrade”和“tStudent”两表之间的关系。
正确答案：(1)【操作步骤】步骤1：单击“外部数据”选项卡下“导入并链接”组中的“Excel”按钮，打开“获取外部数据－Exce电子表格”对话框，单击“浏览”按钮，在考生文件夹找到要导入的“tCourse．xlsx”文件，单击“打开”按钮，选择“通过创建链接表来链接到数槲源”单选框，单击“确定”按钮，如图3．215所示。
步骤2：单击“下一步”按钮，勾选“第一行包含列标题”复选框，单击“完成”按钮，如图3．216所示。
(2)【操作步骤】步骤1：右键单击“tGrade”表对象，从弹出的怏捷菜单中选择“打开”命令。
步骤2：在任一字段名称位置右击，选择“取消隐藏字段”命令，在打开的“取消隐藏列”对话框中勾选“成绩”复选框，单击“关闭”按钮，如图3．217所示。
步骤3：按Ctrl＋S保存修改，关闭数据表视图。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
山东交通学院计算机VB考试上机操作题11
设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c的值为【1】.
答案：1). False
━━━━━━━━━━━━━━━
二、判断共10题（共计10分）
━━━━━━━━━━━━━━━
第1题（1.0分）题号:227
单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.
答案：D
第6题（1.0分）题号:298
激活主菜单的按键是().
A:F1或Ctrl键B:Ctrl键或Atl键
C:F10或Ctrl键D:F10或Atl键
答案：B
第7题（1.0分）题号:361
下列不能打开属性窗口的操作是().
A:执行"视图"菜单中的"属性窗口"命令B:按F4键
C:按Ctrl+T D:单击工具栏上的"属性窗口"按钮
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出
答案：ABD
第4题（2.0分）题号:280
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
C:矩形D:三角形
答案：D
第10题（1.0分）题号:860
组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由
()属性决定.
A:StyleB:BoderStyle
C:FillStyleD:DrawStyle
vb上机考试试题
vb上机考试试题VB（Visual Basic）是一种非常流行的编程语言，在计算机科学领域广泛应用。
VB语言的开发环境是Visual Studio，该软件是微软公司开发的一个集成开发环境（IDE），是用来开发Windows 应用程序的集成包。
VB上机考试是衡量学生能力的一种重要方式之一，它可以考察学生掌握VB语言的基础知识和编程能力。
下面，我们列举一些常见的VB上机考试试题。
1. 编写一个求和程序，要求实现输入两个数值，计算它们的和并将结果输出。
提示：可以使用文本框（TextBox）和按钮（CommandButton）控件。
2. 编写一个计算器程序，要求实现基础的加、减、乘、除四则运算。
提示：可以使用文本框和按钮控件以及一些逻辑运算符和条件语句。
3. 编写一个登录界面，要求实现输入用户名和密码，验证用户信息是否正确。
如果验证通过，则进入主界面；如果验证失败，则提示用户重新输入。
提示：可以使用文本框和按钮控件以及一些判断语句和布尔运算符。
4. 编写一个学生管理系统，要求实现添加、删除和修改学生信息的功能。
提示：可以使用列表框（ListBox）和按钮控件以及一些数组和循环语句。
5. 编写一个简单的冒泡排序程序，要求实现对一组数字进行排序。
提示：可以使用文本框和按钮控件以及一些数组和循环语句。
这些试题都是比较基础的，但是涵盖了VB语言的许多核心概念和技术。
在实际应用中，我们还可以根据自己的需求增加一些拓展性的试题，比如实现文件操作、网络连接、多线程等等。
总的来说，VB上机考试是一种有效的评估学生编程能力的方式，它可以让学生在实践中巩固和应用所学知识，提高自己的技能水平。
我们希望大家能够通过VB上机考试，更好地掌握编程技能，为未来的职业发展打下坚实的基础。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
4 请设计如下图所示窗体界面。
程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。
请编写适当的事件过程，完成上述功能。
5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
6 请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。
程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。
8 在窗体上添加一个文本框和一个命令按钮。
程序运行后，单击命令按钮，即可计算出0～200范围内能被3或7整除的所有整数的和，并显示在文本框中。
程序运行界面如下图所示。
9 请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。
程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。
所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa ”是回文，“aBCcBa ”不是回文。
10 编程实现求!n 1......3121!11++++=！！Sum (n 为小于等于20的整数)。
程序运行界面如下图所示。
程序运行时，在文本框中输入n 的值，点击“计算”命令按钮，将计算结果显示在标签上。
第二部分1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。
要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。
程序运行界面如下图。
提示：N≥2×M的偶数。
2 若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。
例如153是水仙花数，因为153 = 1*1*1 + 5*5*5 + 3*3*3。
编程求出100～999之间所有的“水仙花数”。
要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。
程序运行界面如下图。
3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。
4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。
5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。
其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。
6 以下程序运行界面如下图所示。
其功能如下：1) 单击"读数据"按钮(Command1)，可将随机产生100个三位正整数存到数组a中；2) 单击"计算"按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的? 改为正确的内容。
注意：不能修改程序的其他部分。
题目提供的程序代码：Dim a(100) As IntegerPrivate Sub Command1 Click()Dim n As IntegerFor n = 1 To 100a(n)=Int(Rnd * ? )Next nEnd SubPrivate Sub Command2 Click()Dim x& ,y& , z& ,i% , j% , k%For i = 1 To 100If a(i) Mod ? Thenx = x + a(i)：j = j + 1Elsey = y + a(i)?End IfNext kx = Int(x / j + 0.5)：y = Int(y / k + 0.5)z = Int((x + y) / (j + k) + 0.5)Select Case Combo1.TextCase "所有偶数"Text1 = ?Case "所有奇数"Text1 = ?Case "所有数"Text1 = ?End Select End Sub7 编写程序。
要求：程序运行后，单击“开始”按钮，则随机产生20个2位数输出到窗体上，每行10个数。
同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上。
程序运行界面如下图。
8 编写程序，程序的功能是：程序运行后，在文本框中输入一串字符, 单击标题为"统计"的命令按钮，分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中显示。
程序运行界面如下图。
9 编写程序。
程序功能是：程序运行后在文本框中输入一个正整数，单击“判断”按钮，在标签框中输出“该数是一个素数”或“该数不是一个素数”的信息。
程序运行界面如下图。
10 编写程序，程序的功能是：程序运行后，单击“开始”按钮，在窗体上显示出10个小于100的随机正整数，单击“查找”按钮，则在窗体的下一行显示出这10个数中的最大的数以及最大数在此数列中的位置号。
程序运行界面如下图。
第三部分1 在窗体Form1上添加两个文本框，一个“转换”命令按钮和三个单选按钮（名称分别为Opt1、Opt2、Opt3，标题分别为“大小写转换”、“全部大写”、“全部小写”）。
程序功能：在上方文本框Text1中输入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2中显示全部小写字符串。
程序运行界面如下图。
要求：①请按要求完成窗体界面设计②程序的部分代码已给出如下，但不完整。
请录入下面代码，并将“？”处补充完整。
Private Sub Command1_Click()Dim n As Integer, k As Integer, ch As String, a As Stringch = ""If Opt1.Value = True Thenn = Len(？)For k = 1 To na = Mid$(Text1, k, ？)If a >= "a" And a <= "z" Thench = ch + UCase(a)ElseIf a >= "A" And a <= "Z" Thench = ch + LCase(a)Elsech = ch + aEnd IfNext kEnd IfIf Opt2.Value = True Then ch = UCase(Text1)If Opt3.Value = True Then ch = ？(Text1)Text2 = chEnd Sub2 编写程序，演示列表框控件的基本操作。
在窗体上建立两个列表框，两个命令按钮。
程序运行后，在左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。
如果单击“删除”按钮，则删除左边列表框中选中的项目。
程序运行时的窗体界面如图。
3 编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的第一行，然后在窗体第二行显示其中的最大值。
程序运行时的效果如图。
4 在Form1的窗体上有一个名称为Text1的文本框和两个命令按钮，命令钮标题分别为“显示A”和“显示B”。
要求程序运行后，如单击“显示A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"A"构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"B"构成的字符串。
程序运行时的窗体界面如图所示。
5 已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。
编程实现：按“开始”按钮，则在窗体的第一行显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。
6 界面设计如下图所示，单击“确定”按钮，在文本框中显示一句话，说明用户选择的综合情况。
7 编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最大值。
8 编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一行显示它们的最大公约数。
程序运行界面如下图所示。
9 编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture属性中，每按一次“放大”按钮时图像放大10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均需保持图像的纵横比不变，按“结束程序”按钮则结束程序。