vb编程:找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 03:36:41
![vb编程:找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成](/uploads/image/z/4016615-23-5.jpg?t=vb%E7%BC%96%E7%A8%8B%EF%BC%9A%E6%89%BE%E5%87%BA%E4%BB%85%E7%94%B1%E6%95%B0%E5%AD%971%E3%80%812%E3%80%813%E3%80%814%E7%BB%84%E6%88%90%E7%9A%844%E4%BD%8D%E7%B4%A0%E6%95%B0%2C%E8%A6%81%E6%B1%82%E6%AF%8F%E4%B8%AA%E7%B4%A0%E6%95%B0%E7%94%B1%E5%9B%9B%E4%B8%AA%E4%B8%8D%E5%90%8C%E7%9A%84%E6%95%B0%E5%AD%97%E7%BB%84%E6%88%90)
vb编程:找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成
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