Question

vb程序通过随机函数生成10个正整数,存放在数组中,然后查找这10个数中的最小数及其位置(即下标)

在线等，急！！！！！！！！！！！！！！！

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer

  Randomize

  j = 1

  Print "产生的10个数是"

  For i = 1 To 10

    a(i) = 1 + Rnd * 100

    If a(i) < a(j) Then j = i

    Print a(i);

  Next i

  Print

  Print "最小数是第"; j; "个,"; a(j)

End Sub