| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 489 人关注过本帖
标题:新手求指点:VB中如何做到循环引用一行数据n次(引用时数据随机在 *(0.999 ...
只看楼主 加入收藏
liujun101
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-6-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
新手求指点:VB中如何做到循环引用一行数据n次(引用时数据随机在 *(0.999~1.01)之间波动,然后按照同样的方式继续引用下一行数据N次!
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
搜索更多相关主题的帖子: 如何 
2015-06-07 10:56
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:7 
没看明白
结果    数据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及以后数字是如何得到?
第二行红色的数似乎也是这个规律

大开眼界
2015-06-08 08:42
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
我也没看懂。

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

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

授人于鱼,不如授人于渔
早已停用QQ了
2015-06-08 10:40
heizu
Rank: 1
等 级:新手上路
帖 子:2
专家分:7
注 册:2015-6-12
收藏
得分:7 
我估计他意思是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
2015-06-12 12:31
快速回复:新手求指点:VB中如何做到循环引用一行数据n次(引用时数据随机在 *( ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034970 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved