Option Explicit
Private Sub Command1_Click()
Dim a(1 To 5) As Integer, i As Integer
For i = 1 To 5
a(i) = InputBox("请输入第" & Str(i) & "个元素")
Next
For i = 1 To 5
Print "a("; i; ") = "; a(i)
Next
End Sub
Private Sub command1_click()
Dim S(1 To 10) As Single, Sum As Single, i As Integer
For i = 1 To 10
S(i) = InputBox("s(" & Str(i) & ")=")
Next i
Sum = 0
For i = 1 To 10
Sum = Sum + S(i)
Next i
Print "Average="; Sum / 10
End Sub
Private Sub Command2_Click()
End
End Sub
_________________
Private Sub command1_click()
Dim a(1 To 10) As Single, min As Single, i As Integer
For i = 1 To 10
a(i) = InputBox("a(" & Str(i) & ")=")
Next i
min = a(1)
For i = 2 To 10
If a(i) < min Then min = a(i)
Next i
Print "min="; min
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Click()
Dim s!(1 To 3, 1 To 3), i!, j!, sum!, ave!
For i = 1 To 3
For j = 1 To 3
s(i, j) = InputBox("s(" & Str(i) & "," & Str(j) & ")=")
Next j
Next i
Print "每个学生的平均成绩:"
For i = 1 To 3
sum = 0
For j = 1 To 3
sum = sum + s(i, j)
Next j
ave = sum / 3
Print i, ave
Next i
Print "每门课程的平均成绩:"
For j = 1 To 3
sum = 0
For i = 1 To 3
sum = sum + s(i, j)
