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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/65.html