UC知道帮忙看一下吧，在线等，有关于vb
来源：百度知道 编辑：UC知道 时间：2024/06/07 04:22:54
本意是要把100到200内的素数和求出来然后输入在textbox里面。以下是我的代码：Private Sub Command1_Click()
For i = 101 To 200 Step 2
For j = 2 To (i - 1)
If i Mod j = 0 Then
n = n + 1
Exit For
End If
Next j
If n = 0 Then
s = s + i
End If
Next i
Print s
Text1.Text = Str(s)
End Sub
单击command后，显示的是：204
后来我把代码第二行改为step 1，结果成了101。。
无语。。。按理说不会有差别才对啊
谢谢
因为是要把素数给找出来，偶数就不用判断了阿
For i = 101 To 200 Step 2
For j = 2 To (i - 1)
If i Mod j = 0 Then
n = n + 1
Exit For
End If
Next j
If n = 0 Then
s = s + i
End If
Next i
Print s
Text1.Text = Str(s)
End Sub
单击command后，显示的是：204
后来我把代码第二行改为step 1，结果成了101。。
无语。。。按理说不会有差别才对啊
谢谢
因为是要把素数给找出来，偶数就不用判断了阿
Private Sub Command1_Click()
For i = 101 To 200 Step 1
For j = 2 To (i - 1)
If i Mod j = 0 Then
n = n + 1
Exit For
End If
Next j
If n = 0 Then
s = s + i
End If
n = 0
Next i
Print s
Text1.Text = Str(s)
End Sub
在s=s+i后需要把N清0
结果是3167
step2 和step1差很远啊，step2的话，你少判断很多数
你的n在哪儿清零呢？
n改成boolean值吧，n=n+1改成n=false,end if之后加上n=true