Private Sub Command1_Click() Dim a(10) As Integer Dim t As Integer For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个数") Next i t = a(1) For i = 2 To 10 If a(i) < t Then t = a(i) Next i Print tEnd Sub
