VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Integer,i As IntegerDim flg As Booleann = Text1n = n + 1For i = 2 To Sqr(n)If n Mod i = 0 Then Exit ForNext iIf i > Sqr(n) Then flg = TrueIf flg
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 22:38:18
![VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Integer,i As IntegerDim flg As Booleann = Text1n = n + 1For i = 2 To Sqr(n)If n Mod i = 0 Then Exit ForNext iIf i > Sqr(n) Then flg = TrueIf flg](/uploads/image/z/7865612-44-2.jpg?t=VB%E8%BE%93%E5%85%A5%E4%BB%BB%E6%84%8F%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E8%8B%A5%E8%AF%A5%E6%95%B0%E4%B8%8D%E6%98%AF%E4%B8%80%E4%B8%AA%E7%B4%A0%E6%95%B0%2C%E5%88%99%E6%89%BE%E5%87%BA%E4%B8%80%E4%B8%AA%E5%A4%A7%E4%BA%8E%E5%AE%83%E7%9A%84%E6%9C%80%E5%B0%8F%E7%B4%A0%E6%95%B0Dim+n+As+Integer%2Ci+As+IntegerDim+flg+As+Booleann+%3D+Text1n+%3D+n+%2B+1For+i+%3D+2+To+Sqr%28n%29If+n+Mod+i+%3D+0+Then+Exit+ForNext+iIf+i+%3E+Sqr%28n%29+Then+flg+%3D+TrueIf+flg)
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Integer,i As IntegerDim flg As Booleann = Text1n = n + 1For i = 2 To Sqr(n)If n Mod i = 0 Then Exit ForNext iIf i > Sqr(n) Then flg = TrueIf flg
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
Dim n As Integer,i As Integer
Dim flg As Boolean
n = Text1
n = n + 1
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then flg = True
If flg = True Then
Text2.Text = CStr(n) & "是素数"
Else
Do
n = n + 1
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then flg = True
Loop Until flg = True
Label2.Caption = "大于" & Text1.Text & "的最小素数是"
Text2.Text = CStr(n)
请问这段代码错在哪里啊
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Integer,i As IntegerDim flg As Booleann = Text1n = n + 1For i = 2 To Sqr(n)If n Mod i = 0 Then Exit ForNext iIf i > Sqr(n) Then flg = TrueIf flg
Dim n As Integer, i As Integer
Dim flg As Boolean
n = Val(Text1.Text)
n = n + 1
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then flg = True
If flg = True Then
Text2.Text = CStr(n) & "是素数"
Else
Do
n = n + 1
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then flg = True
Loop Until flg = True
Label2.Caption = "大于" & Text1.Text & "的最小素数是"
Text2.Text = CStr(n)
End If