VB编程 利用inputbox函数输入10个数，找出最大数 并输出。

Question

如题所述

Answer 1

For i = 1 To 10
改成
For i = 0 To 9
试一下
汗……有Option Base 1啊……

看出来了，是这样子的，因为你在输入之前就定义了Min=s(1)此时，s(1)=0，所以之后只要你输入的正数就不会比0小了，应该将Min定义成一个大数，比如使成绩的话，Min=100这样就不会错了

Answer 2

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本回答被提问者采纳