求100-999之间的所有素数,并在窗体上输出
要求:自定义一个过程判断一个数是否是素数
(答案正确追加30以上)
Vb编程：求100-999之间的所有素数
答案:2 悬赏:30
解决时间 2021-04-28 02:10
- 提问者网友：单纯说谎家
- 2021-04-27 10:16
最佳答案
- 二级知识专家网友：废途浑身病态
- 2021-04-27 11:41
Private Sub Command1_Click()
For i = 100 To 999
If IsPrime(i) Then
n = n + 1
Print i;
If n Mod 10 = 0 Then Print
End If
Next i
End Sub
Public Function IsPrime(ByVal num As Long) As Boolean
Dim m As Long
m = Sqr(num)
IsPrime = True
For i = 2 To m
If num Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
End Function
For i = 100 To 999
If IsPrime(i) Then
n = n + 1
Print i;
If n Mod 10 = 0 Then Print
End If
Next i
End Sub
Public Function IsPrime(ByVal num As Long) As Boolean
Dim m As Long
m = Sqr(num)
IsPrime = True
For i = 2 To m
If num Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
End Function
全部回答
- 1楼网友：苦柚恕我颓废
- 2021-04-27 11:53
private sub command2_click() for i = 1 to 100 if prime(i) then print i next end sub
public function prime(byval m as integer) as boolean '鍒ゆ柇m鏄惁涓虹礌鏁? dim b as boolean dim i as integer b = true for i = 2 to sqr(m) if m mod i = 0 then b = false exit for end if next i prime = b end function
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯