private sub command1_click()
font.size = 30
dim n as integer
dim slerdum(15) as integer
n = 1
while n <= 15
slerdum(n) = int(rnd * 1000)
n = n + 1
wend
dim swap as integer
n = 1
while n <= 14
if slerdum(n) < slerdum(n + 1) then
swap = slerdum(n)
slerdum(n) = slerdum(n + 1)
slerdum(n + 1) = swap
end if
n = n + 1
wend
n = 1
while n <= 15
print slerdum(n)
n = n + 1
wend
end sub
這次做完感覺是用心去完成了，少了機械性的複製貼上，以後在做實驗時要注重方法
馬妮娜原創
Qt 第二種執行緒
流程 工程目錄 新增在這裡作為全域性 namespace ui class mywidget public qwidget endif mywidget h mythread.cpp include mythread.h include 待會用到sleep函式 include mythread my...
分頁的第二種方式
優點 1.十分簡潔 缺點 1.不能及時響應資料庫中變化 2.重複查詢較多，每獲取乙個屬性 總頁數 都要查詢資料庫 將某一頁的資料直接封裝在此類中，調乙個方法便可獲取資料。public class fengye 計算頁數 public int gettotalpages int count,int p...
ios第二種post請求
請求部分 nsurl url nsurl urlwithstring porturl gt ajax validate5 2.建立乙個網路請求，分別設定請求方法 請求引數 nsmutableurlrequest request nsmutableurlrequest requestwithurl u...