heheda~
来源：互联网 发布：网盘网站源码 编辑：程序博客网 时间：2024/05/16 12:10
今天没有可描述的心情，
。但是我想对自己说，要坚持！
Private Sub Command1_Click()
Me.Font.Size = 70
'Print Hex(230)
Dim a As Integer
a= 230
Dim b As Integer
b= 2
Dim yushu01 As Byte
yushu01 = a Mod b
a= a \ 2 '115
Dim yushu02 As Byte
yushu02 = a Mod b
a= a \ 2 '57
Dim yushu03 As Byte
yushu02 = a Mod b
a= a \ 2 '28
Dim yushu04 As Byte
yushu02 = a Mod b
a= a \ 2 '14
Dim yushu05 As Byte
yushu02 = a Mod b
a= a \ 2 '7
Dim yushu06 As Byte
yushu02 = a Mod b
a= a \ 2 '3
Dim yushu07 As Byte
yushu02 = a Mod b
a= a \ 2 '1
Dim yushu08 As Byte
yushu02 = a Mod b
a= a \ 2 '0
End Sub
2 0 0
