vb大神帮忙，2到100的素数，要求10个数字一行，下面的4条横线怎么填？
图为：23571113……29313741……717379838997PrivateSubCommand1_Click()DimiAsInteger,xAsInteger...
图为：2 3 5 7 11 13 …… 29
31 37 41 …… 71
73 79 83 89 97
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For x = 2 To ——————
For i = 2 To x - 1
If x Mod i = 0 Then _________
Next i
If ____________ Then
n = n + 1
Print x;
If —————— Then Print
End If
Next x
End Sub 展开
31 37 41 …… 71
73 79 83 89 97
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For x = 2 To ——————
For i = 2 To x - 1
If x Mod i = 0 Then _________
Next i
If ____________ Then
n = n + 1
Print x;
If —————— Then Print
End If
Next x
End Sub 展开
1个回答
展开全部
For x = 2 To ——100——
For i = 2 To x - 1
If x Mod i = 0 Then _Exit For__
Next i
If __i=x_ Then
n = n + 1
Print x;
If —n mod 10=0— Then Print
For i = 2 To x - 1
If x Mod i = 0 Then _Exit For__
Next i
If __i=x_ Then
n = n + 1
Print x;
If —n mod 10=0— Then Print
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
