Question

VB执行后的结果是什么?求高手讲解,谢谢!

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入一个数")
b = InputBox("输入一个数")
c = InputBox("输入一个数")
If b > a Then
d = a: a = b: b = d
End If
If c > a Then
d = a: a = c: c = d
End If
If c > b Then
End If
Print a; b; c
End Sub

Answer 1

比较a b c的大小，按照从大到小排序。

If b > a Then
d = a: a = b: b = d
End If

如果输入的数中b 大，则 a，b的值交换，交换后则a大

If c > a Then
d = a: a = c: c = d
End If

然后比较 c和a，同理，如果c大，则 a和c的值交换，

当此时 a是3个数字中的最大值

然后比较b，c，如果c大，则交换bhec的值

最后按照从大到小输出a b c

追问

假设a=12.3 b=35.8 c=25.7
If b > a Then
d = a: a = b: b = d 是不是条件成立?
If c > a Then
d = a: a = c: c = d是不是条件不成立?
If c > a Then
d = a: a = c: c = d是不是条件不成立?

追答

第一个条件成立，所以执行后，a=35.8 b=12.3 c=25.7；
第二个条件就不成立了，
第三个应该是b，c比较，如果c，a比较当然就不成立了

Answer 2

a得到输入的最大值。