当前位置:首页 » VB程序题 » 正文

设A、B、C是同一类型的变量,并分别被赋予不同大小的数据,设计一个算法,使得执行的结果为A>B>C 第二章 答案 新编Visual Basic程序设计教程 陈斌 著

设A、B、C是同一类型的变量,并分别被赋予不同大小的数据,设计一个算法,使得执行的结果为A>B>C      第二章 答案 新编Visual Basic程序设计教程 陈斌 著

解答,思路如下:
第一步:输入A、B、C 
第二步:如果A<B,则A与B交换
第三步:如果A<C,则A与C交换
第四步:如果B<C,则B与C交换
第五步:输出A、B、C

程序代码如下:

Private Sub Command1_Click()

    Dim a As Integer, b As Integer, c As Integer
    Dim z As Integer 'z值用于交换用

    a = Text1.Text: b = Text2.Text: c = Text3.Text

    If a < b Then
        z = a: a = b: b = z
    End If '只要a<b就交换,保证交换后,a值>b值

    If a < c Then
        z = a: a = c: c = z
    End If '只要a<c就交换,保证交换后,a值>c值;经过两次交换,a已经是三个最大的那个了。

    If b < c Then
        z = b: b = c: c = z
    End If '只要b<c就交换,保证交换后,b值>c值;即b值是第二大的值

    Text4.Text = a
    Text5.Text = b
    Text6.Text = c

End Sub

此程序运行后,效果图如下:

---- 新编Visual Basic程序设计教程   答案 陈斌  著

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb98.com/post/146.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号