以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  随机小数的的输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132568)
--  作者：jinhetian
--  发布时间：2019/3/25 11:08:00
--  随机小数的的输入
您好老师。
根据随机数NextDouble方法：
    For i As Integer = 0 To 0
        Output.Show(4.5 + math.round(Rand.NextDouble,1))
    Next
这段代码能生成4点5到5点多的小数。能满足我的需求。请问怎么输入到出厂检验报告的A428位置里？下边代码是要生成4到6之间的随机整数现改为小数。
    
    Dim A428 As Integer = Rand.Next(4,6)
    Tables("出厂检验报告表").Current("A428") =A428
[此贴子已经被作者于2019/3/25 11:09:20编辑过]
--  作者：有点甜
--  发布时间：2019/3/25 13:49:00
--  

比如

 

Dim d As Double = Rand.NextDouble
d = 4 + d*(6-4)
output.show(d)

 

或者

 

Dim d As Double = Rand.NextDouble
d = rand.Next(4,6) + d
output.show(d)