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，标题分别为“复制”、“删除”。