58问答库 > 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

最新问答

我的2010款别克君越3.0发动机故障灯亮，故障码:排气凸轮轴位置传感器电路缸列2 是怎么回事？

爱普生670K+打印机打印快快递单，怎么添加打印模板及调整打印位置不偏

国家医学考试网2017证书什么时候发

一个韩国女团mv，mv挺性感火辣的，有一幕是有一个性感的美女坐在一辆挺漂亮的车里，然后还有一幕是她

今天接到一个电话说是中级法院的，有张传票，详情请按9，按完她问我叫什么，我就把名字和身份证都告诉她了

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

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