Private Sub Form_Activate()Dim a As IntegerDim b As IntegerDim c As Integera = Val(InputBox("请输入第一个数"))b = Val(InputBox("请输入第二个数"))c = Val(InputBox("请输入第三个数"))If a >= b And a >= c...