heheda~

今天没有可描述的心情，。但是我想对自己说，要坚持！

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