比较大小
2016-04-21 16:41
218 查看
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
Print a & "," & b
End Sub
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
Print a & "," & b
End Sub
相关文章推荐
- 04-树4 是否同一棵二叉搜索树
- TGBBitmap 与 TBitmap 互转
- 遗传算法的C++实现
- Android View学习笔记(三):Scroller的原理剖析及使用(上)
- 一个简单的makefile的例子
- iOS 多选cell复用修正应该标记model里是否选中
- 十的阶乘
- keyboard
- SurfaceView 绘制分形图
- JAX-WS(JWS):Java WebService
- jrtplib—VS2010下RTP开源协议库JRTPLIB3.9.1编译
- VS禁用外部依赖项(External Dependencies)文件夹
- vb17
- Android Loader详解
- Android Loader详解
- 红糖水白糖水交换
- HTTP协议状态码详解
- 高通安卓调试LCD几方面总结(一)
- 微信开发 config:invalid url domain
- Android Loader详解