江湖救急，在线等答案，VB的上机题

这个很有趣
其实不用他说的那么麻烦，用等差数列求和公式

100除以5 求余数，如果为零就直接取
n = 100
1+2+3+...+n = n(n+1)/2
5(1+2+3+...+n) = 5+10+15+...+5n = 5n(n+1)/2
所以
5n = 100
n = 20
那你只需要以下代码

-----------------------------------
dim total as integer
dim subVal as integer
dim n as integer
dim sum as integer

total = 100
subVal = CInt(textbox1.text)
'这个textbox里是你输入的那个5或者7，当然你可以让它为定值，那就直接给subVal赋值就行了
n = total \ subVal
while n * subVal > total
n -= 1
End While

sum = subVal * n * (n + 1) / 2
textbox2.text = sum
'这个textbox里显示你的答案
-------------------------------------

这是我可以想到的最简单的方法了，省去了循环带来的内存占用和延迟
我没有6.0要不就帮你做了

Private Sub Form_Click()
Dim I As Integer
Dim S1, S2, S3 As Integer
Form1.Cls

For I = 1 To 100
If I Mod 5 = 0 Then
Print I;
S1 = S1 + I
End If
Next I