vb题求指教若干个小球摆放成一个3棱锥体,共20层,最上面的一层有一个小球,第N层的小球比上一层多N个（N=2,3,.,20）,编写程序求这一堆小球的个数.

Question

vb题求指教
若干个小球摆放成一个3棱锥体,共20层,最上面的一层有一个小球,第N层的小球比上一层多N个（N=2,3,.,20）,编写程序求这一堆小球的个数.

Answer 1

在Visual Basic中,新建一个VB工程,并在窗体绘制一个按钮Command1,双击按钮,在代码编辑器窗口中,输入如下代码：
Private Sub Command1_Click()
Dim n As Integer '循环控制变量
Dim sum As Integer '这一堆小球的总数
Dim m As Integer '某一层小球的数目
m = 1
sum = 1
For n = 2 To 20
m = m + n
sum = sum + m
Next n
Print "sum="; sum
End Sub
最上面的一层只有一个球,则变量m的值为1,因为这时已经有一个小球了,所以sum的值为1,然后从2到20开始循环,用m=m+n得到第N层的小球数,加到总数sum中去.最后输出小数总数.