VB编程小题,很着急!

Dim S(5) As Integer
Dim I, K, Idx As Integer
For I = 1 To 5 Step 1
K = CInt(InputBox("请输入第" & I & "个数:", "输入"))
S(I) = K
Next I
K = S(1)
Idx = 1
For I = 2 To 5 Step 1
If K < S(I) Then
Idx = I
K = S(I)
End If
Next I
MsgBox "最大值的下标是: " & Idx & Chr(13) & "最大值是: " & K

这很简单啊

可惜我不大懂VB

Dim s(5) As Single, max As Single, min As Single
Dim m As Integer, n As Integer
For i = 0 To 4
s(i) = Val(InputBox("请输入第" & i + 1 & "个数字"))
Next i
max = s(0): m = 0: min = s(0): n = 0
For i = 1 To 4
If s(i) > max Then
max = s(i)
m = i
End If
If s(i) < min Then
min = s(i)
n = i
End If
Next i
Print "s(0)~s(4)中,最大数下标为" & m; "，值为：" & max & ";最小数下标为" &