
vb中怎么生成给定范围内的不同随机数,包括边界数(生成的数中有小数和整数,不重复)
2个回答
展开全部
楼上回答的很不错,想要整数就Int(Rnd * 10)
追问
我想要的是能够包括这些数,比如有0,……8.99,……9
追答
'试试变通的方法:
Private Sub Command1_Click()
Dim b(0 To 1) As Variant '假设2种数据,一种是小数,一种是整数
Dim u As Integer '用来放随机产生的下标
Randomize '随机种子初始化
b(0) = Format(Rnd * 9, "0.00") '你没有举出9.xx,所以这里就Rnd * 9了
b(1) = Int(Rnd * 10)
u = Int((UBound(b) + 1) * Rnd()) '随机产生0-1两种类型之间的数字
a = b(u) '这就是你要的数
Print a
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询