VB上机综合测试题(十五套)

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 Sub
Private Sub Check2_Click(）
Text1。

FontItalic = Check2.Value-—--—-5分End Sub
Private 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 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分
End Sub
VB上机综合测试题（二）
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 Sub
Private Sub Command2_Click（）——--——2分
Text1.Text = ”"——----3分
Text2.Text = ""—-—-—-3分
Text3.Text = ””—---—-3分
End Sub
Private 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 Sub
Private Sub Command2_Click（）---—--2分
Timer1.Enabled = False——-—-—3分
End Sub
Private Sub Form_Load()-—----2分
Timer1.Enabled = False———---3分
End Sub
Private 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 Sub
VB上机综合测试题(三）
一、银行卡密码验证程序
1。

输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确,请继续操作！”.
2。

如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码清空，设置焦点。

3。

密码为123456，要求密码框中以“*”的形式显示。

二、输出图形
应用嵌套的循环结构，输出由字符构成的特定图案。

程序运行时单击窗体，即可在窗体上输出如下图案.
** 1 **
** 2** 2 **
** 3** 3** 3 **
** 4 **4**4**4 **
** 5** 5** 5** 5** 5 **
三、计算球体积和表面积
设计下图所示界面的程序,程序运行后，输入球的半径,单击“球体积”、“球表面积”复选框,根据复选框是否可选,决定是否在右侧相应的文本框内显示球体积（)和球表面积（）的计算结果。

答案:
一、银行卡密码验证程序（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 Sub
Private 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 Sub
VB上机综合测试题(五）
一、在窗体上画两个名称分别为Text1、Text2的文本框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。

程序运行时,在Text1中输入以下文本：
“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重,道一声珍重，那一声珍重里有蜜甜的忧愁。

”要求多行显示。

并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件过程完成上述功能。

（30分)
二、购买地铁车票,若乘1到4站,3元/位；若乘5到9站,4元/位;若乘10站以上，5元/位；输入人数person、站数n,输出应付款pay.（35分)
三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分,当输入负数时结束输入，输出结果.（35分）
答案：
一、
界面设计--—-10分
Private Sub C1_Click()----3分
Text2。

Text = Text1.SelText———-7分
End Sub
Private Sub C2_Click()--——3分
Text1.SelText = ""-—-—7分
End Sub
二、
Private Sub Command1_Click(）————1分
Dim x As Single，y As Single，z-———3分
x = Val（Text1。

Text） -——-2分
y = Val（Text2。

Text） -—--2分
Select Case y———-2分
Case Is 〉= 10-——-3分
z = 5 * x-———3分
Case Is >= 5——-—3分
z = 4 * x---—3分
Case Is 〉= 1-———3分
z = 3 ＊x--—-3分
End Select--——1分
Text3.Text = z—-—-2分
End Sub
Private Sub Command2_Click()--—-1分
Text1.Text = "”--——1分
Text2。

Text = "”—-—-1分
Text3。

Text = ”"—---1分
End Sub
三、
Private Sub Form_Click（）-—--2分
Dim max！, min！, x! ----3分
x = InputBox(”请输入学生考试成绩”)—-—-3分max = x-—-—2分
min = x—-——2分
Do While x > 0--—-2分
If x 〉max Then-———3分
max = x-——-2分
ElseIf x 〈min Then——-—3分
min = x-———2分
End If————2分
x = InputBox（”请输入学生考试成绩")—--—3分Loop-——-2分
Print "max=”；max；”min=”; min—-—-4分
End Sub
VB上机综合测试题（六)
1、窗体中有一个名称为Hscroll1的水平滚动条控件，要设置它的如下属性值，请编写代码实现如下内容：（20分）
(1) Hscroll1控件的滑块处于最小位置时值为8
(2） Hscroll1控件的滑块处于最大位置时值为72
(3)单击Hscroll1控件两端箭头时，滑块的增量值为2
(4)单击Hscroll1控件的空白处时，滑块的增量值为8
2、以下数列：1,1,3，5,9，15，25，41，…，的规律是从第3个数开始，每个数是它前面两个数的和加1。

请编写适当的事件过程实现以下功能：在文本框Text1中输入整数40,单击Command1“计算”按钮，则在文本框Text2中显示该数列第40项的值。

（提示:因数据较大，应使用Long型变量)（35分）
3、窗体上有两个标题分别是“读数据”和“统计"的命令按钮两个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；两个初始值为空的文本框名称分别为Text1和Text2.程序功能如下：单击“统计"按钮,则自动统计字符串s中所含各字母（不区分大小写）出现的次数,并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内，请为“统计”按钮编写适当的事件过程实现上述功能。

（45分)
答案：
一、
Hscroll1。

Min = 8：5分
Hscroll1.Max = 72：5分
Hscroll1.SmallChange =2：5分
rgeChange = 8 5分
二、
界面设计-—-—--10分
单击“计算”按钮（即运行Click事件过程)，在该Click事件过程中加入语句：Private Sub Command1_Click（) 3分
Dim f As Long 3分
a(1) = 1 4分
a（2）= 1 4分
For i = 3 To Val（Text1。

Text) 5分
f = a(i — 2) + a(i — 1）+ 1 5分
a(i）= f 4分
Next i 3分
Text2.Text = f 4分
End Sub
三、
界面设计------10分
Private Sub Command2_Click（) 1分
Dim a（26) As Integer 1分
n = Len（s) 3分For i = 1 To n 1分
c = UCase(Mid（s, i, 1)）3分
If c 〉= ”A” And c 〈= "Z” The n 3分
j = Asc(c) - Asc（"A") + 1 3分
a(j) = a（j) + 1 2分
End If
Next i
Max = a(1) 2分
t = Chr(Asc（”A”））3分For i = 2 To 26 2分
If a(i）〉Max Then 2分
Max = a(i）2分
t = Chr(Asc（”A”）+ i - 1）3分End If
Next i
Text1.Text = t 2分Text2。

Text = Max 2分End Sub
VB上机综合测试题（七）
1、在窗体上建立一个标签，其名称为Label1，窗体的标题为“设置标签属性”；标签的位置为距窗体左边界500，距窗体顶边界300;标签的标题为“等级考试”；标签可以根据标题的内容自动调整大小。

请用代码列写出图片中对象的属性设置。

(30分）
2、由键盘输入10个数,再逆序输出。

（35分)
3、求1～20之间能被5整除的所有数的乘积.(35分)
答案：
一、
界面设计-----10—分
Label1.Caption = ”等级考试"-——--4-分
Form1。

Caption = "设置标签属性”—————4-分
Label1。

Left = 500--———4—分
Label1.Top = 300——---4—分
Label1。

AutoSize = True—-—-—4分
二、
界面设计-—-—--5分
Dim a（1 To 10）As Integer—-——-2分
Option Explicit-—-—-2分
Private Sub Command1_Click（)—--—2分
Dim i%-—-——2分
Print ”输入的10个数"—---2分
For i = 1 To 10—--——2分
a（i) = Val(InputBox(”输入第”＆i ＆"个数”））———--2分Next i-—---2分
For i = 1 To 10--—--2分
Print a（i）; —-——-2分
Next i—--—-2分
Print: Print———-—2分
End Sub
Private Sub Command2_Click(）—----2分
Dim i%————2分
Print "逆序后的10个数"-—-——2分
For i = 10 To 1 Step —1----2分
Print a(i); —-——2分
Next i----—2分
End Sub
三、
界面设计—--——-10分
Private Sub Form_Click（)———--—3分
Dim i%, s As Long———-——2分
s = 1-—-———3分
For i = 1 To 20———---3分
If i Mod 5 = 0 Then———--—3分
s = s * i-—-——3分
End If——-—-—2分
Next i--———-2分
Print s————-—3分
End Sub
VB上机综合测试题（八）
1、编写程序，打印如图所示图形.(30分)
2、1—100之间自然数的平方和，程序参考界面如图所示：(30分）
3、找出在1～1000中同时满足被7除余5、被5除余3、被3除余2条件的数,界面自定。

(40分)
答案：
1评分标准：
Private Sub Form_Click() 2分
Dim i％, j％2分
For i = 1 To 5 4分
Print Tab(15 — i); 5分
For j = 1 To （2 * i — 1) 5分
Print "*"；2分
Next j 2分
Next I 2分
Print 2分
End sub 2分
正确保存窗体文件1分
正确保存工程文件1分
2评分标准:
设置控件和窗体属性5分
Private Sub Form_Click() 2分
Dim i, x，sum& 2分
For i = 1 To 100 4分
x = 1 + x 3分
sum = sum + x ^ 2 5分
Next I 2分
Text1。

Text = Str(sum）3分
End Sub 2分
正确保存窗体文件1分
正确保存工程文件1分
3评分标准
设置控件和窗体属性5分Private Sub Command1_Click() 2分Dim i, x% 2分
For i = 1 To 1000 4分x = x + 1 4分
If x Mod 7 = 5 And x Mod 5 = 3 And x Mod 3 = 2 Then 8分Print Str（x）& Space(2); 5分End If 2分Next 2分End Sub 2分
正确保存窗体文件2分
正确保存工程文件2分
VB上机综合测试题（九）
1、编写一个函数计算1*2*…*n的值，函数名为fact（）(30分)
2、已知三角形的三条边，编写一个函数求其面积，函数名自命名。

（40分）
3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox(）函数输入框。

当输完15个整数后,程序把刚输入的15个整数分3行在窗体上显示，每行5个整数.（30分）
提问：（1)、应该对窗体的什么事件进行编程？
（2）、编写程序代码,实现上述功能。

答案：
一、
界面设计----—-5分
Private Function fact（n As Integer）As Integer—--—-4分
Dim i As Integer-————2分
Dim r As Integer —-—--2分
r = 1 ——-—-3分
For i = 1 To n —---—3分
r = r ＊i ----—3分
Next i -—--—3分
fact = r -—-—-3分
End Function ---—-2分
End Sub
二、
界面设计--——-—5分
Private Sub Command1_Click（）—----1分
Dim a, b, c, l, S —-———5分
a = Val(InputBox（”请输入第一条边的长：”)）—-—--3分
b = Val（InputBox（"请输入第二条边的长："））-———-3分
c = Val(InputBox（”请输入第三条边的长：")）—--——3分
l = (a + b + c）/ 2 -—--—3分
If l 〈= a Or l 〈= b Or l <= c Then -——--4分
MsgBox "输入的数据不能组成三角形！" —————3分
Exit Sub —-———2分
End If —-——-2分
S = Sqr(l ＊(l — a) ＊(l - b）＊(l — c）) ———--4分
Print S ----—2分
End Sub—--——2分
三、
界面设计————-—5分
Private Sub Command1_Click(）----—2分
Dim a（15），i As Integer —————2分
For i = 1 To 15 ——-—-3分
a(i）= InputBox("请输入15个整数，单击确定按钮。

", ””, ”"）-—--—4分Next i ----—2分
For i = 1 To 15 --—--3分
Print a（i）；" ”; ————3分
If i Mod 5 = 0 Then Print -———-4分
Next i -—--—2分
End Sub
VB上机综合测试题（十)
1、在窗体上绘制两个标签,名称分别是Lab1和Lab2，标题分别为“请输入一个正整数N”和“1+2+3+…+N="；绘制两个文本框，名称分别是Text1和Text2,内容都设为空白，绘制一个命令按钮，名称为Cmd1，标题为“计算”。

编写适当的程序,程序在运行时，在Text1中输入一个正整数,单击“计算”按钮，计算出1+2+3+…+N的和，并显示在Text2中。

（30分）
2、要求:设计一个用户登录界面,界面如图所示.要求密码用*显示，如果用户名的长度超过6位，弹出警告窗口！（30分）
3、创建一个学生管理系统(40分）
要求：利用单选框实现学生性别，复选框实现学生爱好，组合框实现学生籍贯选择和院系,文本框输入学生姓名。

单击“显示”按钮要把学生输入的信息全部显示到一个文本框中。

参考答案
1、（共30分)
设置属性:
Text1.text="" （3分)
Text2。

text=””（3分)
Label1。

caption=”请输入一个正整数N” (3分)
Label2。

caption=” 1+2+3+…+N=”（3分）
Button1.caption="计算”（3分）
程序：
Private Sub Command1_Click(）（3分）
Sum = 0（1分)
N = Val（Text1。

Text) （2分）
For i = 1 To N（5分)
Sum = Sum + i(2分）
Next i
Text2。

Text = Sum（2分）
End Sub
2、（共30分）
设置属性：
Text1。

text=”" (2分）
Text2.text=””（2分）
Text2。

passwordchar=”＊" （3分）
Label1.caption=”用户名" （2分）
Label2。

caption=”密码”（2分）
Button1.caption=”注册”（2分）
Button2。

caption=”登陆" （2分）
Button1。

caption="取消”（2分）
程序实现:
Private Sub Text1_Change（）（2分)
If Len(Text1.Text) > 6 Then(5分）
MsgBox ”长度不能超过6"（3分）
End If（3分）
End Sub
3、（共40分）
属性设置：
Text1。

text=””—--—（1分）
Text2.text=”"
Label1.caption=”姓名”
Frame1.caption="性别”
Frame2.caption=”爱好”
Frame3.caption="籍贯"
Frame4.caption=”院系”-——-(2分）
Label1。

caption=”显示”
Label2.caption="清空”
Label3.caption=”退出”——--（1分）
Combol1.list=”河北省河南省山东省等” --——（2分)
Option1。

caption=”男”
Option2。

caption=”女”—---(2分）
Check1。

caption=“音乐”
Check2.caption=“运动”
Check3.caption=“美术" -—--(2分）
程序为：
Private Sub Command1_Click（) ----（2分）
Text2.Text = "学生姓名是：”+ Text1。

Text ＆Chr(13）＆Chr(10) -———(3分）
If Option1。

Value = True Then --——(5分）
x = Option1。

Caption
Else: x = Option2。

Caption
End If
Text2.Text = Text2。

Text ＆”性别是”& x ——--（2分)
If Check1。

Value = False And Check2。

Value = False And Check3。

Value = False Then ———-if语句（5分）
Text2.Text = Text2。

Text & ”，无爱好"
Else ————（1分）
Text2.Text = Text2.Text & ",爱好"
If Check1.Value = 1 Then Text2.Text = Text2。

Text & "音乐" —--—（2分）If Check2.Value = 1 Then Text2.Text = Text2.Text & ”运动"
If Check3.Value = 1 Then Text2.Text = Text2.Text ＆"美术”
End If —---—（2分）
Text2。

Text = Text2。

Text & ",籍贯是" ＆Combo1。

Text
Text2.Text = Text2.Text ＆”，院系是”＆Combo2.Text & ”。

" -———（2分）
End Sub
Private Sub Command2_Click() -—--（2分）
Text1。

Text = "" -——-（2分)
Text2.Text = ""
End Sub
Private Sub Command3_Click（）—---（2分）End
End Sub
VB上机综合测试题(十一)
1、输入某一学生成绩,评定其等级。

方法是:90～100分为“优秀”,80~89分为“良好”，70～79分为“中等"，60~69分为“及格"，60分以下为“不及格”.在以下事件过程中写出相应的程序源代码。

Private Sub Form_Click(）
Dim x As Integer
x=Val（InputBox（“x=?”）)
End Sub
2、假设定义一个一维数组:Dim a（1 to 10) As Integer。

在以下事件过程中编程序通过循环给数组的元素输入数据，并求数组中最大元素值及其下标。

Private Sub Form_Click（）
End Sub
3、编程计算：S=50+51+52+……+199+200。

综合测试答案
说明:此题实现方法不止一种，教师可以根据具体情况，酌情给分
1、Private Sub Form_Click()
Dim x As Integer
x=Val(InputBox(“x=？")) （5分）
If x〉=90 then
print “优秀”（4分）
ElseIf x〉=80 Then
print “良好”（4分）
ElseIf x〉=70 Then
print “中等”（4分)
ElseIf x>=60 Then
print “及格" （4分）
Else
print “不及格”（4分）
End Sub
或者
Private Sub Form_Click（）
Dim x As Integer
x=Val(InputBox（“x=？”)）
Select Case x （5分）
Case 90 to 100
print “优秀”（4分）
Case 80 to 89
print “良好”（4分)
Case 70 to 79
print “中等”（4分）
Case 60 to 69
print “及格" （4分）
Case Else
print “不及格”（4分）
End Select
End Sub
3、Private Sub Form_Click(）
Dim a（1 to 10）As Integer （3分)
Dim I％，p％，max％（3分）
For i=1 to 10 （3分)
a(i)=val（inputBox(“输入a（“＆i &"）的值=？”)) （3分）Next i
max=a（1) (3分）
p=1
for i=2 to 10 （4分）
if a（i)〈max Then
max=a（i) (3分）
p=i
Endif
Next i
Print “数组第”& p & “个元素值最大，值为：”＆max （3分）End Sub
4、编程计算:S=50+51+52+……+199+200。

Private Sub Form_Click() （4分）
Dim S as integer，i as integer (3分）
S=0 （4分)
For i=50 to 200 （4分）
S=S+I （3分）
Next I （4分）
Print “S=”,S （3分）
End Sub
VB上机综合测试题(十二)
一、在以下事件过程中编程计算：s=1+2+3+…+100（25分）
Private Sub Form_Click(）
End Sub
二、编程，如图所示，当程序运行时，在文本框中输入平时成绩和考试成绩，单击“计算”命令按钮，计算总评成绩，并将成绩显示在相应的标签上，同时，当总评成绩小于60时，文字颜色为红色。

计算公式为:总评成绩=平时成绩×30％+考试成绩×70%。

(35分）
3。

如图所示，编程计算1~100以内能被3或5整除的数之和。

程序运行时,单击“显示" 按钮，在上标签框中显示能被3和5整除的数,并在下标签框中显示这些数的求和结果。

答案：
一、
Dim S As Integer，I As Integer (5分)
S=0 （5分）
For I=1 to 100 （4分)
S=S+I （4分）
Next I (4分)
Print “S=”，S （3分）二、
界面设计---——10-分
Private Sub cmdCalc_Click（)（2分）
Dim a As Double, b As Double, t As Double (3分）
a = Val(txtDay.Text)（2分）
b = Val(txtExam。

Text) (2)
t = a ＊ 0.3 + b ＊ 0。

7（2分)
If t 〉= 60 Then (2分）
lblTotal.Caption = t（2分）
lblTotal.ForeColor = RGB(0， 0， 0) (3分）
Else
lblTotal.Caption = t（2分)
lblTotal.ForeColor = RGB(255, 0, 0）（3分） End If（2分）
End Sub
三、
界面设计-—--—-10分
Private Sub cmdShow_Click()---—-1分
Dim i As Integer---—-3分
Dim sum As Integer—-—-—3分
Dim s As String-——--3分
For i = 1 To 100-----3分
If i Mod 3 = 0 Or i Mod 5 = 0 Then—--——3分s = s & i & ” ” -—-——3分
sum = sum + i —————3分
End If---——2分
Next i—-——-2分
lblInput。

Caption = s———-—2分
lblShow。

Caption = sum———--2分
End Sub
VB上机综合测试题（十三)
1、要求用户输入年龄和性别,如果年龄小于18岁，显示“本游戏不允许未成年
人进入”;如果年龄大于18岁且用户输入性别是“男"或“女”，则显示“欢迎这位男士！”或显示“欢迎这位女士！”。

(35分）
2、如图在图形框中随机产生5个学生的成绩，要求数值在0到100之间，单击“统计”按钮,在第二个图形框中输出高于平均分的成绩.（40分)
具体要求:
1）列表说明所用控件的名称，属性及所有属性的初值.
2）写清完整代码。

3、输入3个数a,b,c，求其最大数。

（25分）
答案:
1、界面设计-----—10分
Private Sub Command1_Click()-——--2分
Dim age As Integer, sex As String--———2分
age = Val（Text1.Text）—-———3分
sex = Val（Text2。

Text）—--—3分
If age < 18 Then——--2分
Label3.Caption = "本游戏不允许未成年人进入！”----—2分Else———--2分
If sex = "男” Then———--2分
Label3.Caption = "欢迎这位男士！"--—-2分
Else——---1分
Label3.Caption = ”欢迎这位女士！"-—-——2分
End If--———1分
End If--———1分
End Sub
2、界面设计-—--15分
控件名属性属性值
Label1 caption 5个成绩
Label2 Caption 高于平均分的成绩
Picture1/ Picture2
Form1 Caption 统计成绩
Command1 Caption 统计
Private Sub Command1_Click()——--2分
Dim a％（1 To 5）, i%， aver! -—---5分
aver = 0-—-—-3分
For i = 1 To 5--———3分
a（i) = Int（101 * Rnd）--———3分
Picture1.Print a(i）;—-—--3分
aver = aver + a(i）--—--3分
Next I —----1分
aver = aver / 5-—-——2分
3、
界面设计—-----10分
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim c As Integer，m As Integer （2分)
a = Val(Text1.Text)
b = Val(Text2。

Text）
c = Val(Text3。

Text）(3分）
If a 〉b Then
m = a
Else
m = b
End If (10分)
If c > m Then m = c （3分) Text4。

Text = m （2分）End Sub
VB上机综合测试题（十四）
1、通过输入框输入姓名，然后在消息框中显示出来。

(25分)
2、输入某小组5个同学的成绩，计算总分和平均分.（35分)
要求:利用InputBox函数输入成绩，输入完毕后经过计算，利用Print直接在窗体上输出结果。

3、输入两个正整数,求它们的最大公约数.（40分)
要求界面如图：
答案：
一、
界面设计—-——--10分
Private Sub Form_Load() （5分）
x = InputBox（”输入您的姓名”, ”您叫什么名字?") （5分）
y = MsgBox（x & ”同学：祝您马到成功！”）（5分）
End Sub
二、
界面设计——-———10分
Private Sub Form_Load()
Dim d(5) As Integer （2分）
Dim i As Integer, total As Single，average As Single （2分）
Show
For i = 1 To 5 (4分)
d（i）= Val(InputBox（”请输入第" ＆i & ”个学生的成绩", "输入成绩”)) （4分）
Next i
total = 0 （2分）
For i = 1 To 5 （3分）
total = total + d(i）（4分）
Next i
average = total / 5 (2分）
Print ”总分："；total
Print ”平均分："；average （2分）
End Sub
三、
界面设计-—-—--10分
Private Sub command1_click（)
Dim m As Integer, n As Integer，p As Integer (2分）
m = Val（Text1.Text）
n = Val（Text2.Text) (2分）
If m <= 0 Or n 〈= 0 Then (6分)
MsgBox "数据错误!"
End
End If
Do （8分）p = m Mod n
m = n
n = p （10分）Loop While p 〈〉0
Text3。

Text = m （2分)
End Sub
VB上机综合测试题(十五）
一、密码检验程序设计（20分）
要求：窗体是密码检验程序.程序运行时，用户在文本框输入密码（密码为123456），单击登陆按钮对密码进行检验。

密码正确后，标签label显示“登陆成功”；若密码不正确,标签显示“登陆失败,请重试"，若密码输入错误达3次，将自动退出程序。

二、输入任意三个数找出其中最大的数（20分）
三、列表框程序设计（30分）
要求：如图,程序运行时，用户可以在文本框中输入文本,单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中,将有出错提示"先选择，再删除！”。

四、定义一个下标上界为10的整型数组，并用随机函数为其赋值(值处于[0，100]之间),计算数组中所有偶数的和。

(30分）
参考答案：
一、
Dim a As Integer ————---——-2分
Private Sub Command1_Click(）--—----—--2分
If （Text1.Text = ”123456”) Then-----——--—4分
Label1。

Caption = "登陆成功" —--——-—————4分Else
Label1。

Caption = "登陆失败，请重试”—-—-————-2分
a = a + 1 —-——-—-—-2分
If (a >= 3) Then -———---—--1分
End -—————--—--1分
End If --—-—-1分
End If --—-—---—1分
End Sub
二、
Private Sub Command1_Click（) -——--—2分
Dim a！，b!，c！, Max！——-—--——-3分
a = Text1。

Text ----———1分
b = Text2。

Text --—----1分
c = Text3.Text ———-—-—1分
Max = a ———----3分
If b > Max Then Max = b -—-——--3分
If c 〉Max Then Max = c -——--——-3分
Text4。

Text = Max ---—--—3分
End sub
三、
Private Sub Command1_Click（）————--—3分List1。

AddItem （Text1.Text）-—----—5分
End Sub
Private Sub Command2_Click(）—-——---3分
If (List1。

ListIndex >= 0) Then --————-5分
List1.RemoveItem List1.ListIndex --—-———5分Else
MsgBox (”先选择，再删除！") -————-—5分End If -—---—2分
End Sub -—-—--—2分
四、
Private Sub Command1_Click(）—-————2分Randomize -—---—2分
Dim a%（10) ——————3分
Dim i％, s% —-——-- 3分
For i = 0 To 10 ——----2分
a(i) = 101 ＊Rnd(）-————-5分
Next
For i = 0 To 10 ---———2分
If a（i) Mod 2 = 0 Then ——-———4分
s = s + a（i）——————4分
End If
Next
Print "所有偶数的和为"，s —--——-3分End sub。