当前位置：搜档网 › for each。。next循环

for each。。next循环

For Each...next语句

语法：
For Each 变量 in 数组名
语句序列
Exit for
语句序列
Next [变量]

功能:变量每取数组中的一个元素，就执行一次循环体。

说明：变量必须定义成Variant类型

例：

dim score(1 to 45) as single
dim i as integer
dim s as variant
for i=1 to 45
score(i)=inputbox("")
next i
for each s in score
select case s
...
...
end select
next s

作业从键盘输入5个数，求和。(用数组和For Each...next语句来实现）

dim a(1 to 5) as integer
dim i as integer
dim sum as integer
dim s as variant
sum=0
for i=1 to 5
a(i)=inputbox("")
next i
for each s in a
sum=sum+s
next s
print sum

for each。。next循环

相关文档

最新文档