第1个回答 推荐于2016-05-23
Dim maxx As Double
Function max(x As Double, y As Double)
If x > y Then
max = x
Else
max = y
End If
End Function
Private Sub Command1_Click()
Dim a(1 To 10) As Double
For i = 1 To 10
a(i) = InputBox("")
maxx = max(a(i), maxx)
Next
Print maxx
End Sub本回答被提问者采纳