实时错误'5': 无效的过程调用或参数

来源：百度知道 编辑：UC知道 时间：2024/05/22 20:20:45
请帮忙看看
Private Sub Command1_Click()
Dim a, b, c, xf, xw, xd, rmin, nmin, aw, af, ad As Single
Dim fz, fm, am As Double
Dim yyzl, nyzl As Single
Dim r(20)
Dim x(20)
Dim y(20)
Dim n(20)
Dim q, crr As String
Dim z(20)
q = ""
crr = ""
a = Val(f.Text)
b = Val(d.Text)
c = Val(w.Text)
yf = Val(yf.Text)
yd = Val(yd.Text)
yw = Val(yw.Text)
yyzl = Val(yl.Text)
nyzl = Val(nl.Text)

xf = (nyzl * a) / (100 * yyzl - yyzl * a + nyzl * a)
xd = (nyzl * b) / (100 * yyzl - yyzl * b + nyzl * b)
xw = (nyzl * c) / (100 * yyzl - yyzl * c + nyzl * c)
xfm.Text = Val(xf) * 100
xdm.Text = Val(xd) * 100
Text3.Text = Val(xw) * 100

rmin = (xd - yf) / (yf - xf)

af = (xf * yf - yf) / (xf * yf - xf)
ad = (xd * yd - yd) / (xd * yd - xd)
af = (xw * yw - yw) / (xw * yw - xw)
am = (af * aw * ad) ^ (1 / 3)
fz = Log((xd / (1 - xd))

运行库里面一般不会包括ActiveX，看看是不是有控件没有考过去
Shell 只能调用可执行文件。

函数声明：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
函数调用：
Public Sub ShellFile(ByVal strFile As String)
Dim rtn As Long, hWnd As Long
On Error Resume Next
rtn = ShellExecute(hWnd, "OPEN", strFile, "", "", 1)
End Sub
通过SheetFile可以自动启动对应的程序并打开文档。

你自己看一下am的值是否超出的log的变量范围