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

显示全部楼层 · 2011-7-15 07:52:32

创建一个名为Text1的文本框输入正整数，一个Command1的按钮用以开始计算，结果显示在Label1里程序如下Private Sub Command1_Click()Dim NumIn As Long, Num As LongNumIn = Val(Text1)If Not IsPrime(NumIn) Then
Num = NumIn + NumIn Mod 2 + 1
While Not IsPrime(Num)
Num = Num + 2
WendEnd IfLabel1 = NumEnd SubFunction IsPrime(n As Long) As...

千问 · 2011-7-15 07:52:32

private sub command1_click()
dim n as Long
dim Nss as boolean
n=val(trim(text1.text))
ifss(n)=True then
text2.text="N=" & n & "是素数"
else
...

千问 · 2011-7-15 07:52:32

Private Sub form_click()Dim n As Longn = Val(InputBox("请输入一个整数"))If sushu(n) = False ThenDon = n + 1If sushu(n) = True Then Exit DoLoopMsgBox "该数不是素数，大于它的最小素数是：" & ...