作业帮 > 数学 > 作业

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

来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/07/17 22:09:40
编写程序,随机生成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整除的数,有多少个?