作业
来源:互联网 发布:淘宝靠谱香水代购 编辑:程序博客网 时间:2024/05/22 13:44
End Sub Option Base 1
Private Sub Command1_Click()
Cls
Font.size = 30
Dim a As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = 1
While m < 14
n = 1
While n <= 15 - m
If sierdun(n) < sierdun(n + 1) Then
swap = sierdun(n)
sierdun(n) = sierdun(n + 1)
sierdun(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
Private Sub Command1_Click()
Cls
Font.size = 30
Dim a As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
m = 1
While m < 14
n = 1
While n <= 15 - m
If sierdun(n) < sierdun(n + 1) Then
swap = sierdun(n)
sierdun(n) = sierdun(n + 1)
sierdun(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
0 0
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业~~~~~~~~~~~~~
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 作业
- 研读:Regulating ARM TrustZone Devices in Restricted Spaces
- Activiti生成流程图
- Tomcate 配置多个数据源
- Android Selector和Shape的组合
- PBOC借/贷记IC卡终端专用参数信息
- 作业
- 什么是SDT(安防大数据技术)?
- Swift开篇001->新建Swift工程
- DeepID人脸识别算法之三代
- VB作业
- 如何去阅读并学习一些优秀的开源框架的源码?
- 基于partition——最小的K个数、数组中出现次数超过一半的数字
- JQuery学习总结之 -- siblings()
- linux mysql 双主复制配置文件my.cnf