Question

有一个十个元素的数组,各元素的值为25,15,48,75,96,35,87,45,25,69.编写

有一个十个元素的数组,各元素的值为25,15,48,75,96,35,87,45,25,69.编写程序,

Answer 1

Private Sub Command1_Click()
arr = Array(25, 15, 48, 75, 96, 35, 87, 45, 25, 69)
imin = 0
For i = 1 To UBound(arr)
If arr(i) < arr(imin) Then imin = i
Next i
Print "最小数是："; arr(imin)
Print "下标是："; imin
End Sub

Answer 2

int[] arr={25,15,48,75,96,35,87,45,25,69};