编写一个单击窗体程序，要求用户通过输入框输入A B C三个值，在窗体输出最大的一个。

Private Sub Form_Load()
MsgBox "单击窗体", , "提示"
End Sub

Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
a = InputBox("请输入变量A的值", "输入")
b = InputBox("请输入变量B的值", "输入")
c = InputBox("请输入变量C的值", "输入")
If a > b Then
If a > c Then
Print "最大的数是a：" & a
Else
Print "最大的数是c：" & c
End If
Else
Print "最大的数是b：" & b
End If
End Sub

[此贴子已经被作者于2006-11-3 18:02:41编辑过]

If a > b Then
If a > c Then
Print "最大的数是a：" & a
Else
Print "最大的数是c：" & c
End If
Else
If b > c Then
Print "最大的数是b：" & b
Else
Print "最大的数是c：" & c
End If
End If

正界

非常感谢楼上的两位老师，我明白自己错在哪里了！