vb问题，快！帮我修改代码！

2
x<min
min

Private Sub Form_Load()
Dim x As Integer
Dim min As Integer
Dim i As Integer
min = InputBox("请输入数据", "输入3个数")
For i = 1 To __2__
x = InputBox("请输入数据", "输入3个数")
If __x<min__ Then
min = x
End If
Next i
Text1.Text = __min___
End Sub

给你说一下思路：先把第一个数存贮在变量min中,作为最小数，然后取得第二个变量和min比较，如果该数大于min则不操作，去比较下一个，否则将第二个的值赋给min，直到最后
另外，你写的这些看是用数组来实现的，要先定义个数组存储读入的元素，不过原理是一样的

Private Sub Form_Load()
Dim x As Integer
Dim min As Integer
Dim i As Integer
min = InputBox("请输入数据", "输入3个数")
For i = 1 To _2___ '因为前面已经输入了一个数了，所以只要再输入两个
x = InputBox("请输入数据", "输入3个数")
If __min>x____ Then ’后来输入的两个数与min比较，并取小
min = x
End If
Next i
Text1.Text = __min___ ’最后min为最小的那个数，输出
End Sub