比较3个数的大小
来源:互联网 发布:2016年韩国进出口数据 编辑:程序博客网 时间:2024/05/22 22:44
Private Sub Command1_Click()
Cls
Me.Font.Size = 24
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)
If a < b Then
Call swap(a, b)
End If
If a < c Then
Call swap(a, c)
End If
If b < c Then
Call swap(b, c)
End If
Print a & "," & b & "," & c &"," & d
End Sub
Private Sub swap(x As Integer, y As Integer)
Dim temp As Integer
If x < y Then
temp = x
x = y
y = temp
End If
End Sub
0 0
- 比较3个数的大小
- 3个数比较大小
- 3个数比较大小
- 指针 比较3个数的大小
- 比较俩个数的大小
- 比较15个数的大小
- 比较15个数的大小
- 比较15个数的大小
- 比较15个数的大小
- 比较15个数的大小
- c练习题3:用指针比较3个数的大小
- 初学java刚写的3个数比较大小
- 比较15个数的大小1
- 15个数比较大小
- 15个数比较大小
- 俩个数比较大小
- 2-2-3 嵌套和级联的判断-比较数的大小(从2个数比较到3个数)?
- VB作业之比较10个数的大小
- python关于list的一些小笔记
- 中国菜刀Cknife(C刀)打狗棒法之进阶篇:Cknife修改配置法秒过安全狗
- jboss-as-7.1.1.Final:(二)远程调试设置
- jquery.validate form 基本使用
- C/C++—— 分析命令行参数的getopt()函数使用介绍
- 比较3个数的大小
- UI控件--Toast
- HTML学习笔记(六)列表
- SVN服务器搭建和使用(一)
- 数据库单条记录并发读并更改问题
- Xcode制作动态及静态Framework和各种坑
- arm-linux内核编译出错
- mysql存储过程中遇到的问题
- MySQL数据库备份和恢复