Question

VB编程求最大值问题

有四个文本框，在里面输入四个数字，点击确认，显示出最大的那个数。怎么编？

Answer 1

有四个文本框 和一个command按钮 这是代码复制进去就可以用
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2): c = Val(Text3): d = Val(Text4)
If a > b And a > c And a > d Then
Print 最大数是; a
ElseIf b > a And b > c And b > d Then
Print 最大数是; b
ElseIf c > a And c > b And c > d Then
Print 最大数是; c
Else
Print 最大数是; d
End If
End Sub

Answer 2

冒泡法排序,如果你懂的话,这个so easy.不但可以显示出最大的那个数,还可以让他们从大到小排序.试着百度一下"冒泡 排序",肯定比直接告诉你答案有收获.