Private Sub Command2_Click()
  Dim k As Integer
  Dim a(9) As Integer

   k = 0
   For i = 0 To 9
    If a(k) > a(i) Then
     a(k) = a(i)
     End If
     Next i
     Label2.Caption = "最小值是：" & a(k)
End Sub



Private Sub Form_Load()
Dim a(9) As Integer
 For i = 0 To 9
    a(i) = Int(Rnd * 90)
    Text1.Text = Text1.Text & Str(a(i))
    Next i
End Sub


求最小值！请教哪个地方出错了！最小值显示是0

   咋没人回复啊！！！求解啊！！！

If a(k) > a(i) Then
     a(k) = a(i)
     End If

是 k=i 吧。

  问题解决了！是没有定义全局数组！谢谢啦！~