VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 13:20:26

VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.
[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,结束程序运行.3:若N不是素数则将N增加1,重复上一步骤,直到N是素数为止.

VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,
private sub command1_click()
dim n as Long
dim Nss as boolean
n=val(trim(text1.text))
if ss(n)=True then
text2.text="N=" & n & " 是素数"
else
do while Nss=True
n=n+1
Nss=ss(N)
loop
text1.text=n
text2.text="N=" & n & " 是素数"
endif
end sub
或者把这段代码放到Text1 的change事件里
Function ss(Tmp As Long) As Boolean '素数判断
ss = True
For i = 2 To Tmp / 2
If Tmp Mod i = 0 Then
ss = False
Exit Function
End If
Next
End Function

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到该数之间所有的奇数的和. c ++ 阶乘：输入一个正整数,求该数的阶乘? 急· vb例题：任意输入一个整数,编写程序判断该整数的奇偶数求一个C语言程序：输入正整数,要求以相反数顺序输出该数.如输入1234,输出4321. 编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢! 编写一个判断某数是否为素数的应用程序.输入任意一个正整数,输出显示该数是否为素数. 编写函数void fun(long n),求任意一个小于65535的正整数n的逆序数,并判断该数是否为回文数,是输出“YES”,否则输出“NO”.在main函数中输入n后天就考试, 在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