vb编程在文本框中输入一个素数，然后单击“查找”命令按钮

2025-03-04 19:11:14

推荐回答（2个）

回答1：

Private Sub Command1_Click()
Dim n As Integer, t As Integer
n = Val(Text1.Text)
If n <= 5 Then MsgBox "请输入较大的素数！": Exit Sub
Do
n = n - 1
If isprime(n) Then
Label1(t).Caption = n
t = t + 1
End If
If t = 3 Then Exit Do
Loop
End Sub

Private Function isprime(Num As Integer) As Boolean
If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i

isprime = True
End Function

回答2：

jk,jk,jk,mn,jk,jk

vb编程 在文本框中输入一个素数，然后单击“查找”命令按钮

vb编程在文本框中输入一个素数，然后单击“查找”命令按钮