| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1446 人关注过本帖
标题: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
这是一个让输入数值按照大到小显示出来的程序,然后老师说定义子过程会更简单一点,我想了很久也没有想到怎么去定义这个子过程 望大神告知
搜索更多相关主题的帖子: InputBox 输入 And Then Print 
2017-11-25 18:36
xyxcc177
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册: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: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册: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
快速回复:VB/一段代码 求简便的方法。
数据加载中...
 
   



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

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