VB过程数组问题?求解析
发布网友
发布时间：2023-08-08 10:25
共1个回答
热心网友
时间：2023-09-22 10:30
Dim a()
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 这里是定义了一个数组
Print myfun(a, 4, 9) 这里调用了下面的一个函数
End Sub
Function myfun(x(), y As Integer, z As Integer) 这里是函数的定义
Dim s%
Do While y <= z 这里进行一个循环 条件是 Y<=Z
s = s + x(y) 给S赋值 应该是函数中的 第Y个函数累加
y = y + 1 这里该变Y的值
Loop
myfun = s 返回累加后的值
End Function
这个整个的意思是 传入一个数组 在传入2个数字 代表数组中2个位置
函数主要是 查找 第X到第Y中间的元素进行累加
然后然会累加后的结果
