推 LPH66:呃 哪有人定array(i,5)的啊@@ 02/23 14:49
→ LPH66:看最多會幾行就設array(幾,5)就好了 02/23 14:49
推 rockcen:太神拉XD 不過為什麼不能這樣設呢? 我只是希望行數 02/23 15:13
→ rockcen:可以自己設定 02/23 15:15
推 BearWu:宣告不行拿那個不確定的值當宣告值吧 02/23 19:14
推 cawQQ:難怪我一直覺的怪怪的XD 02/23 23:27
這是我做的一個練習，輸入列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