qq_38567211 2019-05-28 16:50 采纳率: 0%
浏览 264

大神救急!用VB编写的这个公式是否有问题?

Private Function H(t As Single, x As Single) As Single    '溴化锂水溶液焓-浓度方程(焓)
Dim a(4) As Single, b(4) As Single, c(4) As Single
a(0) = -121.189: a(1) = 16.7809: a(2) = -0.517766: a(3) = 6.31755 * 10 ^ (-3): a(4) = -2.60914 * 10 ^ (-4)
b(0) = 0.671458: b(1) = 1.01548 * 10 ^ (-2): b(2) = -5.41941 * 10 ^ (-4): b(3) = 6.82514 * 10 ^ (-6): b(4) = -2.80048 * 10 ^ (-8)
c(0) = 1.23744 * 10 ^ (-3): c(1) = -7.74557 * 10 ^ (-5): c(2) = 1.94305 * 10 ^ (-6): c(3) = -2.01424 * 10 ^ (-8): c(4) = 6.5288 * 10 ^ (-11)
H = 0
For i = 0 To 4
  H = H + a(i) * x ^ i + t * b(i) * x ^ i + t ^ 2 * c(i) * x ^ i
Next i
End Function![图片说明](https://img-ask.csdn.net/upload/201905/28/1559033182_787462.jpg)
![图片说明](https://img-ask.csdn.net/upload/201905/28/1559033205_465217.jpg)


  • 写回答

1条回答 默认 最新

  • 硬核老骆 2019-05-28 17:13
    关注

    For i=1 to 4

    VB的数组序号默认是从1开始的

    评论

报告相同问题?

悬赏问题

  • ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?
  • ¥15 ubuntu系统下挂载磁盘上执行./提示权限不够
  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 关于#r语言#的问题:差异分析前数据准备,报错Error in data[, sampleName1] : subscript out of bounds请问怎么解决呀以下是全部代码:
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
  • ¥30 3天&7天&&15天&销量如何统计同一行
  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型