Dim a(1 To 3, 1 To 3) As Integer
Dim Scr As Integer
For i = 1 To 3
For j = 1 To 3
Scr = Val(InputBox("", "", 100))
a(i, j) = Scr
Debug.Print 7-Len(a(i, j))
Next j
Next i

Len用于求长度时，只能用于字符串，而不能求数字的位数，对于数值型变量，Len返回的是该变量在内存中所占的字节数，比如Integer就是2个字节，所以Len(a(i,j))等于2
要想用Len求数值的位数，有两种方法：
1.用CStr函数将数值转换成字符串
2.将变量定义为Variant类型，当Len函数作用于Variant型变量时，无论变量的值为何种类型，都会转换成字符串，然后返回其长度