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

huangym88 2007-12-18 04:04:41
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
要求对象
...全文
77 点赞 收藏 13
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
huangym88 2007-12-21
If x = 0 Then Exit Sub 把这句删了,就可以了,但是又出现另一种情况,当给出是"6-6="时,不用"Text1.Text "写结果,直接判断,居然也说"正确"
回复
tingting1123 2007-12-20
照他的代码 你不改成"-" 添了0也没有反应了...
回复
huangym88 2007-12-19
作为VB的新手,想再向各位请教一下,如果把上述代码中
LabTiMu.Caption = CStr(a) + "×" + CStr(b) + "="
里面的 "×" 修改为"-" 时,当给出的随机数为"6-6="时,写上正确的结果"0",就不能进行判断了,不知怎样修改才能避免出现这种情况,谢谢.
回复
zuoxingyu 2007-12-18
呵呵,多细心点
回复
huangym88 2007-12-18
可以了,谢谢各位
回复
huangym88 2007-12-18
修改后有些按钮可以用了,但是用到"判断"还是出现和上面一样的提示即:"编译错误:未找到方法或数据成员",还有那个"正确"和"错误"的判断结果也没有显示,恳请指请教,谢谢
回复
of123 2007-12-18
看看 4 楼,你的笔误。
回复
huangym88 2007-12-18
上面的应该是"编译错误:未找到方法或数据成员"另外想发个载图上去,不知如何发,郁闷呀
回复
huangym88 2007-12-18
感谢各位的回复,问题还是有点不好解决,2楼的问题,我的意思是要求当首次启动程序时让"判断"按钮无效,按照三楼的修改后调试出现"编译错误:示找到方法或数据成员" 请指教
回复
of123 2007-12-18
Command2.Default
回复
of123 2007-12-18
窗体上放 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
回复
tingting1123 2007-12-18
Private Sub Form_Load()
CmdPanTi.Enab
led = False
End Sub
-----这个有点郁闷哦.
回复
tingting1123 2007-12-18
检查下控件的名称是否正确
你是用了5个commandbutton 2个label 1个textbox?
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7487

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2007-12-18 04:04
社区公告
暂无公告