Question

用VB编写 将10个数值型数据赋值到一个一维数组中，并找出其中最小值及其所在位置

急求，谢谢！！

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim x(1 To 10) As Integer
x(1) = 12
x(2) = 6
x(3) = 7
x(4) = 11
x(5) = 21
x(6) = 22
x(7) = 4
x(8) = 10
x(9) = 9
x(10) = 5
n = x(1)
For i = 1 To 10
If x(i) < n Then
n = x(i)
j = i
End If
Next i
Print j, n
End Sub