十进制转为十六进制

打开VB，选取command按钮，在command中进行编译，内容如下:

Private Sub Command1_Click()

Me.Font.Size = 30

Dim a As Integer

Dim b As Integer

Dim s As String

Dim yushu As Byte

a = 1700: b = 16

While a <> 0

yushu = a Mod b

s = f(yushu) & s

a = a \ b

Wend

Print s

End Sub

Private Function f(yushu As Byte) As String

If yushu <= 9 Then

f = yushu

Else

f = Chr(yushu + 55)

End If

End Function

2.用select语句表示

Private Sub Command1_Click()

Me.Font.Size = 30

Dim a As Integer

Dim b As Integer

Dim s As String

Dim yushu As Byte

a = 1700: b = 16

While a <> 0

yushu = a Mod b

s = f(yushu) & s

a = a \ b

Wend

Print s

End Sub

Private Function f(yushu As Byte) As String

If yushu <= 9 Then

f = yushu

Else

Select Case yushu

Case 10

f = "A"

Case 11

f = "B"

Case 12

f = "C"

Case 13

f = "D"

Case 14

f = "E"

Case 15

f = "F"

End Select

End If

End Function

总结：十进制数：1700 转为十六进制数：6A4

第一种相对于第二种来说，过程比较简洁。