| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1070 人关注过本帖
标题:[求助]明天交呀,救救我呀!
只看楼主 加入收藏
竹轩听雨
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-30
收藏
 问题点数:0 回复次数:4 
[求助]明天交呀,救救我呀!

我们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'; 除非控件获得焦点,否则您不能引用该控件的属性和方法 这是为什么呀,大家快点帮我呀!!!!

搜索更多相关主题的帖子: 老师 
2005-01-09 16:09
竹轩听雨
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-30
收藏
得分:0 
怎么没有人帮我呀,
天呀,怎么可以这样子的
快点来呀!
2005-01-09 16:42
sunrain56
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-1-15
收藏
得分:0 
看不老懂
2005-01-15 02:59
ljl110
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-1-15
收藏
得分:0 
朋友,你的问题现在还不能帮你解决,我很喜欢VB编程,我有一个问题怎么老是输入的代码不 对啊出现[ 编译错误:缺少:表达式]
Labell.Caption = ''今天是=''&amp; Chr(13) &amp; Format (date,''dddddd'')
不知道这个是不是对的,请各位指教一下,谢谢!
2005-01-15 09:27
abingchem
Rank: 6Rank: 6
等 级:贵宾
威 望:24
帖 子:716
专家分:0
注 册:2004-12-30
收藏
得分:0 
是VB吗?那么多Me做什么用呀,去掉看看

此人已消失
2005-01-15 09:29
快速回复:[求助]明天交呀,救救我呀!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025024 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved