编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/13 10:41:08

编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能
被5整除的和sum3

参考一下我的：

Option Explicit

Private Sub Command1_Click()
Dim i As Integer,n As Integer,nRand As Integer
Dim sum1 As Integer,sum2 As Integer,sum3 As Integer

n = 0
sum1 = 0
sum2 = 0
sum3 = 0

Randomize

For i = 1 To 50
nRand = CInt(90 * Rnd + 10)

n = n + 1
If n > 10 Then
n = 1
Print
End If
Print nRand;

If nRand Mod 3 = 0 Then
sum1 = sum1 + nRand
End If
If nRand Mod 5 = 0 Then
sum2 = sum2 + nRand
End If
If nRand Mod 3 = 0 And nRand Mod 5 = 0 Then
sum3 = sum3 + nRand
End If
Next

Print
Print
Print "sum1:",sum1
Print "sum2:",sum2
Print "sum3:",sum3
End Su

编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能编写程序,输出1-1000之间能被3和7整除的数,并统计其个数用VFP编写程序计算1_100之间能被3整除的数的和编写c++程序,计算1000以内能被3整除的整数和并输出 6,编写程序求100~200以内能被3和5整除的数,并求其和编写一个程序,输出0,n之间(包含0,n)既能被7又能被3和5整除的所有整数 100与200间能被3整除又能被7整除的数的和编写程序,统计个位数是6,并且能被3整除的5位数共有多少个. 编写程序,求出1-500中所有能被7整除的数的和? 编写程序 5000之间能被17和37整除的数的个数编写程序计算1000到5000之间能被3整除但不能被13整除的所有整数的和 500中既不能被2和3整除,又不能被7整除的数,有多少个?