1樓：匿名使用者
發給你了,署名是swmupc,給了你兩個源**,一個是教職工資訊管理系統,另一個是超市進貨單管理系統,絕對原創,如果滿意就把分給我吧,呵呵,我需要
2樓：匿名使用者
不知道合你的要求吧.呵呵.我是喜歡先把數字都放進陣列中,再重新排序的.沒有用插入法:
dim a(6), b(8)
private sub command1_click()
dim i%, j%, m%, c
c = split(join(a) & " " & join(b), " ")
for i = 0 to ubound(c)
for j = i + 1 to ubound(c)
if c(j) < c(i) then m = c(i): c(i) = c(j): c(j) = m
next
next
text2 = join(c)
end sub
private sub form_load()
text1 = ""
text2 = ""
command1.caption = "插入排序"
dim i%, j%, m%
randomize
for i = 0 to 8
if i < 7 then a(i) = int(rnd * 90 + 10)
b(i) = int(rnd * 90 + 10)
next
for i = 0 to 6
for j = i + 1 to 6
if a(j) < a(i) then m = a(i): a(i) = a(j): a(j) = m
next
next
text1 = join(a) '文字框1放的是排好序的陣列a
text2 = join(b) '文字框2放的是未排序的陣列b
end sub
3樓：匿名使用者
我發給你，這是一套圖書館理系統，你可參閱後，改為自己所用。
4樓：
在選單裡：工程-新增窗體-資料庫嚮導，跟著一步一步做就是了，vb和資料庫聯用基本上不用寫太多**；還有新建 工程時有個資料工程，選中後，基本上是滑鼠指指點點，連報表都有了，還編什麼程式啊
5樓：龍陽清風
不知道sql資料庫的行不？
我加你qq
高分急尋一部老電影，急尋一部老電影
慾火奮鬥 是不是喬丹的 空中大灌籃 誰陷害了兔子羅傑 who framed roger rabbit 1988 年 真人動畫電影的先驅 1988 年由斯蒂芬斯皮爾伯格擔任製片的 誰陷害了兔子羅傑 是一部真人和動畫相結合的影片，同樣被稱為動畫史上的里程碑。這部影片攬獲四項奧斯卡大獎，背後有著上百名的動...
緊急求助！高分急尋高人翻譯文獻
專業英語呀，先得說說是哪個專業的，不然專業名詞翻譯不出來。 退後再愛 雖然提出的方法的比較與其他圈子探知方法的使用弦在這工作不十分地完成，我們觀察了多數其他技術 即，chan和siu 1990年 ho和陳1995年 sheu等，1997年 goneid等 半新垂直和水平的弦和需要查出對稱垂直和水平的...
求助VB高手 急哦高分懸賞
岔路程式緣 第一題 建立一個text1,dim r as single dim s 8 as integer private sub form load form1.autoredraw true text1.text 578.62 form1.width 11000 text1.top 1000 ...