7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim x As Single
Dim X2 As Single
x = 4294967295#
X2 = x And &HFFFF
End Sub
Private Sub Command1_Click()
Dim x As Single
Dim X2 As Single
x = &HFFFFFFFF
X2 = x And &HFFFF
End Sub
Private Sub Command1_Click()
Dim x As Single
Dim X2 As Single
x = 4294967295#
X2 = Hex(x) And &HFFFF
End Sub
Private Sub Command1_Click()
Dim x As Single
Dim X2 As Single
x = 4294967295#
X2 = Hex(x) And &HFFFF
End Sub