怎么用FOR循环输入3个数字
然后求出3个数中的最小值？
帮忙改写一下我这段有问题的代码
谢谢
Private Sub Form_Click()
Dim num1 As Integer, small As Integer, i
For i = 1 To 3
num1 = InputBox("请输入第" + Str(i) + "个数")
small = num1

If num1 < small Then
small = num1
End If
next i

Text1.Text = small
End Sub

不能直接一次输入3个么？
要这样先选出一个：
Private Sub Form_Click()
Dim num1 As Integer, small As Integer, i

small = CInt(InputBox("请输入第1个数"))
For i = 2 To 3
num1 = CInt(InputBox("请输入第" + Str(i) + "个数"))

If num1 < small Then
small = num1
End If
Next i
Text1.Text = small
End Sub

[url=http://wpa.]点击这里给我发消息[/url]

注意你的这一句:
small = num1

If num1 < small Then

第一句都说了,两个变量相等,你还比较大小……
所以要先给small赋值

明白了
谢谢
[url=http://wpa.qq.com/msgrd?V=1&Uin=12471737&Site=www.bbs.bc-cn.net&Menu=yes]点击这里给我发消息[/url]

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 3) As Integer
Dim Min As Integer
For i = 1 To 3
a(i) = InputBox("请输入第" & CStr(i) & "个数")
Next

Min = a(1)
For i = 2 To 3
If a(i) < Min Then Min = a(i)
Next
Print "最小数为"; Min
End Sub

谢谢版主的热心帮助
[url=http://wpa.qq.com/msgrd?V=1&Uin=12471737&Site=www.bbs.bc-cn.net&Menu=yes]点击这里给我发消息[/url]

这个问题原本已经结束了，
作业我交了之后，老师说还有漏洞
要加一个判断整数的语句
保证输入的3个数都是整数
如果输入的数字不是整数
给出错误提示
怎么判断整数啊？
if 什么？

判断数字用isnumeric函数..

For i = 1 To 3
a(i) = InputBox("请输入第" & CStr(i) & "个数")
If a(i)>fix(a(i)) then
MsgBox("请输入一个整数")
i=i-1
End If
Next