1樓：紅綠藍的那個黃
問題問的確實很亂，虧我理解力好。
dim x_max, x_min as variant
dim i as integer
dim arr as variant, obj as variant
arr = array(val(text17.text), val(text18.text), val(text19.text))
obj = array(label1.caption, label2.caption, label3.caption)
x_max = 0
x_min = arr(0)
for i = 0 to 2
if arr(i) > x_max then x_max = arr(i)
if arr(i) < x_min then x_min = arr(i)
next i
for i = 0 to 2
if arr(i) = x_max then
text20.text = obj(i)
elseif arr(i) = x_min then
text22.text = obj(i)
else
text21.text = obj(i)
end if
next i
2樓：匿名使用者
程式太亂了，直接把目的說清楚，
3樓：
你的text20，text21，text22輸出的不是排序後的三個值麼？？？
到底要幹什麼啊,說清楚點。
4樓：匿名使用者
text 和 label 什麼關係？
VB程式問題，VB程式設計問題
這個有難度，你查查相關的api函式吧，自動關機，可以使用shutdonw 用wmi實現可能更方便些 vb程式設計問題 10 窗體的load事件是在窗體駐入記憶體的時候產生的，這個時侯窗體還沒有顯示，所以你的輸出當然看不到了。可以把 放到按鈕事件或resize事件 resize事件有可能被多次執行 中...
VB陣列問題，vb陣列問題
3一共4個 一維0,1,2 所以上面可以變成下面這樣dima 0 to3,0to 5 as integer 0,5 as integer 2 to1 預設情況下 陣列下標從0開始 dima 3,1 也4個三維6個 二維 2，1,2to1 vb陣列問題 正規答案應該是c，a b的成員個數都超過9個，d...
vb裡check問題，急急急，關於VB的問題！！急急急急急急急急急急急急急急急急
把三個 check 做成控制項陣列，下標為 0 1 2，然後 在 check1 的 click 事件裡輸入以下 text1.text if check1 0 value then text1.text text1.text 音效卡 if check1 1 value then text1.text ...