11问答网
所有问题
当前搜索:
vb从数组中随机获取数字
vb数组
产生
随机数
答:
VB可使用Randomize 语句和Rnd 函数输出随机数列到数组
。1)Rnd 函数,返回一个包含随机数值的 Single。语法:Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。2)Randomize 语句,初始化随机数生成器。语法:Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。3...
vb随机取数组内数字
,不重复!
答:
Private Sub Command1_Click()MsgBox GetRndItem(3)End SubFunction GetRndItem(num As Integer) As String Dim a a = Split("125 625#235 456#658 125#125 151#152 841#152 151", "#") Dim i As Integer Randomize Dim Index As Integer Dim Text As String Dim ...
VB
怎样
随机
提取10个
数中的
5个数存到
数组中
答:
先将这10个数字放在一个数组a(10)中。然后通过随机函数的调用来随机抽取数字
。每次抽取一个,若抽取到的数字已被抽取,则进行下一次抽取。这大概就是基本想法吧。通过代码实现:Dim a(10) As Integer '存放要抽取的数字。Dim Fir(5) As Integer '存放抽取到的5个数字的下标,最后改为存该下标的...
用
vb
代码表示
随机
产生10个整数,并求出最大值
答:
Private Sub Command1_Click()Randomize '‘
随机
播种语句 For i = 1 To 8 '‘随机产生8个1000之内
的
正整数,赋予
数组
a的各个变量 a(i) = Fix(Rnd * 1000) + 1 Next i For i = 0 To 7 Label2(i) = a(i + 1)Next i Command1.Enabled = False Command2.Enabled = True End...
VB编程
:使用一维
数组
编写程序,
随机
产生10个0~100
的
整数,求出最大值...
答:
min As Integer max = 0 min = 100 For i = 1 To 10 If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i Print "max"; max; "min"; minEnd SubPrivate Sub Command3_Click() Dim ave As Double For i = 1 To 10 ...
VB
在一组数
中随机
抽5个数要求不能重复
答:
CollectionFor Each item In a col.Add itemNext'把
数组中
的数加入集合对象'---Dim Index As IntegerDim i As IntegerDim strLine As StringFor i = 1 To col.Count '每循环抽取一数 Index = Int(col.Count * Rnd + 1) '
获取随机
下标量 strLine = strLine & "," & col....
用
VB编程
:随机产生10个0~100之间
的随机
整数,存放在一个
数组中
,然后求个...
答:
Dim y As String For i = 0 To 9 Randomize a(i) = Int(Rnd(1) * 101)x = x + a(i)Next i Print "元素和=" & x Print "平均值=" & x / 10 For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "大于...
在
vb中
如何
随机
选择
数组中
的元素
答:
VB
中用rnd()产生一个0-1之间
的随机
数。用 LBound(
数组
名)取得数组下标, uBound(数组名)取得数组上标,于是 数组名(int(Ubound(数组名)*rnd()))即可随机取得了数组元素了呀
vb
利用
数组
产生
随机数
并求最小值
答:
Private Sub Command1_Click() '产生并输出 For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 81) + 20 '[20,100]Print a(i, j);Next j Print '换行 Next i End Sub Private Sub Command2_Click() '求最小值 Min = a(1, 1) '最小值的初始值为第一个...
vb
怎样
随机数数组
答:
其中x可以省略 用rnd产生的
数字
是小数,必须另外设定格式,比如要0-99之间
的随机
整数,即 dim s as integer s=rnd()*100 就行了 如果需要多次,大量产生
随机数
(对随机数要求高一些)就在rnd()语句前面一行插入randomize(x)如果要对一个一维
数组
(比如上界为5)赋值:...dim shuzu(5)as integ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb怎么随机产生不重复的数字
excel从100个样本抽三十个
excel随机函数怎么固定
vb取随机数程序代码
vb随机数代码怎么写
随机抽取vbs代码
excel随机抽取函数
vba随机函数rand
vb生成随机数的代码