Question

求1道小学VB编程题目 谢谢

编写程序计算S=1+1+2+1+2+3+1+2+3+4+.......+N，当S>2000时，N的最小值和此时的S值
求这题的程序写法和计算结果 VB的 谢谢大家

Answer 1

Private Sub Form_Click()
Dim i%,j%,s%
i=1,j=0
Do while s<=2000
j=i+j
s=s+j
i=i+1
loop
Print "n=";i
print "s=";s
End sub
有点不记得了
大概是这样的
你自己调试一下哈！

Answer 2

Private Sub Form_Click()
m = 1
n = 0
Do
n = n + 1
If n > m Then
n = 1
m = m + 1
Print
End If
s = s + n
Print n;
Loop Until s > 2000
Print
Print s; n
End Sub

Answer 3

小学要考编程吗，这么牛逼的学校。我们连world都没教完