Question

VB 编写程序，从键盘上输入任意3个数按从小大的顺序输出。

要VB 还要 最容易的
要
Dim a, s, d As Integer
a = InputBox("请输入第一个数")
s = InputBox("请输入第二个数")
d = InputBox("请输入第三个数")
…………………………选择语句最好，循环嘛 也可以

Answer 1

Private Sub Form_Load()
Dim x As Integer, y As Integer, z As Integer
Dim diyige As Integer
Dim dierge As String, disange As String, disige As String
diyige = InputBox("请输入第一个数据:", "数据输入窗口")
dierge = InputBox("请输入第二个数据", "数据输入窗口")
disange = InputBox("请输入第三个数据", "数据输入窗口")
x = Val(diyige)
y = Val(dierge)
z = Val(disange)
If x > y And y > z Then
Print z, y, x
ElseIf y > z And z > x Then
Print x, z, y
ElseIf z > x And x > y Then
Print y, x, z
End If
Print "你输入的数据按从小到大的顺序是:"
End Sub

Answer 2

Private Sub Command1_Click()
Dim a, b, c, d, i
a = InputBox("请输入第一个数：")
b = InputBox("请输入第二个数：")
c = InputBox("请输入第三个数：")
For i = 1 To 3
If a > b Then d = a: a = b: b = d
If b > c Then d = b: b = c: c = d
Next
Print a, b, c
End Sub

Answer 3

Private Sub Command1_Click()
Dim a As Integer, s As Integer, d As Integer
a = InputBox("请输入第一个数")
s = InputBox("请输入第二个数")
d = InputBox("请输入第三个数")
If a > s Then a = a Xor s: s = s Xor a: a = a Xor s
If s > d Then s = s Xor d: d = d Xor s: s = s Xor d
If a > s Then a = a Xor s: s = s Xor a: a = a Xor s
Print a, s, d
End Sub

Answer 4

选择语句的话，你最好用IIF的哈，还有可以用数组排序的方式的哈