66问答网
所有问题
当前搜索:
vb生成随机数组
怎样用
VB
产生一个不定个数的
随机数组
?
答:
Dim nMax As Integer nMax = 500 '定义最大阀值 Dim s As Integer '
数组
前几个数的和 Randomize Do While s < nMax 's >= nMax 跳出循环 i = i + 1 ReDim Preserve a(i)a(i) = Int(Rnd() * 256) '产生 0-255 的
随机
数 Print a(i)s = s + a(i)Loop Text1.Te...
请问
vb随机生成
一个有20个互不相同一百以内的数的
数组
怎么写代码啊...
答:
End Sub 这是写在EXCEL里的宏,在A1指定范围,B1指定个数,在C列
生成数组
里面变量m是范围,变量n是生成个数,最后的raa数组就是结果
利用
vb随机生成
12个100~200间的正整数,构成3*4的二维
数组
,并输出最大值...
答:
Private Sub Command1_Click()Dim a(3, 4) As Integer Randomize Max = 0: Min = 999 For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(101 * Rnd) + 100 Print a(i, j);If Max < a(i, j) Then Max = a(i, j)If Min > a(i, j) Then Min = a(i, j)Next...
VB
编程
随机
产生“10到129”的数,形成一个4*5 的二维
数组
,按升序排列...
答:
Private Sub Command1_Click()Dim a(3, 4)Randomize Print "排列前数据:"For i = 0 To 3 For j = 0 To 4 a(i, j) = Int(Rnd * 120) + 10 Print a(i, j);Next Print Next Print "冒泡法升序输出"For i = 0 To (4 * 5 - 1)For j = 0 To (4 * 5 - 1) - 1 ...
vb生成
一个4行5列的两位
随机
整数
数组
,并在图片框中输出
答:
这个很简单,本程序用
VB
6.0编写 新建一窗体,在窗体上放一个picture控件,与一个command控件,然后在代码窗口里粘贴以下代码即可。Private Sub Command1_Click()Dim a(3, 4) As LongDim i As LongDim j As LongPicture1.Cls For i = 0 To 4 For j = 0 To 3 a(j, i) = Rn...
vb
题,用
随机
函数
生成
包含10个两位整数的一维
数组
,求这10个数的最大值...
答:
运行结果:
生成
的
数组
为73 58 62 36 37 79 11 78 83 73 排序后的数组为83 79 78 73 73 62 58 37 36 11 该数组元素各个元素的和是 590 最大元素是 83 最小元素是 11
VB随机
产生10个任意的两位正整数存放在一维
数组
中,求数组的最大值、平 ...
答:
Option Explicit Dim a(11) As Integer Private Sub Command1_Click()Dim i As Integer Picture1.Cls Picture1.Print "产生的一维
数组
为:"Randomize For i = 1 To 10 a(i) = Int(Rnd * 20 + 10)Picture1.Print a(i);Next i Picture1.Print End Sub Private Sub Command2_Click()Dim ...
vb
6.0如何
随机生成
一个五行五列的
数组
,并且计算所有元素之和,和所有靠...
答:
dim sum,sum_side as double for i=1 to 5 for j= 1 to 5 a(i,j)=rnd()*13456 '这个数可以看着自己改吧.控制
随机
数的取值范围 sum=sum+a(i,j)if j=1 or j=5 or i=1 or i=5 then sum_side=sum_side '如果没有想错,上面这句就是加边角元素的和了.next j, i print "...
用
vb
编程
随机
产生十个数,然后输入其中一个数,找出该数在
数组
中的位置...
答:
Private Type num xuhao As Integer i As IntegerEnd TypeDim a(10) As numDim temp As numPrivate Sub Command1_Click()For i = 1 To 10 a(i).i = InputBox("请输入第" & i & "个数字") a(i).xuhao = i Print a(i).iNext iFor i = 1 To 10 For j...
vb数组
产生
随机
数
答:
VB
可使用Randomize 语句和Rnd 函数输出
随机
数列到
数组
。1)Rnd 函数,返回一个包含随机数值的 Single。语法:Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。2)Randomize 语句,初始化随机数
生成
器。语法:Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。3...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
用vb随机生成多组数组
vb随机生成1到100随机数
vb生成随机数组排序
vb随机生成五行五列数组
生成随机数vb
vb怎么生成随机数
vb生成10个随机数
vb生成不重复随机数
vb随机生成一个数