请问此代码要如何修改才能用呀

[huangym88]

Public a, b
Private Sub Command1_Click()
Randomize Time
a = Fix(Rnd * 9) + 1
b = Fix(Rnd * 9) + 1
LabTiMu.Caption = CStr(a) + "×" + CStr(b) + "="
Text1.Text = "" '
LabDuiCuo.Caption = ""
CmdPanTi.Enabled = True
CmdPanTi.Defauft = True
CmdChuTi.Enabled = False
Text1.SetFocus
End Sub

Private Sub Command2_Click()
x = Val(Text1.Text)
If x = 0 Then Exit Sub
If x = a * b Then
LabDuiCuo.Caption = "正确"
Else
LabDuiCuo.Caption = "错误"
End If
CmdPanTi.Enabled = True
CmdPanTi.Defauft = True
CmdChuTi.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
CmdPanTi.Enab
led = False
End Sub
运行上述代码时出现以下提示
实时错误 424
要求对象

[tingting1123]

检查下控件的名称是否正确
你是用了5个commandbutton 2个label 1个textbox?

[tingting1123]

Private Sub Form_Load()
CmdPanTi.Enab
led = False
End Sub
-----这个有点郁闷哦.

[of123]

窗体上放 3 个按钮，一个文本框，两个 Label。

Public a, b

Private Sub Command1_Click()
Randomize Time
a = Fix(Rnd * 9) + 1
b = Fix(Rnd * 9) + 1
Label1.Caption = CStr(a) + "×" + CStr(b) + "="
Text1.Text = "" '
Label2.Caption = ""
Command2.Enabled = True
Command2.Defauft = True
Command1.Enabled = False
Text1.SetFocus
End Sub

Private Sub Command2_Click()
x = Val(Text1.Text)
If x = 0 Then Exit Sub
If x = a * b Then
Label2.Caption = "正确"
Else
Label2.Caption = "错误"
End If
Command1.Enabled = True
Command1.Defauft = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub

[of123]

Command2.Default

[huangym88]

感谢各位的回复,问题还是有点不好解决,2楼的问题,我的意思是要求当首次启动程序时让"判断"按钮无效,按照三楼的修改后调试出现"编译错误:示找到方法或数据成员" 请指教

[huangym88]

上面的应该是"编译错误:未找到方法或数据成员"另外想发个载图上去,不知如何发,郁闷呀

[of123]

看看 4 楼，你的笔误。

[huangym88]

修改后有些按钮可以用了，但是用到＂判断＂还是出现和上面一样的提示即：＂编译错误:未找到方法或数据成员＂，还有那个＂正确＂和＂错误＂的判断结果也没有显示，恳请指请教，谢谢

[huangym88]

可以了,谢谢各位

[zuoxingyu]

呵呵，多细心点

[huangym88]

作为VB的新手,想再向各位请教一下,如果把上述代码中
LabTiMu.Caption = CStr(a) + "×" + CStr(b) + "="
里面的 "×" 修改为"-" 时,当给出的随机数为"6-6="时,写上正确的结果"0",就不能进行判断了,不知怎样修改才能避免出现这种情况,谢谢.

[tingting1123]

照他的代码 你不改成"-" 添了0也没有反应了...

[huangym88]

If x = 0 Then Exit Sub 把这句删了,就可以了,但是又出现另一种情况,当给出是"6-6="时,不用"Text1.Text "写结果,直接判断,居然也说"正确"