[VB6 ] 新手小問題
不知道是不是和VB6有差別...
我手上只有一個奇怪的Visual Basic 2005 Express
然後...因為很久沒碰了
所以不知道怎麼抓蟲orz
希望有好心的大大能看一下是哪裡出錯了
程式碼很短..謝謝
Public Class Form1
Public Sub Button1_Click()
Dim N(0 To 99), I As Integer
Dim Humen, S(0 To 99) As String
Randomize()
Humen = ""
For I = 0 To 99
N(I) = Fix(Rnd() * 64)
Do While N(I) = 64
N(I) = Fix(Rnd() * 64)
Loop
If N(I) <= 31 Then
S(I) = "1,"
Else
If N(I) = 63 Then
S(I) = ","
Else
S(I) = "2,"
End If
End If
Humen = Humen & S(I)
Next
TextBox1.Text = Humen
End Sub
End Class
我希望做出來是在Textbox中會出現
「2,2,2,2,2,2,2,2,2,2,2,,,
,1,1,1,1,1,2,1,,,,2,,,,1,1
,1,1,1,1,1,2,1,,,,2,,,,1,1
,1,1,1,1,1,2,1,,,,2,2,2,,1,
,,,1,,,,1,,,,2,,2,,2,」
類似這樣的東西(當然不會這麼整齊)
VB本身好像抓不到蟲?
沒有顯示什麼錯誤
可是執行時就是沒半點東西跑出來...
拜託各位高手幫我解惑了m(_ _)m
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.162.186.191
※ 編輯: OrzHighlight 來自: 218.162.186.191 (02/04 16:43)
推
02/04 22:47, , 1F
02/04 22:47, 1F
推
02/04 22:48, , 2F
02/04 22:48, 2F
→
02/04 23:26, , 3F
02/04 23:26, 3F