输入100个数（整型和浮点型），将其中的整数进行排序并按每行5个数的格式打印出来（用VB语言）

输入100个数（整型和浮点型），将其中的整数进行排序并按每行5个数的格式打印出来（用VB语言）

Option Explicit
Private Sub Form_Activate()
Dim i, j, arr(1 To 100), temp, out()
For i = 1 To 100
Randomize
arr(i) = Int(Rnd() * 900 + 100) '产生100-999的随机数
If ((arr(i) Mod 100) \ 10) Mod 2 = 0 Then arr(i) = Rnd() * 901 + 100 '中间数是偶数就产生一个带小数的值
Next

For i = 1 To 100 '排除带小数的
If Len(Trim(Str(arr(i)))) = 3 Then
j = j + 1
ReDim Preserve out(1 To j)
out(j) = arr(i)
End If
Next

For i = 1 To UBound(out) - 1 '对整数进行排序
For j = i + 1 To UBound(out)
If out(i) > out(j) Then
temp = out(i)
out(i) = out(j)
out(j) = temp
End If
Next
Next

temp = ""
For i = 1 To UBound(out)
If i Mod 5 = 0 Then
temp = temp & Space(4) & out(i) & vbNewLine
Else
temp = temp & Space(4) & out(i)
End If
Next
Print temp
MsgBox "ok"
Unload Me
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息