作者rockcen (杰)
看板Visual_Basic
标题[.NET] 回圈+阵列问题
时间Thu Feb 23 14:28:14 2006
这是我做的一个练习，输入列index 乱数产生６个行数
但是超过1就有问题 我一直找不出解答..可以帮忙看一下吗?
(纯粹练习 1维已经出来想试试看2维)
Module Module1
Sub Main()
Randomize()
Dim i, k, x, array(i, 5) As Integer
Console.Write("请输入你需要的组数: ")
x = Console.ReadLine() - 1
For i = 0 To x
For k = 0 To 5
array(i, k) = (Fix(1 + 45 * Rnd()))
Next k
Next
For i = 0 To x
For k = 0 To 5
Console.Write(array(i, k) & vbTab)
Next k
Console.WriteLine()
Next i
Console.ReadLine()
End Sub
End Module
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.62.1.105
1F：推 LPH66:呃 哪有人定array(i,5)的啊@@ 02/23 14:49
2F：→ LPH66:看最多会几行就设array(几,5)就好了 02/23 14:49
3F：推 rockcen:太神拉XD 不过为什麽不能这样设呢? 我只是希望行数 02/23 15:13
4F：→ rockcen:可以自己设定 02/23 15:15
5F：推 BearWu:宣告不行拿那个不确定的值当宣告值吧 02/23 19:14
6F：推 cawQQ:难怪我一直觉的怪怪的XD 02/23 23:27