很簡單的程序。。。新建一個工程From1上添加一個List1,用來顯示素數添加一個Command1,用來操作代碼如下：

PrivateSubCommand1_Click()DimiAsLongFori=200To300Ifsu(i)=TrueThen'分析200-300區間所有的數是否為素數List1.AddItemi'如果是素數就添加到List1中EndIfNextEndSubPrivateSubForm_Load()Command1.Caption="求素數"EndSubPrivateFunctionsu(sNumAsLong)AsBoolean'求素數su=TrueFori=2TosNum-1IfsNumModi=0Thensu=FalseExitFunctionEndIfNextEndFunction