杭州交通信息网全蛋蒸蛋糕的家常做法:一个棘手的问题，谁能帮帮我～～～～～～～～～～
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 09:11:12
编写程序，计算并输出所有6位正整数中同时能被13和20整除的数的个数n及他们的立方根的和。 要用VB语言来编写
立方根的和……好大啊。得出的数程序会自动用科学记数法来写的。
Private Sub Command1_Click()
Dim i As Long, n As Long
Dim Sum As Double
For i = 100000 To 999999
If (i Mod 13 = 0) And (i Mod 20 = 0) Then
n = n + 1
Sum = Sum + i ^ 3
End If
Next
MsgBox "个数为：" & n & "立方根的和为：" & Sum
End Sub
Mod
VB没怎么用过，不知道VB和VC差别大不大。但如果用VC应该是很简单的，用循环就可以解决问题了，在100000到999999这些数中，判断同时可以对13和20取余等于0的数，每判断到一个，n++；循环结束后n的值就是要的值。求立方根和再设几个变量就可以了。
FOR N=100000 TO 999999
IF INT(N/13)=N/13 THEN
IF INT(N/20)=N/20 THEN
R=R+1
HJ=HJ+N*N*N
END IF
END IF
NEXT
R是能被13和20整除的数的个数 HJ立方和