Question

vb 如何取4 个数字 排序. 最大值 和 最小值

1.如何使用vb利用inputbox 输入4 个数字 . 分别 排序 由小至大
2.如何使用vb利用inputbox 输入4 个数字 取 最大值 和 最小值

Answer 1

Dim A(1 To 4) As Integer

Private Sub Command1_Click()
For I = 1 To 4
A(I) = InputBox("")
Next I
'开始冒泡排序
For I = 1 To 3
For J = I + 1 To 4
'冒泡原理（大的数下沉，小的数上浮）即（如果前面的大于后面的数，两者交换）
If A(I) > A(J) Then temp = A(I): A(I) = A(J): A(J) = temp
Next J
Next I
For I = 1 To 4
Print A(I)
Next
Print "max:" & A(4)
Print "min:" & A(1)
End Sub

Answer 2

Private Sub Command1_Click()
Dim a(1 To 4) As Integer
For i = 1 To 4
a(i) = InputBox("请你输入a(" & i & ")")
Next i
Max = a(1): Min = a(1)
For i = 2 To 4
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next i

For i = 1 To 3

For j = 4 To i + 1 Step -1

If a(i) > a(j) Then b = a(i): a(i) = a(j): a(j) = b

Next j
Next i
For i = 1 To 4
Print a(i)
Next
Print "max:" & Max
Print "min:" & Min
End Sub

Answer 3

x1=inputbox
x3=inputbox
x2=inputbox
x4=inputbox
if x1<x2 then
if x2<x3 then
if x3<x4 then
m=x4
else
......
msgbox "最大是" & m
...

Answer 4

Dim a%, b%, c%, d%, max%, min%
a = InputBox("请输入一个整数", "比较大小")
b = InputBox("请输入一个整数", "比较大小")
c = InputBox("请输入一个整数", "比较大小")
d = InputBox("请输入一个整数", "比较大小")
max = IIf(a > b, a, b)
min = IIf(a > b, b, a)
max = IIf(max > c, max, c)
min = IIf(min > c, c, min)
max = IIf(max > d, max, d)
min = IIf(min > d, d, min)
MsgBox ("最大值为" & max & vbCrLf & "最小值为" & min)
排序如果后面算法都不用的，就挨个比较吧