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

2014年全國計算機(jī)二級VB上機(jī)考試試題三

2014年全國計算機(jī)二級VB上機(jī)考試試題提供給各位考生備考,更多考試資料請持續(xù)關(guān)注考試吧計算機(jī)等級考試頻道!

  三、綜合應(yīng)用題

  【審題分析】本題源程序已提供 Writedate 自定義過程,需編寫"讀數(shù)"、"計算"和"保存"命令的單擊事件過程。程序設(shè)計思路:在"讀數(shù)"按鈕的單擊事件過程中,用 Open 語句以 Input 方式打開數(shù)據(jù)文件 dr1.dat,通過 For 循環(huán)語句(初值為 1,終值為 100)將數(shù)據(jù)文件中的數(shù)據(jù)用 Input 語句依次讀出并賦值給數(shù)組元素 arr(i),同時顯示在文本框中,為使數(shù)據(jù)間保持一定間隔,每個數(shù)據(jù)后用 Space(5)加入 5 個空格;在"計算"按鈕的 Click 事件過程中,利用 For 循環(huán)語句(循環(huán)變 i 的初值為 1,終值為 100)依次將數(shù)組 arr 中小于或等于 300 的元素的值顯示在文本框中(條件表達(dá)式為:arr(i)<=300),并將其值累加到變Sum,循環(huán)結(jié)束后將結(jié)果顯示在窗體上。在"保存"按鈕的 Click 事件過程中,通過調(diào)用WriteData 過程將文本框中的值寫入數(shù)據(jù)文件 dw1.dat。

  【操作步驟】

  步驟 1:新建一個"標(biāo)準(zhǔn) EXE"工程,按下表在窗體中畫出控件并設(shè)置其相關(guān)屬性。

  步驟 2:選擇【工程】?【添加模塊】命令,打開添加模塊對話框,將考生文件夾下的model.bas 添加到當(dāng)前工程中。

  步驟 3:在代碼編輯窗口編寫以下事件過程。

  參考代碼:

  Dim arr(1 To 100) As Integer

  Private Sub Cmd1_Click()

  Txt1.Text = ""

  Open App.Path & "\dr1.dat" For Input As #1

  ′ó?ò??ì3?????úμè????ê?ר?? http://club.topsage.com/forum-49-1.html ê??ˉ??àí

  For i = 1 To 100

  Input #1, arr(i)

  Txt1.Text = Txt1.Text & arr(i) & Space(5)

  Next

  Close #1

  End Sub

  Private Sub Cmd2_Click()

  Dim sum As Integer

  For i = 1 To 100

  If arr(i) <= 300 Then

  sum = sum + arr(i)

  End If

  Next

  Txt1.Text = sum

  End Sub

  Private Sub Cmd3_Click()

  writedata "dw1.dat", Txt1.Text

  End Sub

  步驟 4:按要求將文件保存至考生文件夾中。

 

 

 

 

 

上一頁  1 2 3 4 5 6 7  下一頁

  編輯推薦:

  2014年上半年計算機(jī)等級考試報名時間及入口專題

  各地2014年計算機(jī)等級考試費用匯總

  2014年計算機(jī)等級考試時間

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