问题补充:
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 i Sqr(n) Then flg = TrueIf flg = True ThenText2.
答案:
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) & 是素数
ElseDo 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
如果觉得《VB输入任意一个正整数 若该数不是一个素数 则找出一个大于它的最小素数Dim n As Intege》对你有帮助,请点赞、收藏,并留下你的观点哦!