66问答网
所有问题
当前搜索:
vb随机数不重复
vb
如何生成某一范围内的
随机数
,并且排除某些数字?
答:
要产生范围 [lowerbound,upperbound]内的
随机数
的语句:x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)如果要排除 其中的某一些数,例如:a、b、c(当然a、b、c在该范围内)那么:x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)Do While x = a Or ...
vb
如何产生
随机数
答:
'思路:如果等于已经产生过的
随机数
则+1 If s = m_Randed(i) Then Rand = Rand + 1 If Rand >= Max Then Rand = 0 Next If Rand > Max Then Rand = s: Exit Sub '只得
重复
,放弃 ReDim Preserve m_Randed(UBound(m_Randed) + 1)m_Randed(UBound(m_Randed)) = Rand End ...
VB
如何依次呈现姓名
随机
且
不重复
答:
Private Sub Form_Click()Dim I As Long, Arr(), S As Long Cls Randomize Arr = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "十")For I = 1 To 10 S = Int(Rnd() * UBound(Arr)) '产生
随机数
Print Arr(S)Arr(S) = Arr(UBound(Arr)...
vb
中怎么生成给定范围内的不同
随机数
,包括边界数(生成的数中有小数...
答:
范围[0,9),格式:0.000
vb随机
产生10个两位数,并找出最大数和最小数,显示出来
答:
Private Sub Form_Click()Randomize() '初始化
随机数
生成器,产生
不重复
的伪随机数。Dim a(9) As Integer, max As Integer, min As Integer max = 0 min = 99 For i = 0 To 9 a(i) = Int(Rnd() * 89 + 10) ' 产生10-99的10个两位随机数 If a(i) >= max Then max =...
vb
的
随机数
有没有办法跳过某个数~~~不会抽到某个数
答:
利用循环来检测生成的
随机数
,如果等于指定的数字,就再次生成:Do x = Int(10 * Rnd)Loop While x = 5 以上代码可随机生成 0 1 2 3 4 6 7 8 9 这几个数,没有5
vb
如何产生两个不同
随机数
答:
Private Sub Command1_Click()Randomize TimerDim f As BooleanDim a As Integer, b As Integerf = TrueWhile f a = Int(Rnd * 10 + 1) b = Int(Rnd * 10 + 1) If a <> b Then f = FalseWendPrint a, bEnd Sub
VB
编写一个抽奖小程序,要求每次抽奖的
数字不重复
答:
'计数点击次数 If n > Val(Text1) Then '次数超过指定次数,抽奖结束 MsgBox "抽奖结束!" Exit Sub End If Text2 = a(n) '从数组中抽出第n个数,由于数组中是随机排列,所以相当于生成一个
随机数
,并且不会
重复
End Sub ...
...10的数,listB空白,每按一次产生1个
随机数
(
不重复
1-10),放在listB中...
答:
- 1 If n = List2.List(i) Then exist = True: Exit Function Next exist = False End Function Private Function where(n%) As Integer Dim i For i = 0 To List1.ListCount If List1.List(i) = n Then where = i: Exit Function Next End Function 不知道是不是这个意思 ...
VB
产生两个数之间的
随机数
答:
1、设置随机产生[n,m]之间的
随机数
(m>n),最小的随机数是n,然后在n的基础上加上m-n的差值内的随机数就可以了;2、随机数代码是int(rnd*(m-n))+n 3、产生两个数之间的随机数闭区间示例(以产生一个[10,90]之间的随机数为例):private sub command1_click()dim n as integer randomize...
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜