3个数比大小
来源:互联网 发布:云计算阅读答案 编辑:程序博客网 时间:2024/06/05 08:30
Dim a(3) As Double, i As Integer, t As Integer
For i = 1 To 3
a(i) =InputBox("请输入第" &i & "个数")
Next i
If a(1) <a(2) Then change2num a(1), a(2)
If a(1) <a(3) Then change2num a(1), a(3)
If a(2) <a(3) Then change2num a(2), a(3)
MsgBox "排序后的输出是:" & vbCrLf & a(1) & "" & a(2) & " " & a(3)
End
End Sub
Function change2num(x As Double, y As Double)
Dim t As Double
t = x
x = y
y = t
0 0
- 3个数比大小
- 3个数比较大小
- 3个数比较大小
- 3人比饭量大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- 比大小
- RMAN Restore backup of lower version database to a higher version
- 随机数由小到大排序
- 数字大小排序
- 3个数排序
- 各种排序算法总结
- 3个数比大小
- 获取iOS设备型号的方法
- 比较15个数的大小
- 20160324.2
- 比较15个数的大小1
- 2016.3.24(2)
- 《2015年中国邮件营销行业数据报告》
- 【Android】webview javascript 注入方法
- ZOJ 3846GCD Reduce(数学)