大一上第四章数组.pptVIP

Option Base 1 Dim score() As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) Static num% If num = 0 Then num = 1 If KeyAscii = Asc(vbCrLf) Then If num Val(Text2) Then MsgBox 成绩已输入完毕！ Exit Sub End If score(num) = Val(Text1) num = num + 1 Text1 = End If End Sub Private Sub Text2_LostFocus() Dim N% N = Val(Text2) If N 0 Then ReDim Preserve score(N) Text1.Locked = False cmdCalc.enabled = True Else MsgBox 人数不对！ Text1.Locked = True cmdCalc.enabled = False End If End Sub Private Sub cmdCalc_Click() Dim i%, sum%, count%, avg# Fo