数组有关问题，初学者求教

数组问题，菜鸟求教，在线等
   

   Const n = 5
                 Dim arr(n - 1, n - 1) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Randomize()

        TextBox1.Text = ""
        For i = 0 To n'这里为什么说会产生循环10个数显示第一个文本框
            arr(i) = Int(90 * Rnd() + 10)
            TextBox1.Text = TextBox1.Text + CStr(arr(i)) + ","
        Next i
        TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
    End Sub

  
为什么运行的时候提示索引少于索引数组的维数？
[最优解释]
 Dim arr(n - 1, n - 1) As Integer
'改为 
Dim arr(n - 1) As Integer  '下标为4

 For i = 0 To n'这里为什么说会产生循环10个数显示第一个文本框
‘改为
 For i = 0 To n-1

[其他解释]
 Const n = 5
                 Dim arr(n - 1, n - 1) As Integer
你的arr到底想定义成什么样子的？你定义的这个arr数组是个4X4的，是从（0，0）到（3，3）一共16个元素
按你的循环，大概你是想循环5次吧？那数组定义成arr（n），循环for i=0 to n-1就行了
数组下标和元素个数的关系，仔细看看，仔细学学
[其他解释]
你定义的是二维数组，引用时缺少一维
[其他解释]
那你们的意思是 这段语句确实是有问题？
   我是看的例题资料啊。。他资料是这么说的 所以我不懂意思 然后运行的时候就出错了
那我要体现循环10个数出来我是定义2维还是1维？怎么写呢？

[其他解释]

引用:

Dim arr(n - 1, n - 1) As Integer
'改为 
Dim arr(n - 1) As Integer  '下标为4

 For i = 0 To n'这里为什么说会产生循环10个数显示第一个文本框
‘改为
 For i = 0 To n-1

谢谢。不过这样只能随机生成5个数啊，怎么生成10个呢？
[其他解释]

引用:

引用:
Dim arr(n - 1, n - 1) As Integer
'改为 
Dim arr(n - 1) As Integer  '下标为4

 For i = 0 To n'这里为什么说会产生循环10个数显示第一个文本框
‘改为
 For i = 0 To n-1
谢谢。不过这样只能随机生成5个数啊，怎么生成10个呢？

这句话说的是产生的随机数是在1~10这10个数之间。不是产生10个随机数。。。
[其他解释]

引用:

引用:
引用:
Dim arr(n - 1, n - 1) As Integer
'改为 
Dim arr(n - 1) As Integer  '下标为4

 For i = 0 To n'这里为什么说会产生循环10个数显示第一个文本框
‘改为
 For i = 0 To n-1
谢谢。不过这样只能随机生成5个数……

例题确实是说的随机生成10个数出来。而且前面定义的2维。
循环又只有一维。如果前面改成1维怎么写让他随机生成10个数？
[其他解释]
不要太迷信课本，要注重实践，好多书中的代码都没经过测试，或者有特定的状况。自己上机实践结果最重要。

查看更多 下一篇