當前位置：首頁 » 網站代碼 » 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求素數代碼相關的閱讀推薦