应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 关于VB的小程序，求大神指导
51/1返回列表
查看: 1048  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

张跃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都输出了，请问各位大神，哪里有问题啊！！万望不吝赐教。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-07-03 11:19:59
已阅   回复此楼   关注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的回帖
查看全部 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的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭