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

来源:互联网 发布:halo mac 编辑:程序博客网 时间:2024/04/29 23:51

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进制数,但是从老师的课堂中我学会了要做一个创造者,不要老做使用者。

 

 

0 0
原创粉丝点击
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防,我是瞎子 两岁宝宝着凉了怎么办 7岁儿童晚上鼻塞怎么办 儿童感冒鼻塞怎么办速效办法 7岁儿童感冒鼻塞怎么办 七个月婴儿感冒流鼻涕怎么办 婴儿感冒流鼻涕怎么办速效办法 三个月婴儿感冒咳嗽流鼻涕怎么办 五个月婴儿感冒咳嗽流鼻涕怎么办 两个多月的宝宝鼻塞怎么办 3个月宝宝感冒鼻塞怎么办 2个月宝宝感冒鼻塞怎么办 5个月宝宝鼻塞怎么办 6个月宝宝鼻塞怎么办 3个月婴儿感冒咳嗽怎么办 感冒打喷嚏打不出来怎么办 4岁宝宝体温37.5怎么办 8个月的宝宝鼻塞怎么办 4个月婴儿鼻塞怎么办 我一躺下就鼻塞怎么办 感冒了鼻子堵了怎么办 感冒鼻涕流的多怎么办 小孩感冒鼻塞怎么办最简单方法 鼻子痒老打喷嚏流鼻涕怎么办 眼睛红痒鼻子流鼻涕怎么办 19个月宝宝流鼻血怎么办 9个月宝宝流鼻血怎么办 8个月宝宝流鼻血怎么办 4个月宝宝流鼻血怎么办 20个月宝宝发烧流鼻血怎么办 60天宝宝老鼻塞怎么办 10个月宝宝头被撞到流鼻血怎么办 狗狗受凉吐了怎么办 狗狗咳嗽流鼻涕一直不好怎么办 宝宝感冒咳嗽流鼻涕发烧怎么办 狗狗感冒咳嗽流鼻涕怎么办 9岁儿童咳嗽鼻塞怎么办 三个月大的狗狗流鼻涕怎么办 3个月小狗干呕流鼻涕怎么办 狗狗流鼻涕怎么办有浓 小狗狗感冒了怎么办呢 狗狗一直擤鼻涕怎么办