Question

VB菜鸟求教

有道练习题，题目是：在窗体上有一个命令按钮和一个文本框，程序运行后，单击命令按钮，即可计算出[0,100]范围内所有偶数的平方和，并在文本框中显示出来。
我编写的代码是：
Private Sub Command1_Click()
Dim i%, s%
s = 0
For i = 2 To 100 Step 2
s = s + i ^ 2
Next i
Text1.Text = s
End Sub
每次运行都说是“s = s + i ^ 2”这句代码错了，但我不知道错在哪里，请高手指教

Answer 1

是因为你定义的变量不对。
[0，100]范围内所有偶数的平方和为171700，而你所定义的i、s都是整型，最大只能到32767，所以S就会溢出出错。
只要修改S变量的数据类型就可以。比如：
Dim i%, s&
或者定义其他的类型，甚至不定义都可以。

Answer 2

那个s不应为整形，改为double就ok了

Answer 3

数值型的数据，值的范围可以学习一下。

Answer 4

Private Sub Command1_Click()
Dim i%, s&
s = 0
For i = 2 To 100 Step 2
s = s + i ^ 2
Next i
Text1.Text = s
End Sub

S的值超过了整型的范围，所以应定义为长整型。