22问答网
所有问题
当前搜索:
vb生成随机数的代码
用
vb
怎样
生成
10个不重复的(1到10)
随机数
?
答:
vb生成
10个不重复的
随机数代码
:Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
VB
如何产生
随机数
?
答:
1、首先我们需要打开“MicrosoftVisualBasic6.0中文版”软件,然后准备一个空白的工程文件。2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可。3、接着双击该命令按钮,这里演示输入
代码
打印0~10之间的任意随即整数,
生成
其他范围的
随机
整数公式为“int((上限...
VB
如何
生成随机数
答:
1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:3、双击该命令按钮,这里演示输入
代码
打印0~10之间的任意随即整数,
生成
其他范围的
随机
整数公式为“int((上限-下限+1)*...
用
vb
编程实现随机产生一个100到999之间的
随机数
,并将此数逆序输出
答:
[
vb
] view plain copy print?' 产生20个1-100之间的不重复随机数 Public Sub RndNumberNoRepeat1()Dim RndNumber, temp(20), i, k, Maxrec As Integer Randomize (Timer) '初始化
随机数生成
器 Maxrec = 100 ' 从A21开始输出随机数 k = 0 Do While k < 20 RndNumber = Int(Maxrec *...
用
VB
怎么产生不重复的
随机数
?
答:
Dim a(1 To 10) As Integer Private Sub Command1_Click()Static n As Integer n = n + 1 If n > 10 Then Exit Sub Do x = Int((10 - 1 + 1) * Rnd + 1)j = True For i = 1 To n - 1 If x = a(i) Then j = False: Exit For Next i Loop Until j a(n) =...
VB
编程题:编写一个产生1 至100之间的
随机
整数的Function 过程_百度...
答:
因此要产生1~100之间的
随机数
,可以使用Rnd*98,产生的是[0,98)的随机数,而int(Rnd*98)产生的是[0,97]之间的随机整数,那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了,符合目标1到100之间的随机数目的。函数
代码
如下:Public Function sj() As Integer Randomize sj = Int(Rnd * 98...
在
VB
中要
生成
一个10位的
随机数
,应该怎么做?
答:
实际只有9位数。0.001 只有8位数。0.0001 只有7位数。所以:Int(Rnd*9000000000)+1000000000 首先产生一个少于9000000000的数,介于0-89999999999之间,再上加1000000000,那么就可确保产生1000000000-9999999999之间的
随机数
啦。
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
怎么设计
随机数
答:
用
随机数
时之前要用randomize()randomize()这个函数来避免每次
生成的
数都是一样的 (b-a)*rnd()+a 是a到b区间的数,但是不包含a,b本身;int((b-a+1)*rnd()+a 是a到b区间的数,但是包含a,b本身的数所以要加上1
vb
做一个50个不重复的
随机数
。。怎么做。。谢谢了
答:
Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 49 way1:Randomize a(i) = Int(Rnd() * 10) + 1 If i > 1 Then For p = 0 To i - 1 If a(p) = a(i) Then ‘与前面的对比,如果有重复,重新
随机
GoTo way1 End If Next p End If Print a(i) ’...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜