command1？在下添加以下代碼:
下面是用for循環實現的:
私人？Sub？Command1_Click()
暗淡？壹、？我？作為？長的
答？=?Val(Text1。正文)
我？=?2
為了什麽？我？=?2?去哪？答？-?1
如果？(a？Mod？我)？=?0?然後
打印？答？& amp？“這不是質數。”
退出？為
埃爾瑟夫？我？=?答？-?1?然後
打印？答？& amp？"這是壹個質數。"
結束？如果
下壹個？我
結束？潛水艇
這是通過使用while循環實現的:
私人？Sub？Command1_Click()
暗淡？壹、？我？作為？整數
答？=?Val(Text1。正文)
我？=?2
什麽時候？2?& lt=?我？然後呢。我？& lt=?答？-?1
如果？(a？Mod？我)？=?0?然後
打印？答？& amp？“這不是質數。”
退出？潛水艇
埃爾瑟夫？我？=?答？-?1?然後
打印？答？& amp？"這是壹個質數。"
結束？如果
我？=?我？+?1
行
結束？潛水艇
我希望我能幫助妳，-