比如说：   
       单价         数量
        2.00         10
        2.50         15
         。           。
         。           。
         。           。
请问：（2.00*10）+（2.5*15）。。。
       －－－－－－－－－－－－－
             10+15+。。。。
我想在窗体的数据表下设一个标签，显示以上结果，笔数不能确定，不知这个平均价的公式怎么写。

单价 数量 分别读入两个数组  a()   b()   
for i= 0 to ubound(a)
    sum=sum + a(i)* b(i)
    num=num + b(i)
next
avr=sum/num

[[it] 本帖最后由 simpson 于 2008-7-18 13:58 编辑 [/it]]

完整的应该是这样的：
同意楼上，把数量和单价分别放一个数组
   dim sum  as  float = 0
 dim   avr  as  float
   do
    { sum+= b(i) * a(i)
      i+=1
      num+= a(i)
    }
   loop while (i<10^10)
avr=sum/num

应该是
for i= 0 to ubound(a)
    sum=sum + a(i)* b(i)
    num1=num1 + b(i)
next
avr=sum/num1
不然你的avr始终都是1啦

为什么是avr而不是ave？