將十進制數轉換成二進制數

先以數字23爲例

具體程序爲

Private Sub Command1_Click()

Me.Font.Size = 60

Dim n As Byte

n = 23

Const er As Byte = 2

 

Dim shang As Byte

Dim yushu(1 To 5) As Byte

Dim i As Byte

i = 5

shang = n \ er

yushu(i) = n Mod er

 

While shang <> 0

  i =i - 1

  n =shang

 shang = n \ er

  yushu(i)= n Mod er

Wend

 

Print yushu(1); yushu(2); yushu(3);yushu(4); yushu(5)

End Sub

之後拓展思路

將23變爲任意數字

效果圖如下

具體程序是

Private Sub Command1_Click()

Me.Font.Size = 60

Print erjinzhi(230)

End Sub

Private Function erjinzhi(m As Byte) AsString

Dim n As Byte

n = m

Const er As Byte = 2

Dim returns As String

Dim shang As Byte

Dim yushu(1 To 8) As Byte

Dim i As Byte

i = UBound(yushu)

shang = n \ er

yushu(i) = n Mod er

returns = yushu(i)

While shang <> 0

  i =i - 1

  n =shang

 shang = n \ er

 yushu(i) = n Mod er

 returns = yushu(i) & returns

Wend

 

erjinzhi = returns

 

End Function

頭一次在課堂上寫博客....

到現在上網的密碼都還沒有想起來