Question

vb 运行错误 1004 不能取得类WorksheetFunction的Combin属性

Sub 1()
m = InputBox（“参数1”）
n = 60
o = InputBox（“参数2”）
For y = o To n
For Z = 0 To (m - 1)
x = Application.WorksheetFunction.Combin(y, Z) * Application.WorksheetFunction.Combin(60 - y, o - Z) / Application.WorksheetFunction.Combin(60, o) + x
Next
If x < 0.2 Then
MsgBox ( y)
End If
Next
End Sub

Answer 1

输入的两个数字超出范围了

追问

m我输入的是5，o输入的是10。应该不会超啊

追答

不相信就算了