Private Sub Command2_Click() a = CLng(Text1.Text) i = 2 While i < a / 2 If a Mod i = 0 Then GoTo exitwhile i = i + 1 Wend MsgBox "是素数" Exit Subexitwhile: MsgBox "不是素数"End Sub广告：www.pianyiji.com
