Question

VB中为什么点击按钮命令没有反应 代码是这样的

VB中为什么点击按钮命令没有反应
代码是这样的
Private Sub Form_Load()
If 第一页.Option1.Value = True Then kl = 11: kb = 11: kh = 10
If 第一页.Option2.Value = True Then kl = 9: kb = 9: kh = 8
If 第一页.Option3.Value = True Then kl = 10: kb = 10: kh = 9
If 第一页.Option4.Value = True Then kl = 8: kb = 8: kh = 7
If 第一页.Option5.Value = True Then kl = 7: kb = 7: kh = 6
第六页.Text1.Text = Val(第三页.Text1.Text) * kl
第六页.Text2.Text = Val(第三页.Text2.Text) * kb
第六页.Text3.Text = Val(第三页.Text3.Text) * kh
End Sub
不好意思，不是没反应，是提示说找不到方法或数据成员

Answer 1

"第一页" 是个什么东西？是个窗体吗。。。
是窗体你就看看它上面有没有Option1,2,3 这些控件，要是不是窗体就没必要加上"第一页."

Answer 2

把代码放到命令按钮的click事件中去
Private Sub Command1_Click()
If 第一页.Option1.Value = True Then kl = 11: kb = 11: kh = 10
If 第一页.Option2.Value = True Then kl = 9: kb = 9: kh = 8
If 第一页.Option3.Value = True Then kl = 10: kb = 10: kh = 9
If 第一页.Option4.Value = True Then kl = 8: kb = 8: kh = 7
If 第一页.Option5.Value = True Then kl = 7: kb = 7: kh = 6
第六页.Text1.Text = Val(第三页.Text1.Text) * kl
第六页.Text2.Text = Val(第三页.Text2.Text) * kb
第六页.Text3.Text = Val(第三页.Text3.Text) * kh
End Sub

Answer 3

你都没有按钮事件，怎么会有反应？