汽车如何过琼州海峡:vb小程序.输出1-100的质数..怎么写啊
来源:百度文库 编辑:高考问答 时间:2024/05/23 23:11:28
是质数,,,不是奇数啊.....二楼的
Private Sub Command1_Click()
For i = 1 To 100
k = 1
For j = 2 To i / 2
If i Mod j = 0 Then k = 0
Next j
If k = 1 Then Print i
Next i
End Sub
private sub form_load()
for i = 1 to 100
if (i/2)<>fix(i/2) then print i
next i
end sub