Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next i End Sub
by: 发表于:2017-11-27 11:31:48 顶(0) | 踩(0) 回复
??
by: 发表于:2017-11-27 11:31:48 顶(0) | 踩(0) 回复
??
回复评论