一个关于数组赋值的问题,谢谢.

Question

要求,我给一个变量.例:date_r
这个变量是的类型是数字,正整数
我要一个数组.例:price_r(这里什么都行)
只要这个数组的值的个数等于date_r
数组的值等于
price_r(date_r-1)
......
一直到0

Answer 1

？？？？？？
你是不是想这样？？？：ReDim 语句示例
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。Dim MyArray() As Integer   '声明动态数组。
Redim MyArray(5)   '分配 5 个元素。
For I = 1 To 5   '循环 5 次。
   MyArray(I) = I   '初始化数组。
Next I下一条语句重定义该数组的大小，并清除其中的元素。Redim MyArray(10)   '大小重定为 10 个元素。
For I = 1 To 10   '循环 10 次。
   MyArray(I) = I   '初始化数组。
Next I下面的语句重定义该数组的大小，但没有清除其中的元素。Redim Preserve MyArray(15)   '大小重定为 15 个元素。

Answer 2

我明白他的意思了，他就是想用date_r来控制数组的大小，来形成动态数组，循环price_r(date_r-1)直到price_r(0)
例如：date_r＝5
那么：price_r(4)
     price_r(3)
     price_r(2)
     price_r(1)
     price_r(0)
楼主是这意思吧？

Answer 3

Redim Preserve price_r(date_r)
for i=0 to date_r
  price_r(i)=i*2  '赋值
next i

Answer 4

admi_zb (吉它) ，可以说明白些吗？

Answer 5

谢谢搞定了,dim i
redim price_r(date_r)
for i=0 to date_r
price_r(i) =date_r-i
Next

Answer 6

dim 数组名(变量) 这个方法好像是行不通的！！

Answer 7

新的问题出现.谢谢,帮个忙,
我的这个年份和月份是要用来和数据库计算的不是单纯的用来显示
我要这个算数据库里的这一年这一月的一个价格字段的平均值来的.
例,
表名wawfi
字段名:date price
date           price
2005-01-02     100
2005-01-06     40
2005-01-09     60
2006-01-09     100
我要算出来的是2005年1月份的price的值为66.6

Answer 8

select sum(price)/月分天数 where date =月分

Answer 9

select sum(price)/月分天数 where date =月分
哥哥玩我呢,