新建一个工程
From1上添加一个List1,用来显示素数
添加一个Command1,用来操作
代码如下：
Private Sub Command1_Click()
Dim i As Long
For i = 200 To 300
If su(i) = True Then '分析200-300区间所有的数是否为素数
List1.AddItem i '如果是素数就添加到List1中
End If
Next
End Sub
Private Sub Form_Load()
Command1.Caption = "求素数"
End Sub
Private Function su(sNum As Long) As Boolean '求素数
su = True
For i = 2 To sNum - 1
If sNum Mod i = 0 Then
su = False
Exit Function
End If
Next
End Function
vb编写程序求100到300之间的所有素数
rivate Function IsPrime(ByRef n As Integer) As Boolean '。此函数用于判断一个数是否素数：Dim j As Integer ；IsPrime = True ；For j = 2 To n - 1 ；If n Mod j = 0 Then IsPrime = False: Exit For ；Next ；End Function用法dim i as integer ,n as integerfor i =100 to ...
VB编写程序,输出100~300之间的所有素数
For i = 100 To 300 If prime(i) Then List1.AddItem i End If Next i End Sub Function prime(n) As Boolean prime = False For i = 2 To Sqr(n)If n Mod i = 0 Then Exit Function Next i prime = True End Function
如何在VB中输出素数?
1、输出1-100以内的素数：2、同样，也是输出1-100以内的素数，这个构造一个数组，将其所有元素初始化为1，表示素数，这时取x从2开始，到100以内做循环。若x为素数，即prime[x]！=0，使得每个i*x位置元素置0（prime[i*x]=0），表示为非素数，循环结束前x+1。3、该方法是输出100个素数，基本...
VB中指出100~300之间所有素数,并且至少一个是9,结果显示在一个图片框...
For i = 101 To 300 Step 2 For j = 3 To i - 1 Step 2 If i Mod j = 0 Then Exit For End If Next If j >= i - 1 Then If Int(i \/ 100) = 9 Or Int((i Mod 100) \/ 10) = 9 Or (i Mod 10) = 9 Then Gs = Gs + 1 Me.Picture1.Print i;If Gs = 5 ...
找出100到300的所有素数用VB 编写程序怎么写
Private Sub Command1_Click()For i = 101 To 299 Step 2 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next If j = i Then Print i;k = k + 1 If k Mod 10 = 0 Then Print End If Next End Sub
求出100-200之间的所有素数的VB程序设计。
以下是求出100-200之间的所有素数的VB程序设计：Public Function IsPrime(ByVal num As Integer) As Boolean ' 判断一个整数是否为素数 If num < 2 Then IsPrime = False ElseIf num = 2 Then IsPrime = True ElseIf num Mod 2 = 0 Then IsPrime = False Else Dim i As Integer For i =...
VB语言:求100以内的所有素数,统计个数,并按每行5个输出!求代码!
共有25个素数。Public Class Form1 Dim n As Int16 = 0 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = PrimeNumber(2, 100)MsgBox("共有素数：" & n & "个。")End Sub Function PrimeNumber(ByVal ...
用VB编写过程,求100~300中所有的素数,
在Vb中编写一个过程。使用相同的循环。外形完成101到299，使用步长为2。对于为外循环的每一个数值，使用循环。从2~根号I进行判断，
vb求100以内的素数
Me.Cls Dim yn As Boolean '为真表示是素数 Dim i As Integer, j As Integer, x As Integer For i = 1 To 100 yn = True '为真表示是素数，否则就不是，先默认为是素数 For j = 2 To i - 1 '素数要大小1,所以循环从2开始，素数不包括本身，所以循环终值减小1 If i Mod ...
VB编码找出100到200之间的素数,并求和,在线等
End If Next j If isSushu = True Then str = str & i & " " s = s + i End If Next i '窗体输出查找结果 Print "100到200之间的素数：" Print str & vbCrLf Print "素数之和=" & sEnd Sub运行效果 ...
