用vb编程:输出100-200之间的所有素数,并将这些数求和,求出结果存入所给变量su
答案:1 悬赏:60
解决时间 2021-02-22 01:51
- 提问者网友:蔚蓝的太阳
- 2021-02-21 22:53
用vb编程:输出100-200之间的所有素数,并将这些数求和,求出结果存入所给变量su
最佳答案
- 二级知识专家网友:何以畏孤独
- 2021-02-21 23:34
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, su As Integer
For i = 100 To 300
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
Exit For
End If
Next
If j > Int(Sqr(i)) Then
su = su + i
If k Mod 10 = 0 Then Print
Print Format(i, "@@@@");
k = k + 1
End If
Next
MsgBox su
End Sub
Dim i As Integer, j As Integer, k As Integer, su As Integer
For i = 100 To 300
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
Exit For
End If
Next
If j > Int(Sqr(i)) Then
su = su + i
If k Mod 10 = 0 Then Print
Print Format(i, "@@@@");
k = k + 1
End If
Next
MsgBox su
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯