1樓：聽不清啊
a(6) as integer
randomize
i = 1 to 6
& a(i)
5i + 1
a(i) < a(j)
i = 1 to 6
text1.text & a(i)
next i
2樓：匿名使用者
dim a(6) as integer
private sub command1_click()randomize '無序迴圈
text1.text = ""
for i = 1 to 6
a(i) = int((99 - 10 + 1) * rnd + 10) 『這裡只是從0-99的迴圈
text1.text = text1.text & a(i) & " " 』加" "是為了更好的顯示在text中
next i
end sub
private sub command2_click()
text2.text = ""
for i = 1 to 5
for j = i + 1 to 6
if a(i) < a(j) then t = a(i): a(i) = a(j): a(j) = t
next j
next i
for p = 1 to 6
text2.text = text2.text & a(p) & " " '這裡有問題，題說是第二個文字，但原題是用的text1
next p
end sub
一道vb題目求解
我們就是超級巨星，超級巨星。我們有傳遞快樂的魔力。我們就是超級巨星，超級巨星。我們有傳遞看來的魔力。我們就是超級巨星，超級巨星。我們一傳遞快樂的魔力。我們就是超級巨星，超級巨星，我們有傳遞快樂的能力 yenh 他一直有個騎行環遊中國的夢想，從大三開始就積極在各大平臺 上聯絡驢友，可就在準備出發的當口...
VB實驗作業，急，馬上要交，VB實驗作業，急，馬上要交
dim t index,mysum,max,min as double private sub command1 click max text3 0 text min text3 0 text for i 0 to 9 if max text3 i text then max text3 i tex...
馬上要中考了，改怎麼複習
把公式背好 重要的化學方程式記住 我覺得初中很多複分解反應很容易記 把離子的顏色幾熟 對這書本做推斷題，每天做3題，一個星期就能把方程式和物理性質記得很熟了。物理就是公式，初中的差不多全是套公式我覺得。還有就是畫圖，把典型的那幾個記熟是怎麼一個邏輯畫出來的就行了，他考不到 去吧？語文就是背古詩詞和古...