189 8069 5689
private
创新互联公司自2013年创立以来，先为兴平等服务建站，兴平等地企业，进行企业商务咨询服务。为兴平企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
sub
command1_click()
dim
a
as
long,
b
as
long,
c
as
long
a
=
inputbox("请输入第1个数的值",
"提示")
b
=
inputbox("请输入第2个数的值",
"提示")
c
=
inputbox("请输入第3个数的值",
"提示")
d
=
iif(iif(a
b,
a,
b)
c,
iif(a
b,
a,
b),
c)
x
=
iif(iif(a
b,
a,
b)
c,
iif(a
b,
a,
b),
c)
z
=
a
+
b
+
c
-
d
-
x
cls
a
"
,
"
b
"
,
"
c
"按从大到小排列为"
d
"
"
z
"
"
x
end
sub
==============================
如果是vb.net
，可以用math类的max，min方法，呵
Private Sub Command1_Click()
Dim a As Integer 定义a变量为整型变量
Dim b As Integer 定义b变量为整型变量
Dim c As Integer 定义c变量为整型变量
Dim m As Integer 定义m变量为整型变量，用作比较时的临时变量
Label3.Caption = Val(Text1.Text) 将Text1录入的值显示到Label3
Label4.Caption = Val(Text2.Text) 将Text2录入的值显示到Label4
Label5.Caption = Val(Text3.Text) 将Text3录入的值显示到Label5
a = Val(Text1.Text) 将Text1录入的值赋给变量a
b = Val(Text2.Text) 将Text2录入的值赋给变量b
c = Val(Text3.Text) 将Text3录入的值赋给变量c
If a b Then m = a: a = b: b = m
比较a，b的值，如果ab，则a,b互换，变量m起到临时存放数值的作用，
If a c Then m = a: a = c: c = m
比较a，c的值，如果ac，则a,c互换
If b c Then m = b: b = c: c = m
比较b，c的值，如果bc，则b,c互换
Label7.Caption = a " " b " " c
在Label7上显示由大到小的三个数值
End Sub
由小到大：
Private Sub Command1_Click()
Dim a As Integer 定义a变量为整型变量
Dim b As Integer 定义b变量为整型变量
Dim m As Integer 定义c变量为整型变量
a = Val(Text1.Text)将Text1录入的值赋给变量a
b = Val(Text2.Text)将Text2录入的值赋给变量b
Label4.Caption = Val(Text1.Text) 将Text1录入的值显示到Label4
Label5.Caption = Val(Text2.Text) 将Text2录入的值显示到Label5
If a b Then m = a: a = b: b = m
比较a，b的值，如果ab，则a,b互换，变量m起到临时存放数值的作用，
Label6.Caption = a " " b
在Label6上显示由小到大的两个数值
End Sub
'选择法
Private Sub Command9_Click()
Me.Cls '创建Text1,输入10组数据,用空格分开之
Dim i, j, Maxid As Integer, Max, k(0 To 9), tmp As Single, f() As String
f() = Split(Trim(Text1), " ")
If UBound(f) 9 Then Exit Sub
For i = 0 To 9
k(i) = CSng(f(i))
Next i
For i = 0 To 9
Max = k(0)
Maxid = 0
k(0) = k(9 - i)
For j = 0 To (8 - i)
If k(j) Max Then
tmp = Max
Max = k(j)
k(j) = tmp
Maxid = j
End If
Next j
Print Max;
Next i
End Sub
'====================================================
'插入法
'创建控件Command5,Text3,在Text3中输入若干组数据,并用空格分开各组数据
Text3 = Trim(Text3)
Dim f() As String, tmp As Single, i As Single, j As Single
f = Split(Text3, " ")
If UBound(f) = 0 Then Exit Sub
ReDim h(0 To UBound(f) - 1) As String
For i = 0 To UBound(f)
For j = i To UBound(f)
If CSng(f(j)) CSng(f(i)) Then
tmp = f(i)
f(i) = f(j)
f(j) = tmp
End If
Next j
Next i
Text3 = ""
For i = 0 To UBound(f)
Text3 = Text3 CSng(f(i))
If i UBound(f) Then Text3 = Text3 " "
Next i
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 100 '给数组a一百个元素赋值，并换每行十个数字输出来窗体上
a(i) = Int(Rnd * 101)
k = k + 1
Print Tab((k - 1) * 5); a(i);
If k = 10 Then k = 0: Print
Next i
For i = 100 To 2 Step -1 '用冒泡排序法对数组进行排序
For j = 1 To i - 1
If a(j) a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 100 '输出排好序的数组
k = k + 1
Print Tab((k - 1) * 5); a(i);
If k = 10 Then k = 0: Print
Next i
End Sub
Private
Sub
Command1_Click()
Dim
a
As
Long,
b
As
Long,
c
As
Long
a
=
InputBox("请输入第1个数的值",
"提示")
b
=
InputBox("请输入第2个数的值",
"提示")
c
=
InputBox("请输入第3个数的值",
"提示")
d
=
IIf(IIf(a
b,
a,
b)
c,
IIf(a
b,
a,
b),
c)
x
=
IIf(IIf(a
b,
a,
b)
c,
IIf(a
b,
a,
b),
c)
z
=
a
+
b
+
c
-
d
-
x
Cls
a
"
,
"
b
"
,
"
c
"按从大到小排列为"
d
"
"
z
"
"
x
End
Sub
==============================
如果是VB.net
，可以用math类的MAX，MIN方法，呵
vb2010写的：
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim str As String = ""
Dim a(30) As Integer
Dim temp As Integer
str = str "生成的30个随机数字是 " vbCrLf
For i = 1 To 30
a(i) = Int(Rnd() * 50 + 1)
str = str a(i) " "
If i Mod 10 = 0 Then
str = str vbCrLf
End If
Next
str = str vbCrLf
For i = 1 To 30
For j = 1 To 30 - i
If a(j) a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
str = str "排序后的数字是 " vbCrLf
For i = 1 To 30
str = str a(i) " "
If i Mod 10 = 0 Then
str = str vbCrLf
End If
Next
TextBox6.Text = str
End Sub
运行结果：
生成的30个随机数字是
36 27 29 15 16 39 1 39 41 36
3 21 44 40 19 49 44 3 48 19
27 39 3 30 24 15 32 33 14 14
排序后的数字是
49 48 44 44 41 40 39 39 39 36
36 33 32 30 29 27 27 24 21 19
19 16 15 15 14 14 3 3 3 1