15问答网 > VB编写以下程序：随机产生20个100以内的正整数，按从小到大的顺序输出在窗体上，每行打印5个。

VB编写以下程序：随机产生20个100以内的正整数，按从小到大的顺序输出在窗体上，每行打印5个。

2024-11-29 05:37:15

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim arr(1 To 20)
For i = 1 To 20
arr(i) = Int(Rnd * 99) + 1
Next
For i = 1 To 20
For j = i + 1 To 20
If arr(j) < arr(i) Then
a = arr(j)
arr(j) = arr(i)
arr(i) = a
End If
Next
Next
Print Join(arr)
End Sub

最新问答

北京歌华有线宣武分公司电话

推荐一种能在天然泥地草场和人造硬草地上踢的足球鞋

4399里有什么好玩不腻的小游戏

SQL Server 服务管理器这个东西是干什么用的可以关掉或者删除吗？

扬声器属于电磁感应现象吗，是那个电流通过线圈与磁极作用撞纸盆发声的装置，如不是电磁感应现象是什么？

怪物猎人P3的崩龙和霸龙怎么打？

我本科时连积极分子都不是，现在刚读研了，想入党，能行吗?需要什么程序?

家庭用电怎样接地线够安全

公务员可不可以在职攻读研究生啊？能公费报销吗？

作诗仄声能用于押韵吗？什么情况下才能押韵

VB编写以下程序： 随机产生20个100以内的正整数，按从小到大的顺序输出在窗体上，每行打印5个。

VB编写以下程序：随机产生20个100以内的正整数，按从小到大的顺序输出在窗体上，每行打印5个。