24小时热门版块排行榜    

查看: 1111  |  回复: 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已过四六级求调剂推荐 +4 adaie 2026-03-19 4/200 2026-03-20 09:31 by yuncha
[考研] 271材料工程求调剂 +7 .6lL 2026-03-18 7/350 2026-03-20 09:10 by xingguangj
[考研] 265求调剂 +8 梁梁校校 2026-03-19 8/400 2026-03-20 09:08 by 每天只摆一小会
[考研] 一志愿吉林大学材料学硕321求调剂 +9 Ymlll 2026-03-18 12/600 2026-03-20 00:01 by 23Postgrad
[考研] 复试调剂 +4 z1z2z3879 2026-03-14 6/300 2026-03-19 17:18 by fei626-918
[考研] 一志愿北京化工大学0703化学318分,有科研经历,求调剂 +3 一瓶苯甲酸 2026-03-14 3/150 2026-03-19 15:17 by 尽舜尧1
[考研] 本人考085602 化学工程 专硕 +17 不知道叫什么! 2026-03-15 19/950 2026-03-19 15:06 by 尽舜尧1
[考研] 材料与化工求调剂 +7 为学666 2026-03-16 7/350 2026-03-19 14:48 by 尽舜尧1
[考研] 317求调剂 +3 申子申申 2026-03-19 6/300 2026-03-19 14:16 by 申子申申
[考研] 材料考研调剂 +3 xwt。 2026-03-19 3/150 2026-03-19 11:22 by w沐阳w
[考研] 一志愿西南交大,求调剂 +4 材化逐梦人 2026-03-18 4/200 2026-03-18 14:22 by 007_lilei
[考研] 312求调剂 +8 陌宸希 2026-03-16 9/450 2026-03-18 12:39 by Linda Hu
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 268求调剂 +8 一定有学上- 2026-03-14 9/450 2026-03-17 17:47 by laoshidan
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 一志愿南京大学,080500材料科学与工程,调剂 +4 Jy? 2026-03-16 4/200 2026-03-17 11:02 by gaoqiong
[论文投稿] 有没有大佬发小论文能带我个二作 +3 增锐漏人 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
[考研] [导师推荐]西南科技大学国防/材料导师推荐 +3 尖角小荷 2026-03-16 6/300 2026-03-16 23:21 by 尖角小荷
[基金申请] 今年的国基金是打分制吗? 50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by 北京莱茵润色
[考研] 080500,材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
信息提示
请填处理意见