對於p=101到val(text1.text)
如果p mod 10=9且_
p mod 9=8和_
p mod 8=7和_
p mod 7=6和_
p mod 6=5且_
p mod 5=4且_
p mod 4=3且_
p mod 3=2且_
那麽p mod 2=1
i=i+1
如果…就會結束
然後
打印I
誰說是QB了？說QB也沒錯，因為VB代碼和QB有相當的共同點。
用VB:妳新建壹個EXE文檔，在設計界面放壹個文本框控件(用來輸入妳想要的最大數)，然後放壹個命令按鈕，在按鈕的click事件中添加上面的代碼。運行後，在文本框中輸入15000 (if)，按下按鈕，表格上將顯示100-15000之間的* * *數。