vb 学习
2016-03-24 16:38
483 查看
如何将三个数从大到小排列 。(真难)
Private Sub Command1_Click()
Cls
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If c < d Then
swap = c
c = d
d = swap
End If
If a < c Then
swap = a
a = c
c = swap
End If
If a < d Then
swap = a
a = d
d = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If b < d Then
swap = b
b = d
d = swap
End If
Print a & "," & b & "," & c & "," & d
End Sub
以此列举可以运用到n个数的大小排列
例如将十五个数大小排
Private Sub Command1_Click()
Cls
Me.Font.Size = 20
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim a5 As Integer
Dim a6 As Integer
Dim a7 As Integer
Dim a8 As Integer
Dim a9 As Integer
Dim a10 As Integer
Dim a11 As Integer
Dim a12 As Integer
Dim a13 As Integer
Dim a14 As Integer
Dim a15 As Integer
a1 = Int(Rnd * 1000)
a2 = Int(Rnd * 1000)
a3 = Int(Rnd * 1000)
a4 = Int(Rnd * 1000)
a5 = Int(Rnd * 1000)
a6 = Int(Rnd * 1000)
a7 = Int(Rnd * 1000)
a8 = Int(Rnd * 1000)
a9 = Int(Rnd * 1000)
a10 = Int(Rnd * 1000)
a11 = Int(Rnd * 1000)
a12 = Int(Rnd * 1000)
a13 = Int(Rnd * 1000)
a14 = Int(Rnd * 1000)
a15 = Int(Rnd * 1000)
If a1 < a2 Then
Call swap(a1, a2)
End If
If a1 < a3 Then
Call swap(a1, a3)
End If
If a1 < a4 Then
Call swap(a1, a4)
End If
If a1 < a5 Then
Call swap(a1, a5)
End If
If a1 < a6 Then
Call swap(a1, a6)
End If
If a1 < a7 Then
Call swap(a1, a7)
End If
If a1 < a9 Then
Call swap(a1, a9)
End If
If a1 < a10 Then
Call swap(a1, a10)
End If
If a1 < a11 Then
Call swap(a1, a11)
End If
If a1 < a12 Then
Call swap(a1, a12)
End If
If a1 < a13 Then
Call swap(a1, a13)
End If
If a1 < a14 Then
Call swap(a1, a14)
End If
If a1 < a15 Then
Call swap(a1, a15)
End If
If a2 < a3 Then
Call swap(a2, a3)
End If
If a2 < a4 Then
Call swap(a2, a4)
End If
If a2 < a5 Then
Call swap(a2, a5)
End If
If a2 < a6 Then
Call swap(a2, a6)
End If
If a2 < a7 Then
Call swap(a2, a7)
End If
If a2 < a8 Then
Call swap(a2, a8)
End If
If a2 < a9 Then
Call swap(a2, a9)
End If
If a2 < a10 Then
Call swap(a2, a10)
End If
If a2 < a11 Then
Call swap(a2, a11)
End If
If a2 < a12 Then
Call swap(a2, a12)
End If
If a2 < a13 Then
Call swap(a2, a13)
End If
If a2 < a14 Then
Call swap(a2, a14)
End If
If a2 < a15 Then
Call swap(a2, a15)
End If
If a3 < a4 Then
Call swap(a3, a4)
End If
If a3 < a5 Then
Call swap(a3, a5)
End If
If a3 < a6 Then
Call swap(a3, a6)
End If
If a3 < a7 Then
Call swap(a2, a7)
End If
If a3 < a8 Then
Call swap(a3, a8)
End If
If a3 < a9 Then
Call swap(a3, a9)
End If
If a3 < a10 Then
Call swap(a3, a10)
End If
If a3 < a11 Then
Call swap(a3, a11)
End If
If a3 < a12 Then
Call swap(a3, a12)
End If
If a3 < a13 Then
Call swap(a3, a13)
End If
If a3 < a14 Then
Call swap(a3, a14)
End If
If a3 < a15 Then
Call swap(a3, a15)
End If
If a4 < a5 Then
Call swap(a4, a5)
End If
If a4 < a6 Then
Call swap(a4, a6)
End If
If a4 < a7 Then
Call swap(a4, a7)
End If
If a4 < a8 Then
Call swap(a4, a8)
End If
If a4 < a9 Then
Call swap(a4, a9)
End If
If a4 < a10 Then
Call swap(a4, a10)
End If
If a4 < a11 Then
Call swap(a4, a11)
End If
If a4 < a12 Then
Call swap(a4, a12)
End If
If a4 < a13 Then
Call swap(a4, a13)
End If
If a4 < a14 Then
Call swap(a4, a14)
End If
If a4 < a15 Then
Call swap(a4, a15)
End If
If a5 < a6 Then
Call swap(a5, a6)
End If
If a5 < a7 Then
Call swap(a5, a7)
End If
If a5 < a8 Then
Call swap(a5, a8)
End If
If a5 < a9 Then
Call swap(a5, a9)
End If
If a5 < a10 Then
Call swap(a5, a10)
End If
If a5 < a11 Then
Call swap(a5, a11)
End If
If a5 < a12 Then
Call swap(a5, a12)
End If
If a5 < a13 Then
Call swap(a5, a13)
End If
If a5 < a14 Then
Call swap(a5, a14)
End If
If a5 < a15 Then
Call swap(a5, a15)
End If
If a6 < a7 Then
Call swap(a6, a7)
End If
If a6 < a8 Then
Call swap(a6, a8)
End If
If a6 < a9 Then
Call swap(a6, a9)
End If
If a6 < a10 Then
Call swap(a6, a10)
End If
If a6 < a11 Then
Call swap(a6, a12)
End If
If a6 < a13 Then
Call swap(a6, a13)
End If
If a6 < a14 Then
Call swap(a6, a14)
End If
If a6 < a15 Then
Call swap(a6, a15)
End If
If a7 < a8 Then
Call swap(a7, a8)
End If
If a7 < a9 Then
Call swap(a7, a9)
End If
If a7 < a10 Then
Call swap(a7, a10)
End If
If a7 < a11 Then
Call swap(a7, a12)
End If
If a7 < a13 Then
Call swap(a7, a14)
End If
If a7 < a15 Then
Call swap(a7, a15)
End If
If a8 < a9 Then
Call swap(a8, a9)
End If
If a8 < a10 Then
Call swap(a8, a10)
End If
If a8 < a11 Then
Call swap(a8, a11)
End If
If a8 < a12 Then
Call swap(a8, a12)
End If
If a8 < a13 Then
Call swap(a8, a13)
End If
If a8 < a14 Then
Call swap(a8, a14)
End If
If a8 < a15 Then
Call swap(a8, a15)
End If
If a9 < a10 Then
Call swap(a9, a10)
End If
If a9 < a11 Then
Call swap(a9, a11)
End If
If a9 < a12 Then
Call swap(a9, a12)
End If
If a9 < a13 Then
Call swap(a9, a13)
End If
If a9 < a14 Then
Call swap(a9, a14)
End If
If a9 < a15 Then
Call swap(a9, a15)
End If
If a10 < a11 Then
Call swap(a10, a11)
End If
If a10 < a12 Then
Call swap(a10, a12)
End If
If a10 < a13 Then
Call swap(a10, a13)
End If
If a10 < a14 Then
Call swap(a10, a14)
End If
If a10 < a15 Then
Call swap(a10, a15)
End If
If a11 < a12 Then
Call swap(a11, a12)
End If
If a11 < a13 Then
Call swap(a11, a13)
End If
If a11 < a14 Then
Call swap(a11, a14)
End If
If a11 < a15 Then
Call swap(a11, a15)
End If
If a12 < a13 Then
Call swap(a12, a13)
End If
If a12 < a14 Then
Call swap(a12, a15)
End If
If a13 < a14 Then
Call swap(a13, a14)
End If
If a13 < a15 Then
Call swap(a13, a15)
End If
If a14 < a15 Then
Call swap(a14, a15)
End If
Print a1 & "," & a2 & "," & a3 & "," & a4 & "," & a5 & "," & a6 & "," & a7 & "," & a8 & "," & a9 & "," & a10 & "," & a11 & "," & a12 & "," & a13 & "," & a14 & "," & a15
End Sub
Private Sub swap(x As Integer, y As Integer)
Dim temp As Integer
If x < y Then
temp = x
x = y
y = temp
End If
End Sub
(这里运用了一个函数)
Private Sub Command1_Click()
Cls
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If c < d Then
swap = c
c = d
d = swap
End If
If a < c Then
swap = a
a = c
c = swap
End If
If a < d Then
swap = a
a = d
d = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If b < d Then
swap = b
b = d
d = swap
End If
Print a & "," & b & "," & c & "," & d
End Sub
以此列举可以运用到n个数的大小排列
例如将十五个数大小排
Private Sub Command1_Click()
Cls
Me.Font.Size = 20
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim a5 As Integer
Dim a6 As Integer
Dim a7 As Integer
Dim a8 As Integer
Dim a9 As Integer
Dim a10 As Integer
Dim a11 As Integer
Dim a12 As Integer
Dim a13 As Integer
Dim a14 As Integer
Dim a15 As Integer
a1 = Int(Rnd * 1000)
a2 = Int(Rnd * 1000)
a3 = Int(Rnd * 1000)
a4 = Int(Rnd * 1000)
a5 = Int(Rnd * 1000)
a6 = Int(Rnd * 1000)
a7 = Int(Rnd * 1000)
a8 = Int(Rnd * 1000)
a9 = Int(Rnd * 1000)
a10 = Int(Rnd * 1000)
a11 = Int(Rnd * 1000)
a12 = Int(Rnd * 1000)
a13 = Int(Rnd * 1000)
a14 = Int(Rnd * 1000)
a15 = Int(Rnd * 1000)
If a1 < a2 Then
Call swap(a1, a2)
End If
If a1 < a3 Then
Call swap(a1, a3)
End If
If a1 < a4 Then
Call swap(a1, a4)
End If
If a1 < a5 Then
Call swap(a1, a5)
End If
If a1 < a6 Then
Call swap(a1, a6)
End If
If a1 < a7 Then
Call swap(a1, a7)
End If
If a1 < a9 Then
Call swap(a1, a9)
End If
If a1 < a10 Then
Call swap(a1, a10)
End If
If a1 < a11 Then
Call swap(a1, a11)
End If
If a1 < a12 Then
Call swap(a1, a12)
End If
If a1 < a13 Then
Call swap(a1, a13)
End If
If a1 < a14 Then
Call swap(a1, a14)
End If
If a1 < a15 Then
Call swap(a1, a15)
End If
If a2 < a3 Then
Call swap(a2, a3)
End If
If a2 < a4 Then
Call swap(a2, a4)
End If
If a2 < a5 Then
Call swap(a2, a5)
End If
If a2 < a6 Then
Call swap(a2, a6)
End If
If a2 < a7 Then
Call swap(a2, a7)
End If
If a2 < a8 Then
Call swap(a2, a8)
End If
If a2 < a9 Then
Call swap(a2, a9)
End If
If a2 < a10 Then
Call swap(a2, a10)
End If
If a2 < a11 Then
Call swap(a2, a11)
End If
If a2 < a12 Then
Call swap(a2, a12)
End If
If a2 < a13 Then
Call swap(a2, a13)
End If
If a2 < a14 Then
Call swap(a2, a14)
End If
If a2 < a15 Then
Call swap(a2, a15)
End If
If a3 < a4 Then
Call swap(a3, a4)
End If
If a3 < a5 Then
Call swap(a3, a5)
End If
If a3 < a6 Then
Call swap(a3, a6)
End If
If a3 < a7 Then
Call swap(a2, a7)
End If
If a3 < a8 Then
Call swap(a3, a8)
End If
If a3 < a9 Then
Call swap(a3, a9)
End If
If a3 < a10 Then
Call swap(a3, a10)
End If
If a3 < a11 Then
Call swap(a3, a11)
End If
If a3 < a12 Then
Call swap(a3, a12)
End If
If a3 < a13 Then
Call swap(a3, a13)
End If
If a3 < a14 Then
Call swap(a3, a14)
End If
If a3 < a15 Then
Call swap(a3, a15)
End If
If a4 < a5 Then
Call swap(a4, a5)
End If
If a4 < a6 Then
Call swap(a4, a6)
End If
If a4 < a7 Then
Call swap(a4, a7)
End If
If a4 < a8 Then
Call swap(a4, a8)
End If
If a4 < a9 Then
Call swap(a4, a9)
End If
If a4 < a10 Then
Call swap(a4, a10)
End If
If a4 < a11 Then
Call swap(a4, a11)
End If
If a4 < a12 Then
Call swap(a4, a12)
End If
If a4 < a13 Then
Call swap(a4, a13)
End If
If a4 < a14 Then
Call swap(a4, a14)
End If
If a4 < a15 Then
Call swap(a4, a15)
End If
If a5 < a6 Then
Call swap(a5, a6)
End If
If a5 < a7 Then
Call swap(a5, a7)
End If
If a5 < a8 Then
Call swap(a5, a8)
End If
If a5 < a9 Then
Call swap(a5, a9)
End If
If a5 < a10 Then
Call swap(a5, a10)
End If
If a5 < a11 Then
Call swap(a5, a11)
End If
If a5 < a12 Then
Call swap(a5, a12)
End If
If a5 < a13 Then
Call swap(a5, a13)
End If
If a5 < a14 Then
Call swap(a5, a14)
End If
If a5 < a15 Then
Call swap(a5, a15)
End If
If a6 < a7 Then
Call swap(a6, a7)
End If
If a6 < a8 Then
Call swap(a6, a8)
End If
If a6 < a9 Then
Call swap(a6, a9)
End If
If a6 < a10 Then
Call swap(a6, a10)
End If
If a6 < a11 Then
Call swap(a6, a12)
End If
If a6 < a13 Then
Call swap(a6, a13)
End If
If a6 < a14 Then
Call swap(a6, a14)
End If
If a6 < a15 Then
Call swap(a6, a15)
End If
If a7 < a8 Then
Call swap(a7, a8)
End If
If a7 < a9 Then
Call swap(a7, a9)
End If
If a7 < a10 Then
Call swap(a7, a10)
End If
If a7 < a11 Then
Call swap(a7, a12)
End If
If a7 < a13 Then
Call swap(a7, a14)
End If
If a7 < a15 Then
Call swap(a7, a15)
End If
If a8 < a9 Then
Call swap(a8, a9)
End If
If a8 < a10 Then
Call swap(a8, a10)
End If
If a8 < a11 Then
Call swap(a8, a11)
End If
If a8 < a12 Then
Call swap(a8, a12)
End If
If a8 < a13 Then
Call swap(a8, a13)
End If
If a8 < a14 Then
Call swap(a8, a14)
End If
If a8 < a15 Then
Call swap(a8, a15)
End If
If a9 < a10 Then
Call swap(a9, a10)
End If
If a9 < a11 Then
Call swap(a9, a11)
End If
If a9 < a12 Then
Call swap(a9, a12)
End If
If a9 < a13 Then
Call swap(a9, a13)
End If
If a9 < a14 Then
Call swap(a9, a14)
End If
If a9 < a15 Then
Call swap(a9, a15)
End If
If a10 < a11 Then
Call swap(a10, a11)
End If
If a10 < a12 Then
Call swap(a10, a12)
End If
If a10 < a13 Then
Call swap(a10, a13)
End If
If a10 < a14 Then
Call swap(a10, a14)
End If
If a10 < a15 Then
Call swap(a10, a15)
End If
If a11 < a12 Then
Call swap(a11, a12)
End If
If a11 < a13 Then
Call swap(a11, a13)
End If
If a11 < a14 Then
Call swap(a11, a14)
End If
If a11 < a15 Then
Call swap(a11, a15)
End If
If a12 < a13 Then
Call swap(a12, a13)
End If
If a12 < a14 Then
Call swap(a12, a15)
End If
If a13 < a14 Then
Call swap(a13, a14)
End If
If a13 < a15 Then
Call swap(a13, a15)
End If
If a14 < a15 Then
Call swap(a14, a15)
End If
Print a1 & "," & a2 & "," & a3 & "," & a4 & "," & a5 & "," & a6 & "," & a7 & "," & a8 & "," & a9 & "," & a10 & "," & a11 & "," & a12 & "," & a13 & "," & a14 & "," & a15
End Sub
Private Sub swap(x As Integer, y As Integer)
Dim temp As Integer
If x < y Then
temp = x
x = y
y = temp
End If
End Sub
(这里运用了一个函数)
相关文章推荐
- DEV控件 navbarControl 动态添加xml文件
- 【VB.NET视频总结(二)】
- VBA进度条
- VB热点答疑(2016.3.23更新)
- VB “秒表”窗体中有两个按钮“开始/停止”按钮
- [Slides notes] Financial Modeling using VBA
- VBA禁止安全警告和屏幕更新
- 用vb制作简单的播放器
- 【三层】VB.net版登录实例
- vb.net及C#串口基本通信
- EXCEL文件中的VBA模块名包含中文名导致打开失败的案例。
- VB属性设置
- VB与flash交互
- 【VB】VB操作Excel相关处理
- 15电气 齐振昊 实验名称:VB中数字的交换
- 15电气 齐振昊 实验名称:在VB中制作计时器(运行时时间是停止的)
- 15电气 齐振昊 实验名称:在VB中制作计时器
- 【VB.NET】常用函数概览
- vbs : 将WPS表格另存为文本文件
- 《首看vb.net》