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

能不能在20分钟内解决啊
2024-11-15 18:58:32
推荐回答(1个)
回答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