VB/一段代码求简便的方法。

qq2541213430 发布于 2017-11-25 18:36， 1598 次点击

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入")
b = InputBox("输入")
c = InputBox("输入")
If a > b And b > c Then
Print , a, b, c
ElseIf a > c And c > b Then
Print a, c, b
ElseIf b > a And a > c Then
Print b, a, c
ElseIf b > c And c > a Then
Print , b, c, a
ElseIf c > a And a > b Then
Print c, a, b
Else
Print c, b, a
End If
Print
End Sub
这是一个让输入数值按照大到小显示出来的程序，然后老师说定义子过程会更简单一点，我想了很久也没有想到怎么去定义这个子过程望大神告知

4 回复

xyxcc1772017-11-25 23:00

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入")
b = InputBox("输入")
c = InputBox("输入")

prt a,b,c  '调用子过程
End Sub

Private Sub prt(byval s1 as Integer,byval s2 as integer,byval s3 as integer)
Dim m(0 To 2) As Integer
        m(1) = s1
        m(2) = s2
        m(0) = s3
        For s1 = 0 To 1
            If m(s1) < m(s1 + 1) Then
                s2 = m(s1)
                m(s1) = m(s1 + 1)
                m(s1 + 1) = s2
            End If
        Next
  Print m(0), m(1), m(2)

end sub

wds12017-11-26 08:13

简单排序，程序易于理解
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入")
b = InputBox("输入")
c = InputBox("输入")
Call bijiao(a, b)
Call bijiao(b, c)
Call bijiao(a, b)
Debug.Print a; b; c
End Sub

Function bijiao(a, b) As Integer '返回a大数，b小数
  If a <= b Then
    temp = a
    a = b
    b = temp
End If
End Function

[此贴子已经被作者于2017-11-26 08:15编辑过]

qq25412134302017-11-26 20:32

回复 3楼 wds1

谢谢

qq25412134302017-11-26 20:32

回复 2楼 xyxcc177

谢谢

VB/一段代码 求简便的方法。

VB/一段代码求简便的方法。