您的位置：首页 > 其它

保证最后3个数字是最小的

2016-04-21 16:42 309 查看

打开VB，然后在左侧找到command图标，在form窗口上创建图标，然后双击图标进入输入代码界面，输入下列代码:(适当修改界面字体大小)

Private Sub Command1_Click()

Cls

Font.Size = 30

Dim sierdun(10) As Integer

n = 1

While n <= 10

sierdun(n) = Int(Rnd * 1000)

n = n + 1

Wend

Dim swap As Integer

n = 1

While n <= 10 - 1

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

n = 1

While n <= 10 - 2

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

n = 1

While n <= 10 - 3

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

n = 1

While n <= 10

Print sierdun(n)

n = n + 1

Wend

End Sub

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航