求助？看看我的代码哪个地方写错啦！
http://access911.net/csdn/FileDescription.asp?mdb=2010-12-24&id=40
确认按钮部分的CLICK 事件代码可能不对！~
帮看看！在线等！~~谢谢~~~
[解决办法]
Dim x As IntegerPrivate Sub Command1_Click()x = Int(Rnd() * 3 + 1)Select Case x Case 1 Label1.Caption = vbCr & "哥俩一般高，" & vbCr & "每天三出操，" & vbCr & "团结互助好，" & vbCr & "人人都需要。" & vbCr & vbCr & "打一生活用具：" Case 2 Label1.Caption = vbCr & "身体细又长，" & vbCr & "肚里黑心肠，" & vbCr & "尖嘴多灵巧，" & vbCr & "写字画画它帮忙。" & vbCr & vbCr & "打一学习用具：" Case 3 Label1.Caption = vbCr & "两脚尖尖，" & vbCr & "一走一站，" & vbCr & "看看脚印，" & vbCr & "尽是圆圈。" & vbCr & vbCr & "打一学习用具："End SelectEnd SubPrivate Sub Command2_Click()Select Case x Case 1 If Text1.Text = "筷子" Then MsgBox "对了！你真聪明！", vbOKOnly, "祝贺！" Else MsgBox "不对！请你再试一次！", vbOKOnly, "很遗憾！" Case 2 If Text1.Text = "铅笔" Then MsgBox "对了！你真聪明！", vbOKOnly, "祝贺！" Else MsgBox "不对！请你再试一次！", vbOKOnly, "很遗憾！" Case 3 If Text1.Text = "圆规" Then MsgBox "对了！你真聪明！", vbOKOnly, "祝贺！" Else MsgBox "不对！请你再试一次！", vbOKOnly, "很遗憾！" End Select End SubPrivate Sub Command4_Click()Select Case x Case 1 MsgBox "筷子", vbOKOnly, "答案" Case 2 MsgBox "铅笔", vbOKOnly, "答案" Case 3 MsgBox "圆规", vbOKOnly, "答案"End SelectEnd Sub
