zhanshenfuyun 2015-04-28 08:23 采纳率: 0%
浏览 1588

VB新手求求各位大神解答,万分感谢!!!

Dim num11 As String
Dim num8 As String
Dim num7 As String
Dim num9 As String
Dim num11 As String
Dim num10 As String
num9 = TextBox11.Text
num10 = TextBox12.Text
num11 = TextBox13.Text
num7 = num1 / (0.25 * 3.14 * 0.6 * 0.6) / 3600
num8 = num2 / (12.7 * 31) / 3600
TextBox11.Text = 0.021 * (num7 * 0.6 / 81.2 / 10 ^ (-6)) ^ (0.84) * 0.595 ^ (0.36) * (0.615 / 0.61) ^ (0.25) * 0.0699 / 0.6
TextBox12.Text = 0.021 * (num8 * 0.6 / 79.3 / 10 ^ (-6)) ^ (0.84) * 0.7 ^ (0.36) * (0.7 / 0.7) ^ (0.25) * 0.0562 / 0.6
TextBox13.Text = num9 * num10 / (num9 + num10)
错误就是TextBox13.Text = num9 * num10 / (num9 + num10)这一行,我有很多这个样子的语句,都是个错误,是最前面定义的错误,还是其他的?
求各位大神帮帮我这个菜鸟吧,谢谢各位大神了!

  • 写回答

2条回答 默认 最新

  • danielinbiti 2015-04-28 08:33
    关注
     Dim num11 As double
    Dim num8 As double
    Dim num7 As double
    Dim num9 As double
    Dim num11 As double
    Dim num10 As double
    num9 = CDbl(TextBox11.Text)
    num10 = CDbl(TextBox12.Text)
    num11 = CDbl(TextBox13.Text)
    num7 = num1 / (0.25 * 3.14 * 0.6 * 0.6) / 3600
    num8 = num2 / (12.7 * 31) / 3600
    TextBox11.Text = CSTR(0.021 * (num7 * 0.6 / 81.2 / 10 ^ (-6)) ^ (0.84) * 0.595 ^ (0.36) * (0.615 / 0.61) ^ (0.25) * 0.0699 / 0.6)
    TextBox12.Text = CSTR( 0.021 * (num8 * 0.6 / 79.3 / 10 ^ (-6)) ^ (0.84) * 0.7 ^ (0.36) * (0.7 / 0.7) ^ (0.25) * 0.0562 / 0.6)
    TextBox13.Text =  CSTR(num9 * num10 / (num9 + num10))
    
    评论

报告相同问题?

悬赏问题

  • ¥15 DIFY API Endpoint 问题。
  • ¥20 sub地址DHCP问题
  • ¥15 delta降尺度计算的一些细节,有偿
  • ¥15 Arduino红外遥控代码有问题
  • ¥15 数值计算离散正交多项式
  • ¥30 数值计算均差系数编程
  • ¥15 redis-full-check比较 两个集群的数据出错
  • ¥15 Matlab编程问题
  • ¥15 训练的多模态特征融合模型准确度很低怎么办
  • ¥15 kylin启动报错log4j类冲突