5.12
来源:互联网 发布:javascript保留字 编辑:程序博客网 时间:2024/06/06 08:55
Private Function swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t
End Function
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Next i
Dim j As Integer
For j = 1 To 10
For i = j + 1 To 10
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
Print
End Sub
Dim t As Integer
t = a
a = b
b = t
End Function
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Next i
Dim j As Integer
For j = 1 To 10
For i = j + 1 To 10
If a(j) < a(i) Then
swap a(j), a(i)
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
End Sub
1 0
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- 5.12
- FlexLM 5.12
- 5.12地震
- 5.12地震
- 5.12纪念日
- 5.12祭
- TCL8.5.12
- Sandboxie 5.12
- haskell之Functor、Applicative、Monad
- 自定义多行多列的RadioGroup
- 经典算法心得
- 小小冒泡法
- Handler,Looper,Message,MessageQueue,HandlerThread使用总结(上)
- 5.12
- Excel技巧
- 顺序表应用1:多余元素删除之移位算法
- css3实现隔行换色
- eclipse背景色及字体色等的设置方法和样例
- meta name="viewport" content="width=device-width,initial-scale=1.0" 解释
- send,recv,sendto,recvfrom
- 二分查找(未通过poj验证)
- 流程设计实践:增加路由活动的应用案例