【VB】vb各種求1-100內(nèi)的素?cái)?shù)
作者: 鄭曉 分類: 編程基礎(chǔ) 發(fā)布于: 2011-08-08 23:46 瀏覽：52,836 評(píng)論(12)
2021.02.18 經(jīng)批評(píng)，原提供的幾段代碼有錯(cuò)誤，本人其實(shí)對(duì)VB也不了解。
以下是回復(fù)中更正的代碼：
Private Sub Form_Click()
?For i = 1 To 100 Step 1
???? p = 0
?? For j = 2 To Sqr(i) Step 1
???? If i Mod j = 0 Then
?????? p = 1
???? End If
?? Next j
?? If p = 0 Then
???? Print i;
?? End If
Next i
End Sub
? ? ? ?
本文采用知識(shí)共享署名-非商業(yè)性使用 3.0 中國大陸許可協(xié)議進(jìn)行許可，轉(zhuǎn)載時(shí)請注明出處及相應(yīng)鏈接。
本文永久鏈接: http://m.yjfs.org.cn/vb-vb-1-100-of-the-prime-requirements.html
哈哈：
Private Sub Form_Click()
For i = 1 To 100 Step 1
p = 0
For j = 2 To Sqr(i) Step 1
If i Mod j = 0 Then
p = 1
End If
Next j
If p = 0 Then
Print i;
End If
Next i
End Sub
感謝指正，N年前的代碼了，當(dāng)時(shí)對(duì)VB也不太了解
嗯