Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer ‘定义三个整数类数据
a = InputBox("请输入一个正整数a")’输入a
b = InputBox("请输入一个正整数b") '输入b
c = InputBox("请输入一个正整数c") '输入c '以下三个if语句纯属放屁,吃多了撑着了。当条件为非0时,永远为真,所以有没有if一样的。If(15)Then ‘将a与b对换
t = a
a = b
b = t ...
Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = InputBox("请输入一个正整数a")b = InputBox("请输入一个正整数b")c = InputBox("请输入一个正整数c")If a > b Then t = a a = b b = t...