首頁(yè)　考試吧論壇　Exam8視線　考試商城　網(wǎng)絡(luò)課程　模擬考試　考友錄　實(shí)用文檔　求職招聘　論文下載
2011中考 | 2011高考 | 2012考研 | 考研培訓(xùn) | 在職研 | 自學(xué)考試 | 成人高考 | 法律碩士 | MBA考試
MPA考試 | 中科院
四六級(jí) | 職稱(chēng)英語(yǔ) | 商務(wù)英語(yǔ) | 公共英語(yǔ) | 托福 | 雅思 | 專(zhuān)四專(zhuān)八 | 口譯筆譯 | 博思 | GRE GMAT
新概念英語(yǔ) | 成人英語(yǔ)三級(jí) | 申碩英語(yǔ) | 攻碩英語(yǔ) | 職稱(chēng)日語(yǔ) | 日語(yǔ)學(xué)習(xí) | 法語(yǔ) | 德語(yǔ) | 韓語(yǔ)
計(jì)算機(jī)等級(jí)考試 | 軟件水平考試 | 職稱(chēng)計(jì)算機(jī) | 微軟認(rèn)證 | 思科認(rèn)證 | Oracle認(rèn)證 | Linux認(rèn)證
華為認(rèn)證 | Java認(rèn)證
公務(wù)員 | 報(bào)關(guān)員 | 銀行從業(yè)資格 | 證券從業(yè)資格 | 期貨從業(yè)資格 | 司法考試 | 法律顧問(wèn) | 導(dǎo)游資格
報(bào)檢員 | 教師資格 | 社會(huì)工作者 | 外銷(xiāo)員 | 國(guó)際商務(wù)師 | 跟單員 | 單證員 | 物流師 | 價(jià)格鑒證師
人力資源 | 管理咨詢師考試 | 秘書(shū)資格 | 心理咨詢師考試 | 出版專(zhuān)業(yè)資格 | 廣告師職業(yè)水平
駕駛員 | 網(wǎng)絡(luò)編輯
衛(wèi)生資格 | 執(zhí)業(yè)醫(yī)師 | 執(zhí)業(yè)藥師 | 執(zhí)業(yè)護(hù)士
會(huì)計(jì)從業(yè)資格考試（會(huì)計(jì)證） | 經(jīng)濟(jì)師 | 會(huì)計(jì)職稱(chēng) | 注冊(cè)會(huì)計(jì)師 | 審計(jì)師 | 注冊(cè)稅務(wù)師
注冊(cè)資產(chǎn)評(píng)估師 | 高級(jí)會(huì)計(jì)師 | ACCA | 統(tǒng)計(jì)師 | 精算師 | 理財(cái)規(guī)劃師 | 國(guó)際內(nèi)審師
一級(jí)建造師 | 二級(jí)建造師 | 造價(jià)工程師 | 造價(jià)員 | 咨詢工程師 | 監(jiān)理工程師 | 安全工程師
質(zhì)量工程師 | 物業(yè)管理師 | 招標(biāo)師 | 結(jié)構(gòu)工程師 | 建筑師 | 房地產(chǎn)估價(jià)師 | 土地估價(jià)師 | 巖土師
設(shè)備監(jiān)理師 | 房地產(chǎn)經(jīng)紀(jì)人 | 投資項(xiàng)目管理師 | 土地登記代理人 | 環(huán)境影響評(píng)價(jià)師 | 環(huán)保工程師
城市規(guī)劃師 | 公路監(jiān)理師 | 公路造價(jià)師 | 安全評(píng)價(jià)師 | 電氣工程師 | 注冊(cè)測(cè)繪師 | 注冊(cè)計(jì)量師
繽紛校園 | 實(shí)用文檔 | 英語(yǔ)學(xué)習(xí) | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲

2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程(6)

考試吧整理了2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程，幫助考生備考。

　　′定時(shí)器1的定時(shí)事件

　　Private Sub Timer1_Timer()

　　Dim sj1,sj2,ys As Integer

　　Randomize′初始化隨機(jī)數(shù)

　　sj1=Int(Rnd*32)+1

　　sj2=Int(Rnd*50)

　　Label1.Caption=sj1′設(shè)置標(biāo)簽1的內(nèi)容

　　ys=Int(Rnd*6)+9

　　Label1.ForeColor=QBColor(ys)

　　If sj2=24 Then′如果sj2等于24

　　sy=sy+1′索引值加1

　　For a=o To sy

　　If sj1=Val(Label3(a).Caption) Then

　　sy=sy - 1

　　Exit Sub

　　End If

　　Next

　　Label3(sy).Caption=Format(sj1, ″00″)

　　Label3(sy).ForeColor=QBColor(ys)

　　End If

　　If sy=6 Then′如果索引值等于6

　　Timer1.Enabled=False ′關(guān)閉定時(shí)器

　　Command1.Enabled=True ′使命令按鈕有效(即可重新開(kāi)始抽獎(jiǎng))

　　End If

　　End Sub

　　單擊工具欄上的“啟動(dòng)”按鈕，啟動(dòng)抽獎(jiǎng)程序。單擊“開(kāi)始”按鈕，Label1控件將用五彩繽紛的顏色快速顯示1～32之間的數(shù)字，并在Label3控件數(shù)組中產(chǎn)生一組7個(gè)數(shù)字的中獎(jiǎng)號(hào)碼。再次單擊“開(kāi)始”按鈕，程序?qū)⒆詣?dòng)清除Label3控件數(shù)組中的內(nèi)容，并重新產(chǎn)生一組7個(gè)數(shù)字的中獎(jiǎng)號(hào)碼.

　　相關(guān)推薦：

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程匯總

文章搜索
版權(quán)聲明：如果計(jì)算機(jī)等級(jí)考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益，請(qǐng)與我們聯(lián)系800@exam8.com，我們將會(huì)及時(shí)處理。如轉(zhuǎn)載本計(jì)算機(jī)等級(jí)考試網(wǎng)內(nèi)容，請(qǐng)注明出處。