在窗体上输出100~200之间的所有合数。

来源：百度知道 编辑：UC知道 时间：2024/07/01 03:24:52
(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM中

Function IsPrime(N As Integer) As Boolean
IsPrime = True
For i = 2 To N
If N Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next
End Function

Private Sub Form_Click()
Dim i As Integer, sum As Integer
For i = 100 To 200
If IsPrime(i) = False Then
sum = sum + i
End If
Next
Print sum
End Sub

楼上错了。
Private Function IsPrime(N As Integer) As Boolean
IsPrime = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next
End Function

Private Sub Form_Click()
Dim i As Integer, sum As Integer, j As Integer
cls
For i = 100 To 200
If IsPrime(i) = False Then
sum = sum + i
j = j + 1
Print i;
If j Mod 6 = 0 Then Print
End If
Next
Print
Print "和为："; sum<