vb 20080104 前將作業上傳

For i=1 TO 5
a(i)=Rnd()*10
K=a(i)
Loop While B(K)=1
Next

for next 連續做五次(不管原因)
Loop 迴圈(一直做)

比較大小 排序
For x=1 TO 4
FOR y=x+1 TO 5
IF a(X) > a(y) THEN
temp =a(X) -->X.Y 對調(IF 大小位置對調)
a(X)=a(y)
a(y)=TEMP
END IF
NEXT
NEXT

(1)X=1
Y=2~5
X=1 Y=2 a(1)>a(2) X=1 Y=2 7.8.4.1.6
X=1 Y=2 a(1)>a(3) X=1 Y=3 4.8.7.1.6
X=1 Y=2 a(1)>a(4) X=1 Y=4 1.8.7.4.6
X=1 Y=2 a(1)>a(5) X=1 Y=5 1.8.7.4.6
X=1 Y=2 a(1)>a(3) X=2 Y=3 1.7.8.4.6
X=1 Y=2 a(1)>a(4) X=2 Y=4 1.4.8.7.6
X=1 Y=2 a(1)>a(5) X=2 Y=5 1.4.8.7.6
X=1 Y=2 a(1)>a(4) X=3 Y=4 1.4.8.7.6
X=1 Y=2 a(1)>a(5) X=3 Y=5 1.4.6.8.7
X=1 Y=2 a(1)>a(5) X=4 Y=5 1.4.6.7.8



題目:
(1)X=1
IF X=2 and Y=3 THEN
Msgbox (a(1)&","&a(2).........a(5)
ENDIF