有收床垫的吗:用VB编写:循环语句的应用 求1到10000的平方和,去掉7和13的倍数
来源:百度文库 编辑:中科新闻网 时间:2024/05/22 02:19:40
1楼那套程序,总是提醒我有语法错误或者是什么溢出,这是怎么回事啊?
Dim i As Integer
Dim ii As Integer
Dim n As Double
n = 0
ii = 0
For i = 1 To 10000
ii = i * i
If ii Mod 7 <> 0 And ii Mod 13 <> 0 Then
n = ii + n
End If
Next
Return n