大佬们，为什么结果一直是5啊？

只看楼主
收藏
回复

传播感恩
函数调用
6

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

初音七奈
钩子编程
15

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

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

2回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六