编程如何让图片从小到大显示

㈠ VB编程题 输入xyz三个数,按从小到大的次序显示

源程序如下：

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

运行程序效果图如下：

(1)编程如何让图片从小到大显示扩展阅读：

其他实现方法：

PrivateSubCommand1_Click()

Dimtmp,i,jAsInteger'定变量

Dima(2)AsInteger'定数组

a(0)=x

a(1)=y

a(2)=z'xyz三个数赋值给数组，实际调试中用实际数字代替

Fori=0To1

Forj=1To2

Ifa(i)>a(j)Then

tmp=a(i)

a(i)=a(j)

a(j)=tmp

EndIf

Nextj

Nexti'循环由小到大排序，估计这是考点

Printa(0)

Printa(1)