输出16进制数和冒泡排序法

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim s As String

Dim yushu As Byte

a = 1230: 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, 11, 12, 13, 14, 15

  f = Chr(yushu + 55)

End Select

End If

End Function

 

 

 

 

Private Function f(yushu As Byte) As String

If yushu <= 9 Then

  f = yushu

Else

  f = Chr(yushu + 55)

End If

End Function

 

 

 

 

 

Private Sub Command1_Click()

Me.Font.Size = 20

Dim a(10) As Integer

Dim i As Integer

  For i = 1 To 10

  a(i) = 10 + Int(Rnd() * 100)

Print a(i);

Next i

Print

Dim j As Integer

For j = 1 To 9

For i = j + 1 To 10

If a(j) < a(i) Then

  swap a(j), a(i)

End If

Next i

 

For i = 1 To 10

Print a(i);

Next i

Print

Next j

End Sub

 

Private Sub swap(a As Integer, b As Integer)

 

 

 

  Dim t As Integer

  t = a

  a = b

  b = t

 End Sub

 心得体会：虽然可以用一个函数就能输出对应的16进制数，但是从老师的课堂中我学会了要做一个创造者，不要老做使用者。