财务部门工作流程图:求教编程序
来源:百度文库 编辑:神马品牌网 时间:2024/08/31 04:01:29
有一个程序题,最后不知道应该怎么显示
题目要求是:输入三个数字,按从小到大的次序显示
已经编的程序如下
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b Then
t = a
a = b
b = t
End If
If b > c Then
t = b
b = c
c = t
If a > c Then
t = a
a = c
c = t
End If
End If
下一不怎么显示出来,程序怎么写
题目要求是:输入三个数字,按从小到大的次序显示
已经编的程序如下
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b Then
t = a
a = b
b = t
End If
If b > c Then
t = b
b = c
c = t
If a > c Then
t = a
a = c
c = t
End If
End If
下一不怎么显示出来,程序怎么写