編程如何讓圖片從小到大顯示

㈠ 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)