碰到一个bug，没法解释，求助

Private Sub Form_Load()
Dim i As Long
For i = 0 To 255
Debug.Print i, Format(Hex(i), "##")
Next i
End Sub
‘###################### 上面是代码，额，自己拷贝过去运行就行了。
bug就是，
0 ，26， 42 ，58 ，74 ，90 ，106 ，122 ，138， 154 这几个数的format的结果是空字符串。哦对了，他们对应的hex分别是 0,1A,2A,3A,4A,5A,6A,7A,8A,9A。
在debug窗口直接输出 ?Format("1A", "##")，结果也是空

这不是bug谢谢
Format对数值进行格式化时只能识别十进制数，十六进制数是无法认作数值的（你可以看看10~15对应的A~F前面有没有0）；
而字符a是日期型值的特殊字符，表示“上午”，所以1A就是上午1点，用Format的#格式化字符时将日期型值先转换成数值，再对数值进行格式化，转换规则为：日期转换成整数，时间转换成0~1之间的小数，所以上午的时间转换成数值都是小于0.5的，四舍五入取整之后都是0，所以这几个数实际上输出的是0
而使用#格式化字符时，0是不会显示的，所以这些输出0的就都变成空字符串了

Private Sub Form_Load()
Dim i As Long
For i = 0 To 255
Debug.Print i, Format(Hex(i), "@@")
Next i
End Sub
你试试这个,我猜原因是 hex返回的是字符串,你用数字的格式符产生了不可预知的错误

扫二维码下载贴吧客户端

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

5回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六