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

運行效果：

擴展資料：

print用法

print(x,y)

等價於

import sys

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

從語法上講，調用python3.0的print函數有如下的形式：

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

seq是在每個對象的文本之間插入壹個字符串，如果沒有樁底的話，它默認是壹個單個空格，傳遞壹個空字符串將會壹直分隔符

end是添加在打印文本末尾的壹個字符串，如果滅有傳遞的話，它默認的是壹個\n換行字符。傳遞壹個控制符串將會避免在打印的文本的末尾移動到下壹個輸入行-----下壹個print將會保持添加到當前輸出行的末尾。

file指定了文本將要發送到的文件、標準流或者其他類似文件的對象；如果沒有傳遞的話，它默認的是sys.stdout。帶有壹個類似文件的write(string)方法的任何對象都可以傳遞，但真正的文件應該已經為了輸出而打開。