编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能被5整除的和sum3
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 03:07:18
![编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能被5整除的和sum3](/uploads/image/z/3960099-27-9.jpg?t=%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%9050%E4%B8%AA%E4%B8%A4%E4%BD%8D%E6%95%B0%2C%E7%BB%9F%E8%AE%A1%E5%85%B6%E4%B8%AD%E8%83%BD%E8%A2%AB3%E7%9A%84%E6%95%B4%E9%99%A4%E7%9A%84%E5%92%8Csum1%2C%E5%92%8C%E8%83%BD%E8%A2%AB5%E6%95%B4%E9%99%A4%E7%9A%84%E5%92%8Csum2%2C%E5%92%8C%E6%97%A2%E8%83%BD%E8%A2%AB3%E6%95%B4%E9%99%A4%E5%8F%88%E8%83%BD%E8%A2%AB5%E6%95%B4%E9%99%A4%E7%9A%84%E5%92%8Csum3)
编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能被5整除的和sum3
编写程序,随机生成50个两位数,统计其中能被3的整除的和sum1,和能被5整除的和sum2,和既能被3整除又能
被5整除的和sum3
编写程序,随机生成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 Sub