vb程序运行出错，目标是公式1 / a0 * Log(r0 / rb * (k / ecs - 1) + 1)计算垂直能见距离H0的值。
发布网友
发布时间：2022-05-14 17:31
共1个回答
热心网友
时间：2023-10-16 19:55
Dim r0#, rb#, k#, ecs#, HO#, a0#'这里变量定义应该分别给出类型
r0 = Val(text1.Text)'最主要的问题是这五句写反了。朋友。
rb = Val(text2.Text)
ecs = Val(text3.Text)
a0 = Val(text4.Text)
HO = Val(text5.Text)
If r0 > rb Then
k = (r0 - rb) / r0
Else
k = (rb - r0) / rb
End If
End Sub追问其实问题出在Private Sub Form_Load()，不应该是这个，而是在Private Sub Command1_Click()下面就对了。
追答既然已经报了溢出错误，那你就要检查下你的数据类型定义是否有不妥，再检查下数据是否会超出定义范围了。朋友。这个别人就不能确定了。不了解实际情况。
