VB随机数为一个数组,但不知道怎么定义数组下标如下面的代码:Private Sub Command1_Click()b = InputBox("输入随机数的个数-1")Dim a()Randomize:Text1 = ""For i = 0 To ba(i) = Int(Rnd * 5 + 1)For j = 0 To iIf i j And a(i) = a(

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 12:58:32
VB随机数为一个数组,但不知道怎么定义数组下标如下面的代码:Private Sub Command1_Click()b = InputBox(

VB随机数为一个数组,但不知道怎么定义数组下标如下面的代码:Private Sub Command1_Click()b = InputBox("输入随机数的个数-1")Dim a()Randomize:Text1 = ""For i = 0 To ba(i) = Int(Rnd * 5 + 1)For j = 0 To iIf i j And a(i) = a(
VB随机数为一个数组,但不知道怎么定义数组下标
如下面的代码:
Private Sub Command1_Click()
b = InputBox("输入随机数的个数-1")
Dim a()
Randomize:Text1 = ""
For i = 0 To b
a(i) = Int(Rnd * 5 + 1)
For j = 0 To i
If i j And a(i) = a(j) Then i = i - 1:Exit For
Next j,i
For i = 0 To 4
Text1 = Text1 & a(i) & " "
Next
End Sub
如运行,会出现下标越界,如把dim a() 写成 dim a (b)又要求常数表达示,写成dim a (uboun(a)) 也不行,只有手动写成4````````郁闷,我要求是inputbox时让b=4就这么简单,怎么就不行呢?请指教一下,要怎么定义这个a的下标啊?
4只是假如,可能输入321````怎么弄啊````

VB随机数为一个数组,但不知道怎么定义数组下标如下面的代码:Private Sub Command1_Click()b = InputBox("输入随机数的个数-1")Dim a()Randomize:Text1 = ""For i = 0 To ba(i) = Int(Rnd * 5 + 1)For j = 0 To iIf i j And a(i) = a(
Private Sub Command1_Click()
Dim i%, j%, b%, a%() '定义变量
b = InputBox("输入随机数的个数-1")
If b < 1 Then Exit Sub
ReDim a(b) '注意,用redim
Randomize: Text1 = ""
For i = 0 To b
a(i) = Int(Rnd * (b + 1) + 1) '太小会死循环的噢.

For j = 0 To i
If i j And a(i) = a(j) Then i = i - 1: Exit For '使用排序可能更合适!数字大了会很慢的,不建议使用剔除法!
Next j, i
For i = 0 To b
Text1 = Text1 & a(i) & " "
Next
End Sub

VB随机数为一个数组,但不知道怎么定义数组下标如下面的代码:Private Sub Command1_Click()b = InputBox(输入随机数的个数-1)Dim a()Randomize:Text1 = For i = 0 To ba(i) = Int(Rnd * 5 + 1)For j = 0 To iIf i j And a(i) = a( 在线等!VB随机给数!VB生成三个不相同的0到9随机数!然后保存在一个数组中!三个数字要不相同 vb 定义m=array(a,b,c,d,e,f)为一数组 if n=“数组中的任意一个不等于0的数”该怎么表达呢?谢 c语言怎么生成随机数?定义一个数组,怎么生成100个随机数(范围为1000到2000).在这个数组中怎么随机选取一个作为i? JAVA定义一个整数数组,求出其中奇数和偶数个数.我只清楚怎么输出这些数.不知道怎么得出个数、请教了定义的是整数数组.不是String. 怎么定义一个数组 vfp 在VFP中定义了一个二维数组,如何测知该数组的行数与列数?另:如何查询出一个二维数组某一行或某一列的值?注意题意:我现在有一个二维数组,但不知道它有几行几列,有没有什么办法测 一维数组没定义的数是随机数,那二维数组呢? excel VBA 中怎么定义一个数组xx(1 to 100)要让xx(1) 到xx(100)为201到300之间的随机数.对不起,忘说了,随机数要不重复的. VB随机数怎么做 一个不知道大小的一维数组如何定义?这个数组的大小要根据一个要输入的数n确定c++,初学者,刚刚接触数组没学过指针啊之类的 在Lingo中,怎么定义一个数组为0.1变量. C#怎么把一组随机数放到数组里不重复 定义一个动态数组,长度为变量n,用随机数给数组各元素赋值,然后对数组各单元排序,定义swap函数交换数据单元,要求参数使用指针传递. c++,首先定义了一个20位全为0的数组,然后想要输出带有相同随机数的20位数组,随机数的范围在1-10之间数组的第九位第十位是相等的随机数,十一.十二.十三.十四是相等的随机数,其他十四位用0 怎么用VB产生一个四个不重复的数 怎么求一个不知道数组元素个数的数组长度 vb怎么生成随机数啊.