输出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
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
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进制数,但是从老师的课堂中我学会了要做一个创造者,不要老做使用者。
- 输出16进制数和冒泡排序法
- java 冒泡排序和字符串倒叙输出
- 输出从大到小排序的成绩(冒泡排序法)
- 选择排序法和冒泡排序法
- 冒泡排序法和插入排序法
- 冒泡排序法和选择排序法
- 冒泡排序法和选择排序法
- 冒泡法排序和选择法排序
- 冒泡排序法和选择排序法
- 选择排序法和冒泡排序法
- 简单排序和冒泡排序法
- 冒泡排序和选择法排序
- java冒泡排序和选择排序法
- 冒泡排序法和二分法排序
- Java:冒泡排序法 和 选择排序
- 快速排序法和冒泡排序
- 冒泡排序&乱序输出
- 冒泡升序和冒泡排序
- 顺序栈C语言实现
- Android中的Drawable
- js获取当前日期
- H5Css3动画 背景图 制作帧动画
- 反射机制--获取Class中的方法
- 输出16进制数和冒泡排序法
- 代码的命名规范
- HDU 5676 ztr loves lucky numbers dfs+二分
- ssh中 各种映射文件的作用及详解
- 栈内存和堆内存
- NITE数据
- android自定义键盘实现
- 【求职经历】四川移动暑期实习面试经历
- 5.11