vb实验模拟图.docxVIP

VB程序代码Dim a(1 To 10) As Single, i As IntegerPrivate Sub Form_Load() Form1.Show Text1.SetFocus Print Label1.AutoSize = True Label2.AutoSize = True Command1.Caption = 统计 Command1.Enabled = False Command2.Enabled = False Label1.ForeColor = RGB(255, 0, 0) Label1.BackColor = RGB(255, 255, 0) Text1.ForeColor = vbBlue Text1.BackColor = RGB(255, 255, 0)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then i = i + 1 If i = 10 Then Text1.Enabled = False 控制输入次数 Command1.Enabled = True Command2.Enabled = True End If a(i) = Text1.Text Print a(i); Spc(1); Text1.Text = End IfEnd SubPrivate Sub Command1_Click()Dim sum As Single, aver As Single, total As Single For i = 1 To 10 sum = sum + a(i) 求和 Next i total = sum aver = sum / 10 平均值 For i = 1 To 10 Next i For i = 1 To 10 If a(i) aver Then t = t + 1 End If Next Label4.Caption = 超过平均成绩的人数为： t Label2.Caption = 10人的总成绩： Str(total) Label3.Caption = 平均成绩： Str(aver) Label2.ForeColor = RGB(255, 0, 0) Label2.BackColor = RGB(255, 255, 0) Label3.ForeColor = RGB(255, 0, 0) Label3.BackColor = RGB(255, 255, 0) Label4.ForeColor = RGB(255, 0, 0) Label4.BackColor = RGB(255, 255, 0)End SubPrivate Sub Command2_Click()Label2.Caption = Label3.Caption = Label4.Caption = Text1.Enabled = True 控制输入次数Command1.Enabled = FalseText1.SetFocusEnd Sub“该程序有个问题：为什么【清除键】清楚不完窗口上输入的数字”为什么，怎样才能清楚呢？？？程序运行图科目：Vb班级：0920271学好：38姓名：周波时间:2011.11.20