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