VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢2012-10-30 14:58_毛线线 | 分类:VB | 浏览19次要对a、b、c这三个数排序(依顺序为例),先比

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 17:45:13
VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢2012-10-30 14:58_毛线线 | 分类:VB | 浏览19次要对a、b、c这三个数排序(依顺序为例),先比

VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢2012-10-30 14:58_毛线线 | 分类:VB | 浏览19次要对a、b、c这三个数排序(依顺序为例),先比
VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢
2012-10-30 14:58_毛线线 | 分类:VB | 浏览19次
要对a、b、c这三个数排序(依顺序为例),先比较前两个数,使得a≤b,再比较b与c,若b≤c,则排序已完成,否则需要交换b与c的值,之后再继续比较a与交换后的b,使得a小于等于b,排序结束.
求高手帮忙写下这个程序.

VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢2012-10-30 14:58_毛线线 | 分类:VB | 浏览19次要对a、b、c这三个数排序(依顺序为例),先比

这里有两种方法.第一种,直接交换,代码比较多,容易出错.

第二种,把交换部分写成一个独立过程,中间调用.便于阅读,书写方便,不易出错.

用户的关于从大到小和从小到大排序选择,使用Option控件()如图.

Private Sub Command1_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim tmp As Integer
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    c = Val(Text3.Text)
    If Option1.Value = True Then
        If a < b Then
            tmp = a
            a = b
            b = tmp
        End If
        If c > a Then
            tmp = b
            b = c
            c = tmp
            tmp = a
            a = b
            b = tmp
        ElseIf c > b Then
            tmp = b
            b = c
            c = tmp
        End If
    Else
        If a > b Then
            tmp = a
            a = b
            b = tmp
        End If
        If c < a Then
            tmp = b
            b = c
            c = tmp
            tmp = a
            a = b
            b = tmp
        ElseIf c < b Then
            tmp = b
            b = c
            c = tmp
        End If
    End If
    Text1.Text = CStr(a)
    Text2.Text = CStr(b)
    Text3.Text = CStr(c)
   
End Sub

Sub swap(x, y)
    Dim tmp
    tmp = x
    x = y
    y = tmp
End Sub

Private Sub Command2_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim tmp As Integer
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    c = Val(Text3.Text)
    If Option1.Value = True Then
        If a < b Then
        End If
        If c > a Then
            swap b, c
            swap a, b
        ElseIf c > b Then
            swap b, c
        End If
    Else
        If a > b Then
            swap a, b
        End If
        If c < a Then
            swap b, c
            swap a, b
        ElseIf c < b Then
            swap b, c
        End If
    End If
    Text1.Text = CStr(a)
    Text2.Text = CStr(b)
    Text3.Text = CStr(c)
   
End Sub

VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢2012-10-30 14:58_毛线线 | 分类:VB | 浏览19次要对a、b、c这三个数排序(依顺序为例),先比 设计1个程序,任意输入三个数字a,b,c,将他们按照从小到大排列顺序后输出 编写一个C程序,实现冒泡排序,用户输入整数序列,程序将所有整数从小到大排序并输出.哪里错了?输入数字序列,两个数字之间以逗号分隔,所有数字均为整数且大于等于0.输出排序后的数字序列 Java高手来!如题,从键盘上依次输入整数,分别赋值产量a b c 然后将输入的整数按照从小到大Java高手来!如题,从键盘上依次输入整数,分别赋值产量a b c 然后将输入的整数按照从小到大的顺序放 编程题:输入a.b.c三个数字.使它从小到大输出 vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在 VB编写程序 用来计算m的n次方其中m,n由用户输入 输出在窗体上 要求将计算m的n次方写成函数 输入1-7之间任意的数字,程序按照用户的输入输出对应的星期几的英文,用switch.case结构, C语言题:对A,B,C三个整数按照从小到大的方法进行排序 1.输入一个三位整数,将数字位置重新排列,组成一个尽可大的三位数.求vb算法 在vb中输入一个任意整数,如何实现将各个位数上的数字提取出来 用VB,用VB,用VB将123456789这九个数字分成三个三位数,各个数字之间比例是1:2:3用VB将123456789九个数字分成三个三位数,要求各个数字不重复,且第一个数字是第二个的两倍,是第三个的三倍,问应该 求vb题代码:求任意个数的阶乘累计和.s=1!+2!+3!+...+n!,n由用户输入. VB试题:输入x,y,z三个数,按从小到大的次序显示.用InputBox函数输入3个数 编写程序,让用户输入一个不超过5位的整数,求解:(1)该数是几位数 (2)计算该书个位数字之和(3)将该数逆序输出,如用户输入178,则输出871 matlab编程 随便输入三个数字,然后从小到大排序,求代码 pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出:从小到大输出这三个平方数,每行一个.样例输入 无 样例输出 Sample Output 无 时间限制 Time Limitation 用java 从键盘输入3个整数,分别赋给整数变量a b c 然后将输入的整数按照从小到大的顺序放在变量abc中,并用java 从键盘输入3个整数,分别赋给整数变量a b c 然后将输入的整数按照从小到大的顺