365文库
登录
注册
福利来袭，限时免费在线编辑
转Pdf
下载我编辑的
下载原始文档
收藏
Echo
上传于：2024-05-24
129：单击窗体。求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中
Dim j As Integer
Dim k As Integer
Dim b As Integer
b = False
For i = 2 To 100
b = False
j = Int(Sqr(i))
For k = 2 To j
If i Mod k = 0 Then
b = True
End If
Next
If b = False Then
Sum = Sum + i
End If
Next
Print Sum
130:求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中
Dim i As Integer
For i = 201 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then
Print i
Sum = Sum + i
End If
Next
Print Sum
131