VB中如何做到循环引用一行数据n次（引用时数据随机在这行数据 *（0.999~1.01）之间波动），然后按照同样的方式继续引用下一行数据N次！
    数据1    11    12    13    14    15    16    17   
    数据2    16    13    10    7    4    1    6   
                                    系数
结果    数据1*3次11.11    12.12    13.13    14.14    15.15    16.16    17.17    1.01
         10.989    11.988    12.987    13.986    14.985    15.984    16.983    0.999
         10.997811.9976    12.9974    13.9972    14.997    15.9968    16.9966    0.9998
    数据2*3次16.16    13.13    10.1    7.07    4.04    1.01    6.06   
         15.984    12.987    9.99    6.993    3.996    0.999    5.994   
         15.996812.9974    9.998    6.9986    3.9992    0.9998    5.9988

没看明白
结果    数据1*3次11.11    12.12    13.13    14.14    15.15    16.16    17.17    1.01
         10.989    11.988    12.987    13.986    14.985    15.984    16.983    0.999
         10.997811.9976    12.9974    13.9972    14.997    15.9968    16.9966    0.9998
    数据2*3次16.16    13.13    10.1    7.07    4.04    1.01    6.06   
         15.984    12.987    9.99    6.993    3.996    0.999    5.994   
         15.996812.9974    9.998    6.9986    3.9992    0.9998    5.9988
第一行红色的数看出一点规律.原数是x,f(x)=x+x/100 但1.01及以后数字是如何得到?
第二行红色的数似乎也是这个规律

我也没看懂。

初步理解，楼主要把每次计算的结果保存起来，然后根据要求去引用。
可以使用一个结构来保存。

结构里为一个一个的数组，每一个数组为一行。总行数固定，每行元素数不固定。
如果 每行元素数固定的，那就使用 二维数组吧。

我估计他意思是1.01、0.999、0.9998是3次的随机数

数据1：11      12      13      14      15      16      17
数据2：16      13      10       7       4       1       6

执行后结果是
第1次 随机数 1.01
数据1：11.11    12.12    13.13    14.14    15.15    16.16    17.17
数据2：16.16    13.13    10.10     7.07     4.04     1.01     6.06
第2次 随机数 0.999
数据1：10.989   11.988   12.987   13.986   14.985   15.984   16.983
数据2：15.984   12.987    9.99     6.993    3.996    0.999    5.994
第3次 随机数 0.9998
数据1：10.9978  11.9976  12.9974  13.9972  14.997   15.9968  16.9966
数据2：15.9968  12.9974   9.998    6.9986   3.9992   0.9998   5.9988

用嵌套循环就可以了

代码如下：

dim g1(),g2() as Variant
g1()=Array(11,12,13,14,15,16,17)
g2()=Array(16,13,10,7,4,1,6)

dim d as Double    '随机数
dim n as integer   '循环次数
dim i,j as integer
dim Ud as Double   '随机数值上限
dim Ld as Double   '随机数值下限

n = 3
Ud = 1.01
Ld = 0.999
For i = 1 To n
    d = Ld + Rnd() & ( Ud - Ld )
    Print
    Print "第 " & i & " 次：随机数为 " & d

    Print "数据1："
    For j = 0 To UBound(g1)
        Print Tab(15 * j); Format(g1(j) * d, "0.000000");
    Next
    Print

    Print "数据2："
    For j = 0 To UBound(g2)
        Print Tab(15 * j); Format(g2(j) * d, "0.000000");
    Next
    Print
Next