小编sha*_*hay的帖子

我正在尝试实现下一个代码并得到错误-

无法分配给数组

错误在哪里？请注意，如果输入Dim arrf() As Variant而不是Dim arrf(5) As Variant输入错误，

类型不匹配

Public Function calc(ByVal value As Integer, ByVal num As Integer) As Variant()

Dim arr(5) As Variant
Dim x As Double

If value >= num Then
    x = value - Application.RoundDown(value / num, 0) * num
    arr(0) = x
    arr(1) = num - arr(0)
    arr(2) = Application.RoundUp(value / num, 0)
    arr(3) = 1
    arr(4) = Application.RoundDown(value / num, 0)
    arr(5) = 1
Else
    x = num - …