【VB求素数PrivateSubCommand1_Click()ForI=2To100'循环引用100至200之间的所有整数ForJ=2ToI-1'根据素数的定义,循环引用从2开始到整数I之前的所有整数进行判断IfIModJ=0Then'如果I能够被J整除】
VB求素数
PrivateSubCommand1_Click()
ForI=2To100'循环引用100至200之间的所有整数
ForJ=2ToI-1'根据素数的定义,循环引用从2开始到整数I之前的所有整数进行判断
IfIModJ=0Then'如果I能够被J整除,说明I不是素数
ExitFor'退出循环
EndIf
NextJ
IfJ=IThen'如果J=I,说明I不能被从2开始到整数I之前的所有整数整除,即I是素数
PrintI;
EndIf
NextI
EndSub
上面代码中的“IfJ=IThen'如果J=I,说明I不能被从2开始到整数I之前的所有整数整除,即I是素数”