当前位置:编程学习 > VB >>

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
--------------------编程问答--------------------
引用 4 楼 jjhhgg1111 的回复:
VB code
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.P……


笨了 Debug.Print dl(i) - dl(i-1)就可以了


--------------------编程问答--------------------
引用 3 楼 yiguangqiang88 的回复:
红字,否则,当i=9的时候会提示下标越界

不过不知道楼主啥意思 --------------------编程问答-------------------- 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 --------------------编程问答-------------------- 读了三遍,没有懂楼主的意思。。。 --------------------编程问答--------------------
引用 9 楼 veron_04 的回复:
读了三遍,没有懂楼主的意思。。。

同感 --------------------编程问答--------------------
差额就是 For 循环的步进长度啊!
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,