两个随机数排序
2016-03-24 17:41
363 查看
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
相关文章推荐
- 比较大小
- 操作系统--命令解释程序_2
- 哲学初步认识4
- [Java代码] Java操作Redis
- forward与redirect
- requirejs模块化框架用法分享
- HTML5 audio标签使用 浏览器触发函数提示声音(最小化后 、当前任务非浏览器时都可以使用)
- 12.PullToRefresh滑动到顶部
- 针对Linux ASP.NET MVC网站中 httpHandlers配置无效的解决方案
- BZOJ3992: [SDOI2015]序列统计
- jdk并发
- uboot 2015 添加新的板级支持
- webview 内存泄露解决办法
- 显卡
- request.getparam()与request.getAttibute()的区别
- Android MediaPlayer状态机
- python学习(三):高级特性
- perl 升级到5.20版本
- 31. Next Permutation | Java最短代码实现
- 通信Socket