VB：谁能帮我讲解一下这段代码？

来源：百度知道 编辑：UC知道 时间：2024/05/27 11:04:29
Private Sub Command1_Click()
Dim a() As Integer, i%, j%, n%, t As Boolean, c%, x%
ReDim a(100) As Integer
For i = 1 To 100
x = Int(Rnd * 100 + 1)
t = True
For j = 2 To i - 1
If x Mod j = 0 Then t = False: Exit For
Next j
If t = True Then
n = n + 1
a(n) = x
End If
Next i
ReDim Preserve a(n) As Integer
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
c = a(i): a(i) = a(j): a(j) = c
End If
Next j
Next i
j = 0
For i = 1 To n
Picture1.Print a(i);
j = j + 1
If j = 5 Then j = 0: Picture1.Print
Next i
End Sub

Private Sub Command1_Click()
Dim a() As Integer, i%, j%, n%, t As Boolean, c%, x%
ReDim a(100) As Integer
For i = 1 To 100
x = Int(Rnd * 100 + 1) '产生谁机数
t = True '标记是否取到合数
For j = 2 To i - 1
If x Mod j = 0 Then t = False: Exit For 'true表示该数为素数
Next j
If t = True Then '将素数存放起来
n = n + 1
a(n) = x
End If
Next i
ReDim Preserve a(n) As Integer '数组扩展一位
For i = 1 To n - 1 '下面是将数组从小到大排列
For j = i + 1 To n
If a(i) > a(j) Then '实现大与小的交换
c = a(i): a(i) = a(j): a(j) = c
End If
Next j
Next i
j = 0 '标记打印的数的个数
For i = 1 To n
Picture1.Print a(i);
j = j + 1
If j = 5 Then j = 0: Picture1.Print '每5个换行
Next i
End Sub

给我吧