求VB编程知识：从键盘上输入三个不相同的数，然后在窗体上显示其中最小数！

答案：Private Sub Command1_Click()
Dim a(1 To 3)
Dim min
For i = 1 To 3
   a(i) = Val(InputBox("请输入第" & i & "个数"))
Next i
min = a(1)
For i = 2 To 3
   If a(i) < min Then min = a(i)
Next i
Print min
End Sub

上一个：求一个VB编程代码，可以自动定时注销，关机的，现在会是会了，不过还是想求下代码！
下一个：VB中连接SQL编程