当前位置：首页 » 网站代码 » vb求素数代码

vb求素数代码

发布时间: 2021-03-24 18:01:21

Ⅰ vb求素数的代码问题

常用的素数算法是

先获取平方根之后,然后除平方根--的

Ⅱ 求一道VB题代码如何求素数

把主要代码给你贴出来看看
PublicFunctionIsSushu(ByValpaAsInteger)AsBoolean
DimpbAsInteger=pa-1
DimresAsBoolean=True
Fori=2Topb
IfpaModi=0Then
res=False
ExitFor
EndIf
Nexti
Returnres
EndFunction
Dima(10)AsInteger
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
DimstrAsString=""
DimnAsInteger
n=0
Fori=1To10
a(i)=Int(Rnd()*90+10)
str=str&a(i)&""
IfIsSushu(a(i))Then
n+=1
EndIf
Next
TextBox1.Text=str
TextBox6.Text=n

EndSub

Ⅲ VB程序求100内所有素数的和。

if i =m 那里的i 是2 to m-1。因此语句是错误的

Ⅳ 用vb编出求100以内素数的代码

Private Sub Command1_Click()
For m = 2 To 100
flag = 0
For i = 2 To m - 1
If (m Mod i) = 0 Then
flag = 1
Exit For
End If
Next i
If flag = 0 Then
Print m;
j = j + 1
If j Mod 5 = 0 Then Print '每输出5个换一行
End If
Next m
End Sub

Ⅳ 判断素数的vb程序代码

人家是要在*******处填入代码，而不修改其他地方，楼上虽然方法对的，但是添加了一个布尔型变量，用以判断，不符合题意。

其实题目的思路是这样的：
从2开始到比x小1的数字，如果x可以被其中一个数整除，那么x就不是素数，这是跳出循环，i应该比x小，否则当i=x的时候，循环结束，这是x就是素数，i应该等于x

所以：
i>=x 是素数
i<x 不是素数

因此，***** 处填入
i>=x

Ⅵ vb求100以内的素数

代码：

Private Sub Command1_Click()

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 j = 0 Then yn = False '如果能整除就不是素数

Next j

If yn = True Then Print i; '如是素数，就在窗体上输出素数

Next i

End Sub

运行效果：

(6)vb求素数代码扩展阅读：

print用法

print(x,y)

等价于

import sys

sys.stdout.write(str(x)+''+str(y)+' ')

从语法上讲，调用python3.0的print函数有如下的形式：

print([object,...][,seq=''][,end=' '][,file=sys.stdout])

seq是在每个对象的文本之间插入一个字符串，如果没有桩底的话，它默认是一个单个空格，传递一个空字符串将会一直分隔符

end是添加在打印文本末尾的一个字符串，如果灭有传递的话，它默认的是一个换行字符。传递一个控制符串将会避免在打印的文本的末尾移动到下一个输入行-----下一个print将会保持添加到当前输出行的末尾。

file指定了文本将要发送到的文件、标准流或者其他类似文件的对象；如果没有传递的话，它默认的是sys.stdout。带有一个类似文件的write(string)方法的任何对象都可以传递，但真正的文件应该已经为了输出而打开。

Ⅶ Vb中求素数问题

那句话的意思是如果循环变量i超越终值x－1的时候就说明这个数是一个素数

Ⅷ 用vb找超级素数的代码怎么求啊

一个素数，依次从最高位去掉一位，两位……若得到的都是素数，且各数字不为0，则称为超级素数。

PrivateSubCommand1_Click()
DimnAsLong,issAsBoolean
n=Val(InputBox("输入要判断是否是超级素数的数："))
IfInStr(Str(n),"0")Then
MsgBox"此数不是超级素数！"
ExitSub
EndIf
Do
IfNotIsSuShu(n)Then
MsgBox"此数不是超级素数！"
ExitSub
EndIf
n=n10
LoopUntiln=0
MsgBox"此数是超级素数！"
EndSub
PrivateFunctionIsSuShu(nubAsLong)AsBoolean
DimiAsLong
Fori=2Tonub-1
If(nubModi)=0Then
IsSuShu=False
ExitFunction
EndIf
Nexti
IsSuShu=True
EndFunction

Ⅸ 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 Text1.Text + "是一个素数"
End Sub

Ⅹ VB求素数（代码意思）在线等

Private Sub Form_Click()
Dim t As Boolean //定义类型
For i = 101 To 200 Step 2 //从101开始间隔为2 ,下一个为103
t = Ture
For i = 2 To x - 1 //x,k应该是全局变量
If x Mod i = 0 Then t = False //如果能够被从2开始本身以外整除假
Next i //一直循环
If t Then
k = k + 1
Print x; //打印此数,累计数
If k Mod 10 = 0 Then Print 10个数字一换行
End If
Next x
End Sub

阅读全文

vb求素数代码

(6)vb求素数代码扩展阅读：

与vb求素数代码相关的阅读推荐