Office中国论坛/Access中国论坛

标题: 谁帮忙逐句翻译下这个代码 [打印本页]

作者: bingbaicai 时间: 2017-3-8 10:05
标题: 谁帮忙逐句翻译下这个代码
Do
      [m22:v23] = 0
         For Each cel In [m22:v23]
            cel.Value = Int(Rnd * 25 - 20)
            If [w22] < 0.85 Then GoTo a
         Next
a:
      Loop While [w22] < 0.85

谢谢

作者: tmtony 时间: 2017-3-8 11:31
大致是一个循环

Do  '循环
      [m22:v23] = 0 '将这个区域初始化这0
         For Each cel In [m22:v23]  '循环这个区域所有单元格
            cel.Value = Int(Rnd * 25 - 20)  '每个单元格设置为一个随机数
            If [w22] < 0.85 Then GoTo a '如果 w22这个小于 0.85 则跳到 a 处
         Next
a:
      Loop While [w22] < 0.85

作者: bingbaicai 时间: 2017-3-8 11:42

tmtony 发表于 2017-3-8 11:31
大致是一个循环

Do '循环

跳到a处？a处是loop while {w22}<0.85?，
int(rnd*25-20)意思是不是结果在（-20，5）里面随机数值？
这个应该是Do loopwhile的应用吧？

谢谢管理员的解答

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)