16进制的转换,随机数排序
来源:互联网 发布:pc mac os x 编辑:程序博客网 时间:2024/06/06 09:36
1.
Private Sub Command1_Click()
Dim a As Long
Dim b As Integer
Dim yushu As Byte
Dim s As String
a = 123456
b = 16
While a <> 0
yushu = a Mod b
If yushu < 10 Then
s = yushu & s
Else
s = Chr(yushu + 55) & s
End If
a = a \ b
Wend
Print s
End Sub
2.
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd * 100)
Next i
Dim j As Integer
Dim t As Integer
For j = 1 To 9
For i = j + 1 To 10
If a(j) < a(i) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
End Sub
3.
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd * 100)
Next i
Dim j As Integer
Dim t As Integer
For j = 1 To 9
For i = 1 To 10 - j
If a(i) < a(i + 1) Then
t = a(i)
a(i) = a(i + 1)
a(i + 1) = t
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub Command1_Click()
Dim a As Long
Dim b As Integer
Dim yushu As Byte
Dim s As String
a = 123456
b = 16
While a <> 0
yushu = a Mod b
If yushu < 10 Then
s = yushu & s
Else
s = Chr(yushu + 55) & s
End If
a = a \ b
Wend
Print s
End Sub
2.
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd * 100)
Next i
Dim j As Integer
Dim t As Integer
For j = 1 To 9
For i = j + 1 To 10
If a(j) < a(i) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
End Sub
3.
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd * 100)
Next i
Dim j As Integer
Dim t As Integer
For j = 1 To 9
For i = 1 To 10 - j
If a(i) < a(i + 1) Then
t = a(i)
a(i) = a(i + 1)
a(i + 1) = t
End If
Next i
Next j
For i = 1 To 10
Print a(i)
Next i
End Sub
0 0
- 16进制的转换,随机数排序
- Java生成随机数工具类,进制之间的转换工具类,获取指定时间,时间格式转换工具类
- Java生成随机数工具类,进制之间的转换工具类,获取指定时间,时间格式转换工具类
- 数的16进制转换加选择排序法,冒泡排序法
- 明明的随机数(不重复,排序)+随机数生成
- 随机数排序
- 进制转换、冒泡排序、选择排序
- 一组随机数的多种排序方法
- 十个随机数的排列(选择排序)
- |洛谷|NOIP2006|排序|P1059 明明的随机数
- 排序——明明的随机数
- 【排序】洛谷 P1059 明明的随机数
- 普及练习场 排序 明明的随机数
- android产生8位16进制的随机数
- 随机数产生转换-根据(1,5)随机数生成器,生成(1,7)之内的随机数
- 随机数产生转换-根据(1,5)随机数生成器,生成(1,7)之内的随机数
- 随机数产生转换-根据(1,5)随机数生成器,生成(1,7)之内的随机数
- 黑马程序员-数组的排序、查找、进制转换
- 使用stringstream对象简化类型转换
- python 内置函数 reversed()
- Linux GCC内嵌汇编基础知识
- 跟随手指的小球
- 【mybatis源码分析】原理分析之一:从JDBC到Mybatis
- 16进制的转换,随机数排序
- iOS开发中一些常用的方法
- spring常问面试题
- pdo_mysql 安装
- 数据可视化指南(干货)
- java代码工具--Date格式化
- iOS自定义弹窗(UIView)
- 第十周项目五 摩托车继承自行车和机动车
- C++常用的字符串处理函数-全