VB程序设计题:任意三个数ABC,将其按由大到小的顺序显示出来
VB程序设计题:任意三个数ABC,将其按由大到小的顺序显示出来
日期：2021-06-06 16:51:07 人气：1
'假设要比较的三个数输入在Text1,text2,text3，结果放在text4
Private Sub Command1_Click()
Dim a, b, c, d As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then d = a: a = b: b = d
If b < c Then d = b:
Private Sub Command1_Click()
Dim a, b, c, d As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then d = a: a = b: b = d
If b < c Then d = b: