Question

编写一个循环结构的程序，使之能计算下面各算式：. 1+2+3…+99+100=? 1+3+6+9+…+297+300=?

请哪位好心人帮帮忙啊！ 我等着急用呢！请尽快告诉我答案吧 ，在这里谢谢你们啦

Answer 1

FOR…NEXT语句
FOR…NEXT的语句格式为：
FOR <循环变量>=<初值> TO <终值> STEP <步长>
<循环体>
NEXT <循环变量>
For…Next语句运行的流程如图3-6.2所示。
图3-6.2 循环结构程序流程图
例如，下面是一个求1+2+3+…+99+100的简单程序：
Dim counter,nSum
nSum=0
For counter=1 to 100 Step 1
nSum = nSum + counter
Next counter
程序运行的结果是，变量nSum的值变为5050，变量counter的值变为101.
FOR与NEXT是一对语句，必须成对出现，循环变量用于控制循环体的循环，循环的次数由初值、终值与步长决定。整个循环的过程如下：
①、 把初值赋给循环变量
②、 判断循环变量是否超过终值，如果超过则执行第⑥步，否则执行第③步
③、 执行循环体
④、 循环变量加上步长再赋值给循环变量
⑤、 重复执行第②步
⑥、 离开循环，继续执行循环语句后面的语句

下面就利用For…Next语句来制作飞机飞行的程序，操作步骤如下：
步骤1：新建一个工程。
步骤2：在窗体上新建一个Image控件，用于显示飞机，名称为Image1。
步骤3：在窗体上新建三个CommandButton控件，将它们的Caption属性分别改为“复位”、“起飞”、“退出”。
步骤4：编写程序代码。
对“起飞”按钮Command2的Click事件编写如下代码：
Private Sub Command2_Click()
For i = 1 To 3300
For j = 1 To 50000
Next
nLeft = nLeft + 2
nTop = nTop + 1
Image1.Left = nLeft
Image1.Top = nTop
Next
End Sub
在上面的程序中，使用了如下语句：
For j = 1 To 50000
Next
它的作用是控制飞机的飞行速度。将循环的终值减小，飞机就飞得快；增大，飞机就飞得慢。
在循环语句中执行 Exit For 语句，可以退出循环，使程序跳到Next之后的语句继续执行