求助？看看我的代码哪个地方写错啦！

Question

http://access911.net/csdn/FileDescription.asp?mdb=2010-12-24&id=40确认按钮部分的CLICK 事件代码可能不对！~帮看看！在线等！~~谢谢~~~

Answer 1

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 Select
End 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

Answer 2

生成EXE文件后，双击打不开，是怎么一回子事？