一个菜鸟的心路历程.
2016-03-31 16:50
302 查看
现在时间是2016年3月31日下午16:50. 邪恶的计算机老师又给我们布置了很多任务。虽然说电脑很好玩。vb很高级 ,但是你不会,不懂,那你就没办法了 ,就比如下面的这个代码
Option Base 1
Private Sub Command1_Click()
Cls
Me.Font.Size = 25
Dim A(10) As Integer
Dim swap As Integer
Dim n As Integer
n = 1
While n <= 10
A(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 9
If A(n) < A(n + 1) Then
swap = A(n)
A(n) = A(n + 1)
A(n + 1) = swap
End If
n = n + 1
Wend
n=..................................(省略)
n = 1
While n <= 10
Print A(n)
n = n + 1
Wend
End Sub
很神奇的就把10个数排序了。
Option Base 1
Private Sub Command1_Click()
Cls
Me.Font.Size = 25
Dim A(10) As Integer
Dim swap As Integer
Dim n As Integer
n = 1
While n <= 10
A(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 9
If A(n) < A(n + 1) Then
swap = A(n)
A(n) = A(n + 1)
A(n + 1) = swap
End If
n = n + 1
Wend
n=..................................(省略)
n = 1
While n <= 10
Print A(n)
n = n + 1
Wend
End Sub
很神奇的就把10个数排序了。
相关文章推荐
- Android虚线不显示
- ubuntu firefox不能播放MP4,ubuntu Firefox flash 浏览器全屏置顶
- PostgreSQL 中文资料汇总
- maven异常问题及处理总结
- bzoj 2724: [Violet 6]蒲公英
- 棋盘问题 BNUOJ 1440
- 维度建模的基本概念及过程
- 闹钟制作
- 利用DelegatingHandler实现Web Api 的Api key校验
- 同步与异步的区别
- linux下安装phpstudy
- 纯原创
- 声明与输入的类型不同会怎样
- android app(1)—apk的组成
- 免安装PL/SQL无法连接本地ORACLE数据库解决方法
- 《15个数字的排序代码》15电气1班43号
- 中断中处理延时及一些函数的调用规则(中断调i2c驱动有感)--中断中的延迟delay与printk函数的冲突【转】
- 微信支付学习记录1
- Java包装类
- IOS TextField伴随键盘移动