UC知道vb随机数计算及数组问题？
来源：百度知道 编辑：UC知道 时间：2024/05/27 08:25:11
我有三个文本框，text1（数值1），text2（数值2），label1(误差)，text3（误差波动值）。
根据
误差=（数值1-数值2）/（数值2）*100%
误差波动值：意思是计算后的误差应在误差波动值的0.7到误差波动值之间。
现在已知数值2及误差波动值，按随机生成法，让其随机出现数值1，并自动计算误差，如果符合误差波动值的范围，数值1即显示到text1中，否则重新生成。
我有用VB做过do...loop until，不过我在loop until a<b and a>b*0.7
以上这句，如果b为常量就能成功，如果为变量程序就出错。？？
如果有12个text1,12个text2，如何用数组形式重复计算以上数据呢？
再问下： for j= 0 to 11,for k= 0 to 3,
j循环3次后，k+1，数据如下：
0,0；0,1；0,2；1,3；,1,4；1,5......3,9；3,10；3,11
第三位兄弟说的循环44次啊，我只要循环12次，我感觉像是一个二维数组
根据
误差=（数值1-数值2）/（数值2）*100%
误差波动值：意思是计算后的误差应在误差波动值的0.7到误差波动值之间。
现在已知数值2及误差波动值，按随机生成法，让其随机出现数值1，并自动计算误差，如果符合误差波动值的范围，数值1即显示到text1中，否则重新生成。
我有用VB做过do...loop until，不过我在loop until a<b and a>b*0.7
以上这句，如果b为常量就能成功，如果为变量程序就出错。？？
如果有12个text1,12个text2，如何用数组形式重复计算以上数据呢？
再问下： for j= 0 to 11,for k= 0 to 3,
j循环3次后，k+1，数据如下：
0,0；0,1；0,2；1,3；,1,4；1,5......3,9；3,10；3,11
第三位兄弟说的循环44次啊，我只要循环12次，我感觉像是一个二维数组
Private Sub Form_Load()For i = 0 To 9Label1(i).Caption = "单击计算"NextEnd SubPrivate Sub Label1_Click(Index As Integer)aa = InputBox("输入指定的text2值")Text3(Index) = InputBox("bodongfanwei")DoText1(Index).Text = Rnd * 90 + 10 '[0-100]随机数Text2(Index).Text = aat = (Text1(Index).Text - Text2(Index).Text) / Text2(Index).Text * 100Loop While Not (t > Val(Text3(Index).Text) * 0.7 And t Label1(Index).Caption = Format(t, "##0.0#") & "%"End Sub界面https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/lijinfeng042/pic/item/fce78a10754efa60ca80c4f6.jpg
?v=1https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/lijinfeng042/pic/item/ccfa4e08bd69e6b12eddd4f0.j