第一套 试题二( 21 分) 修改 VB程序, 考生文件夹下有一个工程文件 test2 .vbp 。其窗体上有一个标题为 “ 得分 ” 的框架,在框架中有一个名称为 Textl 的文本框数组,含 6 个文本框控件 ; 文本框 Text2 用来输入难度系数。程序运行时, 单击 “开始”按钮时, 左边的 6 个文本框中 每 0.5 秒随机产生 [0 , 10] 的带一位小数的数;且“开始”按钮的标题变为“停止”,单击“停止”,“计算”按钮显示, 输入难度系数后,单击 “ 计算分数 ” 按钮,则可计算出最后得分并显示在文本框 Text3 中 ( 如图所示 ) 。计算方法:去掉 1 个最高得分和 1 个最低得分,求剩下得分的平均分,再乘以 3 ,再乘以难度系数。最后结果保留到第 2 位小数,不四舍五入。 打开 D:\test1111\ 考试结果 \ 程序设计 \ 试题二“文件夹中的工程文件“ test2.vbp ”,完成下列操作: 1 .( 4 分)在窗体上添加计时器,并按表 2 设置相关属性。 表 2 对象 设置内容 计时器 名称为 Timer1 ;间隔时间 0.5 秒;默认不启用。 2.完成如下代码: Private Sub Command1_Click() Dim max!, min!, s!, x! max = Val(Text1(0).Text) min = max '(1) For i = 1 To 5 x = '(2) If max < x Then max = x If min > x Then min = x s = s + x Next i s = / 4 '(3) Text3.Text = Int(s * 100+0.5) / 100 End Sub Private Sub Command2_Click() ' 答案为 1 分,复制 1 分 If Command2.Caption = " 开始 " Then Timer1.Enabled = ' (4) Command2.Caption = " 停止 " Command1.Visible = False Else Timer1.Enabled = False Command2.Caption = " 开始 " Command1.Visible = ' (5) End If End Sub Private Sub Timer1_ () '(6) Randomize For i = 0 To 5 Text1(i).Text = Int( * Rnd) / 10 '(7) Next i End Sub 二