24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1136  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 297,工科调剂? +3 河南农业大学-能 2026-04-14 3/150 2026-04-15 22:02 by noqvsozv
[考研] 求调剂 +11 小聂爱学习 2026-04-11 15/750 2026-04-15 21:57 by noqvsozv
[考研] 296求调剂 +12 汪!?! 2026-04-09 13/650 2026-04-15 20:01 by 学员JpLReM
[考研] 26药学专硕105500求调剂 +6 喽哈加油 2026-04-13 6/300 2026-04-14 16:40 by zhouxiaoyu
[考研] 材料专业344求调剂 +17 hualkop 2026-04-10 22/1100 2026-04-14 16:21 by sxdj2
[考研] 一志愿沪9,326求生物学调剂 +10 刘墨墨 2026-04-13 10/500 2026-04-14 15:16 by zs92450
[考研] 085404 298分求调剂 +11 呼啦呼啦呼呼呼 2026-04-10 12/600 2026-04-14 08:38 by wfj257
[考研] 0856专硕求调剂 希望是a区院校 +24 好好休息好不好 2026-04-09 27/1350 2026-04-13 22:22 by pies112
[考研] 一志愿211 0703化学 346分求调剂 +26 土豆er? 2026-04-09 29/1450 2026-04-13 15:15 by 独醉梦孤城
[考研] 一志愿双非085400电子信息344 求调剂,对材料和化学方向也感兴趣 +12 无情的小羊 2026-04-09 13/650 2026-04-13 14:17 by 张zhihao
[考研] 339求调剂 +4 hanwudada 2026-04-12 4/200 2026-04-13 12:03 by 蓝云思雨
[考研] 0831生医工第一轮调剂失败求助 +12 小熊睿睿_s 2026-04-11 16/800 2026-04-12 16:28 by 钰璞
[考研] 339求调剂 +8 hanwudada 2026-04-11 9/450 2026-04-12 15:36 by laoshidan
[考研] 求调剂,一志愿材料科学与工程985,365分, +8 材化李可 2026-04-11 10/500 2026-04-12 08:42 by 852137818
[找工作] 山东高校教师考核超级无底线,员工过不下去啦 +4 qut2026 2026-04-09 9/450 2026-04-12 00:54 by qut2026
[考研] 22408调剂315分 +3 zhuangyan123 2026-04-09 3/150 2026-04-12 00:25 by 蓝云思雨
[考研] 调剂 +10 只叙离别辞 2026-04-09 12/600 2026-04-11 20:57 by 逆水乘风
[考研] 087100初试311求调剂 +4 任雅琴 2026-04-09 4/200 2026-04-11 10:33 by zhq0425
[考研] 22408 352分求调剂0854类 +4 努力的夏末 2026-04-09 4/200 2026-04-11 09:57 by zhq0425
[考研] 机械专368 有去处吗 +4 种大树 2026-04-10 4/200 2026-04-10 15:31 by jiajinhpu
信息提示
请填处理意见