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

VB程序题:输入X,Y,Z三个数,按从大到小的次序显示,如下图所示。Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

VB程序题:输入X,Y,Z三个数,按从大到小的次序显示,如下图所示。
提示:
1. 利用InputBoxb函数输入3个数,存放到数值型变量中,然后对其进行比较。
2. 对三个数进行排序,只能通过两两对比,一般可用三条单分支IF语句来实现。
3 .要显示多个数据,可以用“;”逐一显示,也可利用“&”字符串连接将多个变量连接显示。

解题:
先在窗体上画一个按钮,代码如下:
Private Sub Command1_Click()
   Dim x!, y!, z!
   x = InputBox("input x")
   y = InputBox("input y")
   z = InputBox("input z")
   Print " 排序前:"; x; "  "; y; "  "; z
   If x < y Then t = x: x = y: y = t
   If x < z Then t = x: x = z: z = t
   If y < z Then t = y: y = z: z = t
   Print " 排序后:"; x; "  "; y; "  "; z
End Sub

运行程序效果图如下:

 

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/65.html

    << 上一篇 下一篇 >>

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