visual Basic程序设计实验与实训指导黄刚p40第6.1双分支if语句改写
可以改为一个单分支if语句:
a = Text1.Text
b = Text2.Text
Max = a
If b > Max Then Max = b
Text3.Text = Str(Max)