15电气1班麻天骄作业
来源:互联网 发布:24美元曼哈顿复利 知乎 编辑:程序博客网 时间:2024/04/28 16:45
把最小数放到最后的作业
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim wzs(10) As Integer
Dim swap As Integer
n = 1
While n <= 10
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 9
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
n = 1
While n <= 10
Print wzs(n)
n = n + 1
Wend
End Sub
0 0
- 15电气1班麻天骄作业
- 15电气1班麻天骄作业
- 15电气1班麻天骄作业
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气李书鹏 作业1
- 15电气郑明雨作业1
- 15电气刘慧岩作业
- 15电气李书鹏 作业2
- 15电气郑明雨作业2
- 15电气李书鹏VB作业3(1)
- 15电气李书鹏4月14日作业(1)
- 15电气李书鹏5.12VB作业(1)
- 15电气一班刘思凡作业一
- Leetcode 328
- 有关ios过度动画CATransition的一些特效
- sscanf()函数的使用及其实例
- POJ-3276 Face The Right Way
- 15电气郑明雨
- 15电气1班麻天骄作业
- mongodb使用小结
- Android快速开发框架之——AndBase
- 关于Xcode的绝对路径和相对路径问题
- 作业
- UI - Cocoa Touch框架
- docker 安装 webpack 时报错 EPROTO: protocol error, symlink
- C语言字符串strlen函数使用
- 1006. Sign In and Sign Out (25)