百科知识

电脑/网络

vb高手请进我想产生10,20-之间的随机偶数怎么写啊，写出来

2007-02-02 13:14:02b***
我想产生[10,20]之间的随机偶数怎么写啊，写出来的都不是偶数，只是随机数，请高手指点vb高手请进我想产生[10,20]之间的随机偶数怎么写啊，写出来的都不是偶数，只是随机数，请高手指点：rnd 为了生成某个范围内的随机整数，可使用以下公式：I?

最佳回答

  • rnd 为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 如你的要求: 把10,20都除2嘛 INT(RND*6+5)*2 但是实际上RND是一个伪随机,你可以先定义一个可以变化的种子,如时间就可以实现真正的随机.如果有兴趣可以再探讨 谢谢楼下的纠正 使用INT是确保其值为整数，因为RND是0到1的数字，因此结果出现小数，因为如果你的X定义为INT，那么是很可能就不能取到偶数。 是的RANDOMIZE
    2007-02-02 13:27:10
  • panzeriva的思路好。 求[5,10]之间的随机整数乘2就是[10,20]之间的随机偶数。 不过带入公式得出来的式子里漏了那个加1了。。 比如点击Command生成50个[10,20]之间的随机偶数放到ListBox里可以写 Private Sub Command1_Click() Dim i As Integer Randomize List1.Clear For i = 1 To 50 List1.AddItem Int(Rnd * 6 + 5) * 2 Next End Sub
    2007-02-02 17:17:06
  • randomize a=Int((20-10 +1) * Rnd + 10) if a mod 2=1 then a=a+1 msgbox a 这是用VBS写的，参考。
    2007-02-02 13:46:24
    • 很赞哦！ (293)

    相关文章