VB或vbs算法问题?输入4个数字(可能包含小数),经过比较后按由大到小(或由小到大)排列输出。
随机输入4个数字(可能包含小数),比较大小并将4个数按由大到小(或由小到大)排列输出。如输入(12.8,4.1,161,12) 输出(161,12.8,12,4.1),再如输入(15.6,5,12,361.79) 输出(361.79,15.6,12,5) 算法越是简单有效越好。求高人指点思路。
用冒泡排序法
Dim a(4) As Single
Dim m As Single '定义临时变量
For i = 1 To 4
a(i) = Val(InputBox("请输入第" & i & "个数字"))
Next i
For i = 1 To 3
For j = 1 To 4 - i
If a(j) > a(j + 1) Then '比较
'交换
m = a(j)
a(j) = a(j + 1)
a(j + 1) = m
End If
Next j
Next i
For i = 1 To 4
Print a(i)
Next i
运行时把窗体autoredraw调为True
热门标签: