mdsk.net
当前位置:首页 >> vB生成1 10的随机数 >>

vB生成1 10的随机数

用数组来保存产生的随机数,每产生一个随机数就跟已经产生的随机数进行比较,如果跟已经产生的随机数中的一个相同的话就重新产生一个随机数,直到跟已经产生的所有随机数都不相同为止. private sub command1_click() dim a(1 to 10) as

dim a as doublea=int(Rnd * (10000000000)

a=rnd*10 +1 '可以产生【1,10】之间的随机数

dim a(1 to 10) for i=1 to 10 a(i)=rnd*10+1 next i

产生〔1,10〕间的随机整数这是个开区间RandomizeN=int(2+8*Rnd())才可以

参考代码:Dim a(9) As Integer Randomize For i = 0 To 9 a(i) = CInt(Rnd() * 10) Next i End Sub

private sub command1_click()dim a as integera = rnd(1) * 10if a > 0 thentext1 = aend ifend sub

Private Sub Command1_Click() Dim i%, j%, x% Randomize For i = 1 To 5 For j = 1 To 10 x = Int(10 * Rnd + 1) Print x; If x = 8 Then Exit For Next Print Next End Sub

新建一个form1添加command1添加label1label1高度设的稍高一点,以显示数据.form代码视图中加入以下语句.private sub command1_click() '定义变量 dim a(9) as integer dim i as integer dim r as integer dim t as integer '产生随机数

Randomize Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里, upperbound 是此范围的上界, lowerbound 是此范围内的下界.

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com