vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 21:30:28
vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数

vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数

vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
创建一个名为Text1的文本框输入正整数,一个Command1的按钮用以开始计算,结果显示在Label1里
程序如下
Private Sub Command1_Click()
Dim NumIn As Long,Num As Long
NumIn = Val(Text1)
If Not IsPrime(NumIn) Then
Num = NumIn + NumIn Mod 2 + 1
While Not IsPrime(Num)
Num = Num + 2
Wend
End If
Label1 = Num
End Sub
Function IsPrime(n As Long) As Boolean
Dim i%
For i = 2 To Sqr(n)
If n Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next
IsPrime = True
End Function

vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数 vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数. 输入一个正整数,找出大于该数的最小素数用vb怎么编 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示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 编写一个判断某数是否为素数的应用程序.输入任意一个正整数,输出显示该数是否为素数. 求一道程序设计题的代码编写:输入一个正整数,判断该正整数是否为素数 输入一个正整数n,再输入n个正整数,判断它们是否唯素数.素数就是只能被1和自身整除的正整数,1不是素数,2是素数是用c语言编程 VB如何算出某个第一个大于该数的素数 c语言编程输入一个正整数输出各位数字的反向排列 和输入一个大于等于一的正整数,判断该数是否为素数今天给出答案急用 C语言 素数求和问题输入一个正整数 repeat (0 谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数. C语言:输入一个正整数n,再输入n个正整数,判断它们是否为素数. 三个不同的素数相乘为一个正整数,且其平方和是558,求该数. 在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox(输入一个正 C语言,TC2·0从键盘输入一个大于3的正整数,输出距离该数最近的素数.根据输入的数不同,此问题可能有一个答案(或者比输入的数大或者比输入的数小),也可能需要输出两个值(一个比输入的 VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数