哪位VB高手看看程序哪里出了问题，为什么显示子程序或函数未定义呢？

Dim k As Integer, g As Integer
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single, e As Single, f As Single, h As Single, i As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = 0.001 / 3600
f = d * e * (b ^ 2) / (a * h * c)
If k = 1 Then
h = 137
If g = 1 Then
If f > 0.1 And f < 1 Then
i = 26.79 * Exp(-2.4 * f)
End If
If f >= 1 * 10 ^ (-6) And f <= 0.1 Then
i = -16.33 * lg(f * 0.4886)
End If
End If
If g = 2 Then
i = -2.163 * lg(f * 0.9606)
End If
If g = 0 Then
MsgBox "请选选择屏蔽材料！", 48, "提示信息"
End If
End If
If k = 2 Then
h = 60
If g = 1

哪位高手帮帮看看这个C++中关于虚函数的程序到底问题出在哪里？ 哪位高手帮我看看这个C++的程序问题出在哪里吧？小弟刚开始学习Vc++ 大家帮我看看这个VB程序哪里错了 RSA加密 C程序问题 哪位高手救救命！看看哪里错了 希望哪位MATLAB高手，帮我看看这个程序哪里错了？急。 哪位高手帮我看看究竟是哪里出了问题~~~~~关于下载mp3到手机 哪位高手看看这个程序哪里有问题？ 谁能帮我看看这个c程序哪里出了问题 修改用户密码的asp代码，哪位高手看看哪里出了问题？解决问题后再加20悬赏分 是不是系统出了问提？高手进来看看