Private Sub Command1_Click()
Dim a(1 To 2, 1 To 5) As Integer, i, j, k, f As Boolean
Randomize
For i = 1 To 2
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
f = True
For k = 2 To a(i, j) - 1
If a(i, j) Mod k = 0 Then f = False: Exit For
Next k
Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数")
Next j
Next i
End Sub
再问： 大侠，如果要将这些数在图片框中显示程序怎么弄呢？
再答： Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数") 改成： Picture1.Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数")
