End Sub 三、 界面设计-----10-分
Private Sub Command1_Click()------2 分 = True------3 分
End Sub Private Sub Command2_Click()------2 分
= False------3 分 End Sub Private Sub Form_Load()------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 分
答案：
一、
界面设计------10 分 Private Sub Check1_Click()
= ------5 分 End Sub Private Sub Check2_Click()
=分 End Sub Private Sub Check3_Click()
= ------5 分
End Sub
二、
答案： 一、 界面设计------10 分 Private Sub Command1_Click()-----2 分
= Val * + Val * 分 End Sub Private Sub Command2_Click()------2 分
= ""------3 分 = ""------3 分 = ""------3 分 End Sub Private Sub Command3_Click()------2 分 End------3 分 End Sub
VB 上机综合测试题（一）
一、如下所示，在窗体上，放置一个文本框 text1（文本框中的文字为“改变字 形”，居中显示）。三个复选框 check1,check2 和 check3，如图设置属性。 要 求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选 中时）能将文本框的字形变为“粗体、斜体、加下划线” （25 分）
二、 界面设计------10 分 Private Sub Check1_Click(Indes As Integer）------2 分
=""------3 分 For k = 0 To 3------2 分 If Check1(k）.value = 1 Then-----2 分
= & Check1(k）.Caption & " " ------2 分 End If------2 分 Next k------2 分
二、在窗体上添加一个命令按钮(名称为 Cmd1，标题为"输出平均值")。程序运 行后，单击命令按钮完成以下工作： ①随机产生 20 个 0 到 1000 的整数，将其 放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) （35 分）
三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超 过 10 的正整数，然后选择"N 的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算， 计算结果在右侧文本框中显示。请编写程序完成上述功能。（40 分）
应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体， 即可在窗体上输出如下图案。
End Sub
VB 上机综合测试题（二）
1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成 绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占 最终成绩的 30%，考试成绩占最终成绩的 70%；单击“清除”按钮，清除文本框 中的内容；单击“退出”按钮，关闭窗口。（35 分）
界面设计------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 分
VB 上机综合测试题（三）
一、银行卡密码验证程序
1. 输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续 操作！”。 2. 如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密 码清空，设置焦点。 3. 密码为 123456，要求密码框中以“*”的形式显示。
二、输出图形
2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的 选框后面的文字罗列在文本框中（见右图）（25 分）。
3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止 不动，单击“太阳升起”按钮时，太阳升起（以为时间间隔，太阳向右移动 80， 向上移动 160）；单击“停止升起”时，太阳静止不动。(40 分)
= False------3 分 End Sub Private Sub Timer1_Timer()------2 分
If = 0 Then------3 分 + 80, + 160------3 分
Else------2 分 + 80, - 160-----3 分
End If------2 分 End Sub