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))
    
    评论

报告相同问题?

悬赏问题

  • ¥20 ML307A在使用AT命令连接EMQX平台的MQTT时被拒绝
  • ¥20 腾讯企业邮箱邮件可以恢复么
  • ¥15 有人知道怎么将自己的迁移策略布到edgecloudsim上使用吗?
  • ¥15 错误 LNK2001 无法解析的外部符号
  • ¥50 安装pyaudiokits失败
  • ¥15 计组这些题应该咋做呀
  • ¥60 更换迈创SOL6M4AE卡的时候,驱动要重新装才能使用,怎么解决?
  • ¥15 让node服务器有自动加载文件的功能
  • ¥15 jmeter脚本回放有的是对的有的是错的
  • ¥15 r语言蛋白组学相关问题