VB中从键盘输入一个正整数，判断其是否是素数。

VB中从键盘输入一个正整数,判断其是否是素数。
Private Sub Command1_Click()Dim a As Integer a = Val(InputBox("请输入一个非1非2的正整数："))n = 0 For i = 2 To Sqr(a)n = a Mod i If n = 0 Then MsgBox a & "不是素数"Exit For ' exit for拿到if里面 End If Next i If i > Sqr(a) Then MsgBox a & "是素...

用VB语言编写程序:输入一个正整数,判断该数是否是素数。
MsgBox N & IIf(Flags, "", "不") & "是一个素数"End Sub

vb怎么计算素数
回答：你在窗体上放一个textbox,一个Command,运行以下代码Private Sub Command1_Click() Dim i%, j% If Text1.Text = "" Then MsgBox "请输入一个整数" Exit Sub End If i = Int(Val(Text1.Text)) For j = 2 To i If i Mod j = 0 Then Exit For Next If j = i Then MsgBox ...

求一个vb语言编写的程序:判断x是否为质数。
")) '这是由键盘输入一个正整数，注意不能大于32766，不能小于1'Randomize'X = Int(Rnd * 90 + 10) '随机产生一个二位数的正整数For I = 2 To X - 1 ' If X Mod I = 0 Then '判断是否可以整除，如果整除不是素数，全部不能整除是素数 M = "不是素数" Exit For ...

输入一个正整数,若其是素数,将其输出,否则,找出与其最邻近的素数,并输...
Option Explicit '首先要知道如何判定一个数是不是素数 '素数普遍公式：若自然数N不能被不大于(N^0.5)的任何素数整除，则N是一个素数。Private Function prime(numberinput As Double) As Boolean '判定一个数是不是素数 Dim number As Double number = numberinput prime = True Dim sqrnumber ...

vb判断素数
正确程序如下（可以通过比较寻找自己的错误）：Private Sub Command1_Click()X = Text1.TextFor i = 2 To X - 1If X Mod i = 0 ThenF = 1Exit ForEnd IfNext iIf F = 1 ThenLabel2.Caption = "你输入的数是" & X & "，该数不是素数。"ElseLabel2.Caption = "你输入的数是" ...

VB编程:判断任意正整数N是否为素数
Private Sub Command1_Click()n= Text1.Text For i = 2 To Int(Sqr(n))If n Mod i = 0 Then msgbox "不是"Exit Sub End If Next i msgbox "是"End Sub

vb里面怎么编写一段代码判断输入的数是否素数
I循环的就是2到14，都不满足Exit For的条件。所以I＝14的循环是正常结束的。会遇到End If，所以会自动增1，于是变成I=15。所以，下面的IF语句是可以修改为如下的：If I = N Then'如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件 Print N & "是素数"Else Print N & "不...

Vb编辑一个程序。随意输入一个数判定该数是否是素数
Public Function IsSushu(ByVal pa As Integer) As Boolean Dim pb As Integer = pa - 1 Dim res As Boolean = True For i = 2 To pb If pa Mod i = 0 Then res = False Exit For End If Next i Return res End Function ...

vb 判断一个数是否为素数,若不是求出大于它的最小素数
'判断一个整数是否是素数，若是素数返回true，否则返回false Private Function IsPrimeNumber(ByVal num As Integer) As Boolean Dim i, k As Integer k = Sqr(num)For i = 2 To k If num Mod i = 0 Then Exit For End If Next If i > k Then Return True '是"素数"End If Retur...