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/04/28 15:41:11
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 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

VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数. vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数 vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数, 输入一个正整数,找出大于该数的最小素数用vb怎么编 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输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数 vfp,任意输入一个正整数,编写程序求0到该数之间所有奇数的和 任意输入一个正整数,编写程序求0到该数之间所有的奇数的和. vb例题：任意输入一个整数,编写程序判断该整数的奇偶数 编写一个判断某数是否为素数的应用程序.输入任意一个正整数,输出显示该数是否为素数. 在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox(输入一个正 输入任意一个不限位数的正整数,分离出该数中的每一位数字,并按逆序显示输出各位数 用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18 用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18 从键盘上任意输入一个4位正整数,然后逆序数输出 求解c语言中 输入一个正整数,判断该数是奇数还是偶数.输入一个正整数,判断该数是奇数还是偶数 用C语言编程,输入一个正整数,计算并显示该数的各位数字之和.