Question

VB程序中关于循环语句：“FOR”的使用

第一个问题：
Q1：
FOR的结构：
For a to b Step c
XXX
Next a
请问这上面的a,b,c都是什么意思？请拿下面的例题一给我做解释，谢谢！
例题1：
s=1+2+3+.....+n
求前n项的和
用Loop语句如下：
n=Inputbox("n=")
i=0
s=0
Do While i<=n
i=i+1
s=s+i
Loop
Print s
问题2 ：如果用 For 语句怎么做？？？？

问题3 ：输入10个数字，去除一个最高，去除一个最低，输出除去最高最低分后的8个分数的平均数。
用 For 怎么做？

Answer 1

a是循环变量，b是初始值，c是步进数，即每循环一次a的值的变化量。
n=Inputbox("n=")
i=0
s=0
For i =0 to n
i=i+1
s=s+i
Next i
Print s

Private Sub Command1_Click()
Dim i As Integer
Dim a(0 to 9)
Dim b '最大值
Dim c '最小值
Dim s '和
Dim d '平均值
b = 0
c = 0
s = 0
For i = 0 to 9
a(i)=inputbox("输入数字")
If b < a(i) Then b = a(i)
If c > a(i) Then c = a(i)
s = s + a(i)
Next i
s = s - b - c
d = s / 8
Print d
End Sub

Answer 2

a表示for循环的初始值，b是最终值，c是步长。你可以百度查vb for的使用就可以，很多的。

下边的例子就是求和的，改成for
s=0
for i=0 to n step 1
i=i+1
s=s+i
next
Print s

Answer 3

问题1、
For a to b Step c
XXX
Next a
a是起始值，b是终止值，c是步长，即每次递增的量。

问题2、
n = InputBox("n=")
For i = 1 To n
s = s + i
Next i
Print s

问题3
For i = 1 To 10
a(i) = InputBox("a(i)=")
Next i

'从小到大进行排序，然后去除头尾。
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
x = a(i)
a(i) = a(j)
a(j) = x
End If
Next j
Next i

For i = 2 To 9
y = y + a(i)
Next i
y = y / 8
Print y

所有变量未详细定义，写出了过程。