Private Sub Command1_Click() Dim a, b a = Val(InputBox("请输入第一个数")) b = Val(InputBox("请输入第二个数")) If Not a = 0 And Not b = 0 ThenIf a < b Then c = a: a = b: b = cDo...