24小时热门版块排行榜    

查看: 1115  |  回复: 5

张跃simple

银虫 (小有名气)

[求助] 关于VB的小程序,求大神指导 已有4人参与

我编了个小程序,很简单的。程序如下
Private Sub Command1_Click()
  Dim t As Double
  Dim z As Double
  Dim f As Double
  For t = 0 To 60 Step 0.1
      For z = 0 To 1000 Step 1
          f = (60 - 0.8506 * t - 5.39106) * Exp(-0.007769 * z) + 0.8506 * t + 0.00451 * z + 5.39106
          If f - t < 0.000001 Then
          Print z, t, f
          End If
      Next z
  Next t
End Sub
但是运行下来,发现输出的值,f-t并不满足我设定的小于0.000001.有时候小于0.1都输出了,请问各位大神,哪里有问题啊!!万望不吝赐教。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

仙木映月

金虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
你把f-t扩起来看看
Hardtosay.
2楼2014-07-03 12:24:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
Print z, t, f
语句后面加个跳出语句,跳出1个for或者是2个for语句。如 goto 语句。
3楼2014-07-04 22:27:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liujiankeng

铜虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
经验证,f-t 在屏幕上出来的结果都是负数
不认真你就输了
4楼2014-07-06 05:30:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
张跃simple: 金币+10 2014-07-06 12:07:42
补充一下; 用 (f-t)的绝对值作为判断标准
ส็็็็็็็็็็็็็็็็็็็็
5楼2014-07-06 07:46:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

张跃simple

银虫 (小有名气)

引用回帖:
5楼: Originally posted by cooooldog at 2014-07-06 07:46:47
补充一下; 用 (f-t)的绝对值作为判断标准

对的 ,改绝对值就好了
6楼2014-07-06 12:07:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 张跃simple 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 286分人工智能专业请求调剂愿意跨考! +3 lemonzzn 2026-03-17 4/200 2026-03-20 11:04 by lemonzzn
[考研] 085600材料与化工 求调剂 +17 enenenhui 2026-03-13 18/900 2026-03-20 08:55 by xingguangj
[考研] 生物学调剂招人!!! +3 山海天岚 2026-03-17 4/200 2026-03-19 21:34 by 怎么释怀
[考研] 0703化学调剂 ,六级已过,有科研经历 +12 曦熙兮 2026-03-15 12/600 2026-03-19 19:42 by maocaozhuxi
[考研] 288求调剂,一志愿华南理工大学071005 +5 ioodiiij 2026-03-17 5/250 2026-03-19 18:22 by zcl123
[考研] 085601材料工程专硕求调剂 +10 慕寒mio 2026-03-16 10/500 2026-03-19 15:26 by 丁丁*
[考研] 324分 085600材料化工求调剂 +3 llllkkkhh 2026-03-18 3/150 2026-03-19 14:22 by houyaoxu
[考研] 328求调剂,英语六级551,有科研经历 +4 生物工程调剂 2026-03-16 12/600 2026-03-19 11:10 by 生物工程调剂
[考研] 一志愿天大材料与化工(085600)总分338 +5 蔡大美女 2026-03-13 5/250 2026-03-19 10:44 by 是小刘呀~
[教师之家] 焦虑 +9 水冰月月野兔 2026-03-13 13/650 2026-03-19 09:50 by otani
[考研] 一志愿华中科技大学,080502,354分求调剂 +4 守候夕阳CF 2026-03-18 4/200 2026-03-18 22:16 by li123456789.
[考研] 344求调剂 +6 knight344 2026-03-16 7/350 2026-03-18 20:13 by walc
[考研] 化学工程321分求调剂 +15 大米饭! 2026-03-15 18/900 2026-03-18 14:52 by haxia
[考研] 312求调剂 +8 陌宸希 2026-03-16 9/450 2026-03-18 12:39 by Linda Hu
[考研] 299求调剂 +5 △小透明* 2026-03-17 5/250 2026-03-18 11:49 by 尽舜尧1
[考研] 303求调剂 +4 睿08 2026-03-17 6/300 2026-03-18 11:01 by Iveryant
[考研] 0703化学求调剂 总分331 +3 ZY-05 2026-03-13 3/150 2026-03-18 10:58 by macy2011
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 278求调剂 +5 烟火先于春 2026-03-17 5/250 2026-03-18 08:43 by 星空星月
[考博] 26博士申请 +3 1042136743 2026-03-17 3/150 2026-03-17 23:30 by 轻松不少随
信息提示
请填处理意见