作者OrzHighlight (高光囧)
看板Visual_Basic
标题[.NET] 新手小问题
时间Mon Feb 4 16:38:21 2008
不知道是不是和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)
1F：推 fumizuki:请在2005下点2下Button1，让设计工具自动产生Click()事件 02/04 22:47
2F：推 fumizuki:你就会发现差在哪了 02/04 22:48
3F：→ OrzHighlight:感谢解答啊XDDDDDDD 02/04 23:26