求VB程序设计：求出100-200之间的所有素数
1个回答
展开全部
Private Sub Form_Load() Me.AutoRedraw = True Dim m For i = 100 To 200 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i;: m = m + 1: If m Mod 8 = 0 Then Print Next i End Sub
采纳哦
采纳哦
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
