vb编程,输入a,b,c,三个数,按从小到大显示
展开全部
自己添加一个Command1控件,代码如下:
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = InputBox("输入第一个值:")
b = InputBox("输入第二个值:")
c = InputBox("输入第三个值:")
If a > b Then
t = a: a = b: b = t
End If
If b > c Then
t = b: b = c: c = t
End If
If a > c Then
t = a: a = c: c = t
End If
Print a; "<"; b; "<"; c
End Sub
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = InputBox("输入第一个值:")
b = InputBox("输入第二个值:")
c = InputBox("输入第三个值:")
If a > b Then
t = a: a = b: b = t
End If
If b > c Then
t = b: b = c: c = t
End If
If a > c Then
t = a: a = c: c = t
End If
Print a; "<"; b; "<"; c
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询