VB上机综合测试题(十五套)教程.docx

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 二、 界面设计------