vb如何得到for循环中数组的差额?
请教各位大师,在for循环中循环取数得到的数组,能否同时得到前后两个数据的差额?代码:dim dl(8)
for i=1 to 9
code="000" & i & ""
dl(i)=data(code)
next i
我想在循环中得到dl(8)数组中前一个数和后一个数的的差额,请大师指点,不胜感激。
--------------------编程问答-------------------- dim dl(8)
for i=1 to 9
code="000" & i & ""
dl(i-1)=data(code)
if i>1 then debug.print dl(i-1)-dl(i-2)
next i
--------------------编程问答-------------------- 没看明白楼主表述的是什么意思,是否 If i > 1 Then Debug.Print dl(i) - dl(i - 1) ??? --------------------编程问答-------------------- 红字,否则,当i=9的时候会提示下标越界 --------------------编程问答--------------------
Private Sub Command1_Click()--------------------编程问答--------------------
Dim dl(8)
Dim dlT
For i = 1 To 9
code = "000" & i & ""
dl(i) = Data(code)
If i > 1 Then
Debug.Print dl(i) - dlT
End If
dlT = dl(i)
Next i
End Sub
笨了 Debug.Print dl(i) - dl(i-1)就可以了
--------------------编程问答--------------------
不过不知道楼主啥意思 --------------------编程问答-------------------- dim a(n),s(n)
你的意思该不会是想算a(1)和a(2)的差值吧……
虽然不太可能……还是写一下比较好
for i=1 to n
过程
s(i)=a(i-1)-a(i)
next
s(n)这个数组里就是前一个和后一个的差值了吧。思路吧 --------------------编程问答-------------------- 上面写错了,应该是
FOR I-2 TO N --------------------编程问答-------------------- 读了三遍,没有懂楼主的意思。。。 --------------------编程问答--------------------
同感 --------------------编程问答--------------------
差额就是 For 循环的步进长度啊!
补充:VB , 基础类