Private Sub Command1_Click()
Dim a, b, c, d As Single
a = Val(InputBox("a=", "输入第一个数"))
b = Val(InputBox("b=", "输入第二个数"))
c = Val(InputBox("c=", "输入第三个数"))
d = Val(InputBox("c=", "输入第四个数"))
Min = a
If b < Min Then
Min = b
End If
If c < Min Then
Min = c
End If
If d < Min Then
Min = d
End If
Print "最小的数是……="; Min
End Sub
Private Sub Form_Load()
End Sub