Private Sub Command1_Click() n = Val(Text1.Text) For j = 2 To n - 1 If n Mod j = 0 Then Exit For Next j If j > n - 1 Then Print "是素数" Else Print "不是素数" End Sub
by: 发表于:2017-11-27 11:31:54 顶(0) | 踩(0) 回复
??
by: 发表于:2017-11-27 11:31:54 顶(0) | 踩(0) 回复
??
回复评论