While Not EOF(1) Line Input #1, ss List1.AddItem ss Wend Close #1 End Sub
Private Sub Command1_Click() '查找、保存 Dim xm As String, rq As Date, cj As Integer Dim i As Integer
For i = 0 To List1.ListCount - 1
If Val(Mid(List1.List(i), 16, 3)) > cj Then xm = Trim(Mid(List1.List(i), 1, 4)) rq = Mid(List1.List(i), 5, 10) cj = Val(Mid(List1.List(i), 16, 3)) End If Next i
Open \ Print #1, xm; rq; cj Close #1 End Sub
(21) 单击Command1后，文件e:\\aa.txt中第1行显示： A、王小波1987-12-5 92 B、\王小波\ C、董召弟1988-5-24 43 D、\董召弟\
(22) 若将Click事件中“Print #1”用“Write #1”置换，单击Command1后，文件e:\\aa.txt 中第1行显示：
A、王小波1987-12-5 92 B、\王小波\ C、董召弟1988-5-24 43 D、\董召弟\ (23) 单击Command1后，文件e:\\aa.txt中的记录数（行数）为： A、1 B、10 C、11 D、12
(24) 若将Click事件中“Output”用“Append”置换，运行后文件e:\\aa.txt中记录数为： A、1 B、10 C、11 D、12
试题7(28分)
编程，求一组数x1、x2、...、xn的算术平均值与标准差，计算公式如下图左所示，界面设计如下图右所示。单击Command1输入数据个数n以及n个数，单击Command2计算并显示n个数的算术平均值，单击Command3计算并显示他们的标准差。
6
2009年春浙江省高等学校计算机等级考试二级VB参考答案
试题1~试题6 请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）
(1) (2) (3) (4) (5) (6) (7) A √ √ √ B √ C √ D √ √ (13) (14) A √ B √ √ C √ √ D √ √ (15) (16) (17) (18) (19) 7
(8) (9) (10) (11) (12) √ √ √ √ √ (20) (21) (22) (23) (24) √ √ √ √ √ 试题7（28分）
Dim a() As Double, ave As Double, n As Integer, seit As Double
Private Sub Command1_Click() '输入数据n以及n个数。 小计 10分 Dim i As Integer ' 1 分 n = Inputbox(\分 Redim a(n) ' 3 分 For i = 1 To n ' 4 分 a(i) = InputBox(\
Next i End Sub
Private Sub Command2_Click() '计算、显示平均值。 小计 7分 Dim i As Integer ' 1 分 For i = 1 To n ' 4 分 ave = ave + a(i)/n Next i
Text1.Text = ave ' 2 分 End Sub
Private Sub Command3_Click() '计算、显示标准差。 小计 11分 Dim i As Integer ' 1 分 For i = 1 To n ' 5 分 seit = seit + (a(i) - ave) ^2 Next i
seit = sqr(seit / (n - 1)) ' 3 分 Tetx2.Text = seit ' 2 分 End Sub
8