vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成

vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成

不错的问题,
在 1楼得 分析下,程序如下
Private Sub Command1_Click()
If IsPrime(4321) Then
Text1.Text = Text1.Text & "4321 Is Prime!" & vbCrLf
End If
If IsPrime(4231) Then
Text1.Text = Text1.Text & "4231 Is Prime!" & vbCrLf
End If
If IsPrime(3421) Then
Text1.Text = Text1.Text & "3421 Is Prime!" & vbCrLf
End If
If IsPrime(3241) Then
Text1.Text = Text1.Text & "3241 Is Prime!" & vbCrLf
End If
If IsPrime(2341) Then
Text1.Text = Text1.Text & "2341 Is Prime!" & vbCrLf
End If
If IsPrime(2431) Then
Text1.Text = Text1.Text & "2431 Is Prime!" & vbCrLf
End If
If IsPrime(4213) Then
Text1.Text = Text1.Text & "4213 Is Prime!" & vbCrLf
End If
If IsPrime(4123) Then
Text1.Text = Text1.Text & "4123 Is Prime!" & vbCrLf
End If
If IsPrime(2143) Then
Text1.Text = Text1.Text & "2143 Is Prime!" & vbCrLf
End If
If IsPrime(2413) Then
Text1.Text = Text1.Text & "2413 Is Prime!" & vbCrLf
End If
If IsPrime(1423) Then
Text1.Text = Text1.Text & "1423 Is Prime!" & vbCrLf
End If
If IsPrime(1243) Then
Text1.Text = Text1.Text & "1243 Is Prime!" & vbCrLf
End If
End Sub
Private Function IsPrime(Number As Integer) As Boolean
Dim i As Integer
IsPrime = True
For i = 2 To Sqr(Number)
If Number Mod i Then
Else
IsPrime = False
Exit Function
End If
Next i
End Function