我们ACCESS老师叫我们做一个二次方程的求解VB代码呀， 我做的是这样的 可是出现了 Private Sub cmdOK_Click() Dim a, b, c, r As Long Dim x1, x2 As Single Me.txta.SetFocus a = Me.txta.Text Me.txtb.SetFocus b = Me.txtb.Text Me.txtc.SetFocus c = Me.txtc.Text r = b * b - 4 * a * c Me.txtx.SetFocus Me.txtg.SetFocus If r < 0 Then Me.txtg.Text = "此时方程有两个虚根！" x1 = (-b) / (2 * a) - Abs(r) / (2 * a) x2 = (-b) / (2 * a) + Abs(r) / (2 * a) Me.txtx.Text = x1 & "i" & "或" & x2 & "i" ElseIf r = 0 Then x1 = (-b) / (2 * a) Me.txtx.Text = x1 Me.txtg.Text = "此时方程只有一个实根！" Else x1 = (-b) - Abs(r) / (2 * a) x2 = (-b) + Abs(r) / (2 * a) Me.txtx.Text = x1 & x2 Me.txtg.Text = "此时方程有两个不等的实根！" End If

End Sub 运行时错误'2185'; 除非控件获得焦点，否则您不能引用该控件的属性和方法 这是为什么呀，大家快点帮我呀！！！！

怎么没有人帮我呀，
天呀，怎么可以这样子的
快点来呀！

看不老懂

朋友，你的问题现在还不能帮你解决，我很喜欢VB编程，我有一个问题怎么老是输入的代码不 对啊出现[ 编译错误：缺少：表达式]
Labell.Caption = ''今天是=''&amp; Chr(13) &amp; Format (date,''dddddd'')
不知道这个是不是对的，请各位指教一下，谢谢！

是VB吗？那么多Me做什么用呀，去掉看看