VB程序随机产生20个0—100的整数,每行5个元素输出

随机产生20个0—100的整数,按每行5个元素输出
2025-04-04 11:11:24
推荐回答(1个)
回答1:

Private Sub Command2_Click()
Dim i As Integer
Dim x As Integer
Dim a As Integer

For i = 0 To 20
a = a + 1
x = Int(Rnd * 100)
Print x;
If a = 5 Then
Print
a = 0
End If
Next i
End Sub