| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
绝地游戏外挂辅助教学千里之行 始于足下
共有 213 人关注过本帖
标题:VB/一段代码 求简便的方法。
只看楼主 收藏
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
结帖率:100%
  已结贴   问题点数:20  回复次数:4   
VB/一段代码 求简便的方法。
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
这是一个让输入数值按照大到小显示出来的程序,然后老师说定义子过程会更简单一点,我想了很久也没有想到怎么去定义这个子过程 望大神告知
2017-11-25 18:36
xyxcc177
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:16
帖 子:87
专家分:381
注 册:2017-7-8
  得分:10 
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
2017-11-25 23:00
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:6
帖 子:41
专家分:217
注 册:2016-3-10
  得分:10 
简单排序,程序易于理解
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编辑过]

2017-11-26 08:13
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 3楼 wds1
谢谢
2017-11-26 20:32
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 2楼 xyxcc177
谢谢
2017-11-26 20:32







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.100035 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved