VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/21 16:43:37
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)
请问这段代码错在哪里啊
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)
请问这段代码错在哪里啊
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
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
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
输入一个正整数,找出大于该数的最小素数
编写一个判断某数是否为素数的应用程序.输入任意一个正整数,输出显示该数是否为素数.
c语言编程输入一个正整数输出各位数字的反向排列 和输入一个大于等于一的正整数,判断该数是否为素数
求大于200的最小的一个自然数,该数既是素数,又是回文数.
一个数a等于一个偶数加1,最小但大于a的一个素数减该偶数仍得一个素数.
证明:分解{1+p+.+p^2k}的素数中一定有一个数大于p 或找出反例.(p为素数,k为正整数)
c语言中判断一个正整数是否为素数,若是素数则输出该素数,若不是则输出该数所有的因子
求一道程序设计题的代码编写:输入一个正整数,判断该正整数是否为素数
用matlab写一个判断任意输入的正整数是否为素数的函数文件