VB 中求100 到200之间的素数

这是我写的代码,不知哪有错,就是输不出来。PrivateSubCommand1_Click()Dima,bAsIntegerFora=100To200Forb=2Toa-... 这是我写的代码,不知哪有错,就是输不出来。
Private Sub Command1_Click()
Dim a, b As Integer
For a = 100 To 200
For b = 2 To a - 1
If a Mod b = 0 Then
Exit For
end if
Next b
Next a

For a = 100 To 200
If b >= a Then
Print a
End If
Next a
End Sub
别复制我的啊``
展开
 我来答
百度网友32561a7
推荐于2017-05-26 · TA获得超过2283个赞
知道小有建树答主
回答量:206
采纳率:100%
帮助的人:176万
展开全部
你的程序只是判断到素数就跳出循环,就然无法求100 到200之间的素数。应该加上打印语句。

For i = 101 To 200
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
Next j
If j = i Then Print i;
Next i

另外,你的素数判断标准并不见得高明,如果要求到10000之间的话,就要较长的时间了。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
fdfun
2008-06-08 · TA获得超过950个赞
知道小有建树答主
回答量:1139
采纳率:0%
帮助的人:924万
展开全部
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer

For a = 100 To 200
For b = 2 To a - 1
If a Mod b = 0 Then
Exit For
end if
Next
Next

For a = 100 To 200
If b >= a Then
Print a
End If
Next
End Sub
定义的问题
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友33d12fa
2018-05-09
知道答主
回答量:9
采纳率:0%
帮助的人:7053
展开全部
Dim sum %,i%,j%,flag%
for i=100 to200
flag = 1
For j=2 to i-1
IF i mod j =0 then
Flag=0
Exit for
End if
Next j
if flag =1 then
Sum =sum +1
End IF
Next i
Text1.text =sum
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式