vb 求数值中的最大值

当想要求数组的最大值 代码如下

Option Base 1
Dim a(4) As Integer

Private Sub Command1_Click()
a(1) = 34
a(2) = 56
a(3) = 12
a(4) = 53
s = a(1)
j = 1
'`'Print a(0)
For i = 1 To 4
    If a(i) > s Then
        s = a(i)
        j = i
    End If
Next i
 Print "最大数值为"; s; "在第"; j; "位"
 

运行结果如下图