vb 我写类似选择问答的代码！出错了。但不知道错哪

来源：百度知道 编辑：UC知道 时间：2024/05/27 01:34:30
http://user.qzone.qq.com/376190682/blog/1243069155
由于我的全部代码复制出来了。太长。这里放不下。请大家到上面网址指教。。。。

x定义在command2的过程里
在command1里面没有x,x永远是0,
select case x又没有x=0的情况,所以没有反应.

但是你的代码实在是太........多余.
看不出options有什么用,还4个呢
用下面的吧
----------------------------------

Dim x As Integer

Private Sub Command1_Click()
Label2.Caption = " 答案 " & CStr(x) & " r"
End Sub

Private Sub Command2_Click()
Label2.Caption = "试题 " & CStr(x) & " r"
End Sub

Private Sub Form_Load()
x = CStr(Rnd * 9 + 1)
End Sub