Question

一维数组中，输出最大值和最小值，VB编程，求各位大神解答

Answer 1

下面的代码能正确执行，已经调试通过：

Sub xxx()
    Dim Sstr, Arr, Vmin, Vmax, i
    Sstr = InputBox("输入一些数字，用空格分开")
    Arr = Split(Trim(Sstr), " ")
    For i = LBound(Arr) To UBound(Arr)
        If Trim(Arr(i)) <> "" Then
            Arr(i) = Val(Arr(i))
            If i = LBound(Arr) Or Arr(i) < Vmin Then Vmin = Arr(i)
            If i = LBound(Arr) Or Arr(i) > Vmax Then Vmax = Arr(i)
        End If
    Next i
    MsgBox "最小值是" & Vmin & "，最大值是" & Vmax
End Sub

Answer 2

遍历数组比较大小替换,如,int 小=0 if 数组[i]>小 then 小=数组[i] 反之比较小于...

Answer 3

dim a(10)
for i = 0 to 10
a(i)=int(rnd*100)
next
min=a(0)
max=a(1)
for i = 0 to ubound(a)
if a(i)>max then max=a(i)
if a(i)<min then min=a(i)
next
msgbox "大" & max & " 小：" & min