1樓:匿名使用者
public sub arraysort(byref datas as single)
dim max, min, mid as single
dim maxloc, minloc as single
max=datas[0]; min=datas[0];
for i=1 to datas.count-1
if datas[i]>max then max=datas[i]; maxloc=i
if datas[i]next
mid=datas[0]; datas[0]=max; datas[maxloc]=mid
mid=datas[datas.count-1]; datas[datas.count-1]=min; datas[minloc]=mid
end sub
vb題答案!(內部),求VB題目答案
1.currentx 400 currenty 520 2.33.shell del c temp tmp 4.recordset 1 x 200 y 2 33 不知道 4 insert增加 delete刪除 update修改 第三題的答案 shell del c temp tmp 求vb試題答案,...
求兩道VB題目的解答,求兩道VB題目的解答
你記下復asc和mid用法。我機上沒有vb6.0,複製制下來的這部分我覺得有個陷阱,你可以一步步監測看看 k 1時 step 2 第二行k 1 第三行k 2可是for回來時候k 3還是2 你監測出結果了說下 第二題你只要記住 lcase和ucase轉小大寫的就行了。語句上沒什麼難處 求兩道vb選擇題...
一道vb題目求解
我們就是超級巨星,超級巨星。我們有傳遞快樂的魔力。我們就是超級巨星,超級巨星。我們有傳遞看來的魔力。我們就是超級巨星,超級巨星。我們一傳遞快樂的魔力。我們就是超級巨星,超級巨星,我們有傳遞快樂的能力 yenh 他一直有個騎行環遊中國的夢想,從大三開始就積極在各大平臺 上聯絡驢友,可就在準備出發的當口...