99问答网
所有问题
当前搜索:
用vb产生随机数
用vb
编写一段程序,
产生
4位
随机数
,但是这四位数各不相同,如何编写,麻烦...
答:
有两种办法,一是4位单独生成,然后组成4位数,生成一位就判断一下,如果重复就重新生成。另一就是直接生成4位数,判断各位有没有重复,如果有就重新
生成一个
,如果不重复就退出。这是按第一情况来生成的。Private Sub Command1_Click()Randomize Dim a(1 To 4)a(1) = Int(Rnd() * 9) + 1...
VB产生
10个[1,100]的
随机数
答:
假设标签Label1 文本框Text1 Text2 Text3 Text4 统计按钮Command1 窗体代码 Option Explicit Private Sub Command1_Click()Dim Vs() As Long, Ls() As String, fo As Long, Vc As Long Dim Max As Long, Min As Long, e As Double,t as long ReDim Vs(Len(Label1))Ls = Split(Label...
VB中
的rnd函数是什么
答:
Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd
生成随机数
的方式。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先
使用
无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的...
vb中
Rnd(n)函数
答:
说明:Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd
生成随机数
的方式。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先
使用
无参数的 Randomize语句初始化随机数生成器(若带参数,则产生由参数对应...
求
VB 生成
50个[-10,10]之间
随机数
的代码
答:
控件2个,一个按钮,一个文本框(打开多行支持,竖直滚动条)Private Sub Command1_Click()For i = 1 To 50 a = 20 * Rnd()Text1.Text = Text1.Text + vbCrLf + Str(a - 10)Next End Sub 如图:
在
VB中
,如何
产生
48~57、65~90、97~122之间的
随机数
答:
两个或多个区间各产生一个随机数放到数组里,最后以数组范围
产生随机数
,取这个随机数下标对应的数组元素
怎么
用vb生成
一个1-8的随即数,急急。谢谢!
答:
Function Rand(b, a)Randomize Rand = Int(Rnd * b + a)End Function
生成一个
1-8的
随机数
:Rand(1, 8)
编写一个
VB
.NET 程序,
产生
100 个 100 以内的
随机数
,将他们从大到小...
答:
a(i) = Int(Rnd * 101)k = k + 1 Print Tab((k - 1) * 5); a(i);If k = 10 Then k = 0: Print Next i Print Print For i = 100 To 2 Step -1 '用冒泡排序法对数组进行排序 For j = 1 To i - 1 If a(j) > a(j + 1) Then t = a(j): a(j) = a...
怎么
用VB
编写点
生成
按钮
产生
1000个8位不重复的
随机数
呢?
答:
Private Sub Command1_Click()Dim i As Long, a As Long Randomize Text1.Text = ""For i = 1 To 1000 Do a = Int(Rnd * 90000000) + 10000000 Loop While InStr(Text1.Text, a)Text1.Text = Text1.Text & a & " "DoEvents Next End Sub ...
vb产生
两个数之间的
随机数
闭区间
答:
1、设置
随机产生
[n,m]之间的
随机数
(m>n),最小的随机数是n,然后在n的基础上加上m-n的差值内的随机数就可以了;2、随机数代码是int(rnd*(m-n))+n3、产生两个数之间的随机数闭区间示例(以产生一个[10,90]之间的随机数为例):Private Sub Command1_Click()Dim n As IntegerRandomizen ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜