給任意幾個數按大小排序
1.開啟桌面上的vb6.0；
2.在窗體插入乙個commandbutton，名稱預設為command1；
3.在窗體中插入乙個textbox，名稱預設為text1；；
4.雙擊窗體中的command1」，輸入**：
option base 1
private sub command1_click()
clsdim n as integer
dim size as integer
size = int(val(me.text1.text))
dim wzs() as integer
redim wzs(size)
n = lbound(wzs)
while n <= ubound(wzs)
wzs(n) = int(rnd * 1000)
n = n + 1
wend
dim swap as integer
m = lbound(wzs)
while m <= ubound(wzs) - 1
n = lbound(wzs)
while n <= ubound(wzs) - m
if wzs(n) < wzs(n + 1) then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
end if
n = n + 1
wend
m = m + 1
wend
n = lbound(wzs)
while n <= ubound(wzs)
print wzs(n)
n = n + 1
wend
end sub
5.在「通用」欄中輸入option base 1
6.執行，在text1中輸入數字個數。
15電氣李丹 10個隨機數求和
1.開啟vb6.0 2.窗體上插入一command button，雙擊並輸入 一 二 三 private sub command1 click dim i as integer dim a as integer sum 0 for i 1 to 10 randomize a int 1000 rnd...
任正非給新員工的信
您有幸進入了華為公司。我們也有幸獲得了與您的合作。我們將在共同信任的基礎上，度過您在公司工作的歲月。這種理解和信任是愉快奮鬥的橋梁與紐帶。華為公司是乙個以高技術為起點，著眼於大市場 大系統 大結構的高科技企業。以它的歷史使命，它需要所有的員工必需堅持合作，走集體奮鬥的道路。沒有這一種平台，你的聰明才...
給創業人的15個建議
給創業人的15個建議 給創業人的15個建議 1.到錢多的地方，到最適合你 需要你，並且最容易讓你成功的地方去發掘寶藏。2.首先，要選擇賺錢的行業，投身有巨大潛力發展潛力的事業。3.緊跟成功者的腳步，與精明能幹 思想活躍 積極進娶充滿激情與活力的人士為伍，遠離沉悶失敗的環境與悲觀消極的人群。4.讓整個...