Private Sub Command1_Click()
Cls
Randomize (Timer)
Dim m As Integer, n As Integer
Dim a() As Integer
m = InputBox("m=", "", 5)
n = InputBox("n=", "", 10)
ReDim a(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 900 + 100)
Next j
Next i
Call PrintArray(a, m, n)
Print
Call Sort(a, m, n)
Call PrintArray(a, m, n)
Print
For i = 1 To m
For j = 1 To n
If IsFrimeNumber(a(i, j)) Then
c = c + 1
Print a(i, j);
If c Mod 10 = 0 Then Print
End If
Next j
Next i
End Sub
Private Sub Sort(ByRef a() As Integer, ByVal m As Integer, ByVal n As Integer)
For i = 1 To m
For j = 1 To n - 1
For k = j + 1 To n
If a(i, k) < a(i, j) Then
t = a(i, j)
a(i, j) = a(i, k)
a(i, k) = t
End If
Next k
Next j
Next i
End Sub
Private Sub PrintArray(ByRef a() As Integer, ByVal m As Integer, ByVal n As Integer)
For i = 1 To m
For j = 1 To n
Print a(i, j);
Next j
Print
Next i
End Sub
Private Function IsFrimeNumber(ByVal n As Integer) As Boolean
IsFrimeNumber = True
For i = 2 To Sqr(n)
If n Mod i = 0 Then
IsFrimeNumber = False
Exit Function
End If
Next i
End Function
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/e850352ac65c10386d38e2fdb8119313b07e894e?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)