24小时热门版块排行榜    

查看: 1112  |  回复: 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的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็

【答案】应助回帖

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

仙木映月

金虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿南昌大学,327分,材料与化工085600 +5 Ncdx123456 2026-03-19 5/250 2026-03-20 11:15 by wangy0907
[考研] 298-一志愿中国农业大学-求调剂 +8 手机用户 2026-03-17 8/400 2026-03-20 09:32 by 陆伶越
[考研] 304求调剂 +5 曼殊2266 2026-03-18 5/250 2026-03-20 09:00 by ZHANG0tao
[考研] 295材料求调剂,一志愿武汉理工085601专硕 +3 Charlieyq 2026-03-19 3/150 2026-03-20 08:53 by xingguangj
[考研] 一志愿苏州大学材料求调剂,总分315(英一) +3 sbdksD 2026-03-19 3/150 2026-03-19 23:21 by fmesaito
[考研] 求调剂,一志愿:南京航空航天大学大学 ,080500材料科学与工程学硕,总分289分 +3 @taotao 2026-03-19 3/150 2026-03-19 14:07 by peike
[考研] 346求调剂[0856] +3 WayneLim327 2026-03-16 6/300 2026-03-19 11:21 by WayneLim327
[考研] 一志愿华中科技大学,080502,354分求调剂 +4 守候夕阳CF 2026-03-18 4/200 2026-03-18 22:16 by li123456789.
[考研] 330求调剂 +3 小材化本科 2026-03-18 3/150 2026-03-18 21:55 by 无懈可击111
[考研] 【同济软件】软件(085405)考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 085600材料与化工 +5 安全上岸! 2026-03-16 5/250 2026-03-18 15:33 by cmz0325
[考研] 297求调剂 +8 戏精丹丹丹 2026-03-17 8/400 2026-03-18 14:30 by laoshidan
[考研] 312求调剂 +8 陌宸希 2026-03-16 9/450 2026-03-18 12:39 by Linda Hu
[考研] 环境工程调剂 +8 大可digkids 2026-03-16 8/400 2026-03-18 09:36 by zhukairuo
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
[考研] 材料与化工专硕调剂 +5 heming3743 2026-03-16 5/250 2026-03-17 14:03 by 勇敢太监王公公
[考研] 070305求调剂 +3 mlpqaz03 2026-03-14 4/200 2026-03-15 11:04 by peike
[考研] 085601材料工程315分求调剂 +3 yang_0104 2026-03-15 3/150 2026-03-15 10:58 by peike
[考研] 330求调剂 +3 ?酱给调剂跪了 2026-03-13 3/150 2026-03-14 10:13 by JourneyLucky
信息提示
请填处理意见