1、用‘Randbetween’函数,这个函数有两个参数,第一个参数为返回的最小整数,第二个参数为返回的最大整数。假如我们需要获取10到20之间的随机数。输入公式‘=Randbetween(10,20)'即可。动图如下:2、用RAND函数生成随机函数,这个函数是一个无参函数。返回结果为0到1之间的一个随机数。假设需要获取20-100之间的...
=(20+INT(21*RAND()))/2
Sub 随机数()Dim arr(17) As Double '如果要整数,就把double换成IntegerDoFor i = 0 To 17arr(i) = (-1) ^ Int(Rnd() * 2) * Rnd() * 10NextLoop Until WorksheetFunction.Sum(arr) < 20 And WorksheetFunction.Sum(arr) > -20'Range("a1").Resize(1, 18) = arr '结果...
是值不超过平均10%,还是生成数的振荡范围不超过平均值的10%,如果是振荡范围的话你可以设置生成范围为26-30生成,否则必败,你懂的。
代码:Dim dlg As new OpenFileDialog dlg.Filter = "dbase|*.*"If dlg.ShowDialog = DialogResult....