Question

vb已知一个具有10个整数的一维数组，各元素值随机产生（范围在10，99）求出该一维数组中的最小位

能不能在20分钟内解决啊

Answer 1

Private Sub Command1_Click()
  Randomize
  Dim a(10) As Integer
  m = 1
  For i = 1 To 10
    a(i) = Int(Rnd * 90) + 10
    Print a(i);
    If a(i) < a(m) Then m = i
  Next i
  Print
  Print "最小元素a("; m; ")="; a(m)
  Print
End Sub