Question

用VB 编写了一段控制代码 但运行是提示 无效外部过程

Public P As Long
Public U As Integer
Public W As Integer
Set P = U / W
If P > 30 Then
Set W = W - 0.01 Or U = U + 0.01
If P < 30 Then
Set W = W + 0.01 Or U = U - 0.01
End If
End If
Else
End

Answer 1

写错了
记得 W不能为0

Public P As Long
Public U As Integer
Public W As Integer
Set P = U / W
If P > 30 Then
Set W = W - 0.01 Or U = U + 0.01
Else If P < 30 Then
Set W = W + 0.01 Or U = U - 0.01
End If

End

追问

提示 要求对象 定义到 set P= U/W 的set

追答

汗 叫你给值了啊

我以为你的代码是简化的来的
U和W你自己处理了
Public P As Long
Public U As Integer
Public W As Integer
U = 10
W = 2
...........