vb编写程序求100到300之间的所有素数PrivateSubCommand1_Click()DimiAsLongFori=200To300Ifsu(i)=TrueThen'分析200-300区间所有的数是否为素数List1.AddItemi'如果是素数就添加到List1中EndIfNextEndSubPrivateSubForm_Load()Command1.Caption="求素数"EndSubPrivateFunctionsu(sNumAsLong)AsBoolean'求素数su=TrueFori=2TosNum-1IfsNumModi=0Thensu=FalseExitFunctionEndIfNextEndFunction