VB 中c=QBCOLOR (rnd*15+1)哪里错了
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/23 06:21:24
VB 中c=QBCOLOR (rnd*15+1)哪里错了
如题求解><应该就这句错了,要做成这个200个随机彩色点(颜色用QBColor实现),点的大小在单位3~6之间变化,
改成rnd*15就对了,可是不久取不到15这个颜色了吗,QBcolor不是就0-15这16个颜色吗
如题求解><应该就这句错了,要做成这个200个随机彩色点(颜色用QBColor实现),点的大小在单位3~6之间变化,
改成rnd*15就对了,可是不久取不到15这个颜色了吗,QBcolor不是就0-15这16个颜色吗
这是因为Rnd的返回值是个纯小数(大于等于0,小于1的小数),所以当rnd*15+1的值为15.5以上时,VB会自动进位为16,这样就出错了.
其实你的算法本身就有问题,rnd*15的话,怎么算都只有15种颜色,不可能是16种,即使不会出错,也要么没有15这个颜色,要么没有0这个颜色.
正确的应该是:
QBColor(Int(Rnd * 16))
Rnd * 16 将得到 0 到 15.99999...的值,再用Int取整后就得到0到15这16个颜色值了.
其实你的算法本身就有问题,rnd*15的话,怎么算都只有15种颜色,不可能是16种,即使不会出错,也要么没有15这个颜色,要么没有0这个颜色.
正确的应该是:
QBColor(Int(Rnd * 16))
Rnd * 16 将得到 0 到 15.99999...的值,再用Int取整后就得到0到15这16个颜色值了.
VB 中c=QBCOLOR (rnd*15+1)哪里错了
(VB) a = Int(Rnd(1) * 9).
VB 编程 vb中 Int(Rnd(0)+1)+Int(Rnd(1)-1) 值等于多少
vb 中设 a = 5,b = 13,则执行 c = Int((b-a)* Rnd + a) + 1后,c的范围为6~1
vb 中设 a = 5,b = 10,则执行 c = Int((b-a)* Rnd + a) + 1后,c的值为
VB中qbcolor函数中,qb是什么字母的缩写?
vb中int(rnd(0)+1)+int(rnd(1)-1)值是多少?为什么?
请问VB中Int(Rnd)是什么意思
VB中rnd如何出现小数啊
VB中RND语句的问题
VB中Int(Rnd(1) * 4),Int(Rnd(2) * 5)产生的随机整数的闭区间是多少
VB 中int(Rnd*10+10)是什么意思?Rnd*10与10*Rnd是一个意思吗?