首頁(yè) 考試吧論壇 Exam8視線 考試商城 網(wǎng)絡(luò)課程 模擬考試 考友錄 實(shí)用文檔 求職招聘 論文下載
2012中考 | 2012高考 | 2012考研 | 考研培訓(xùn) | 在職研 | 自學(xué)考試 | 成人高考 | 法律碩士 | MBA考試
MPA考試 | 中科院
四六級(jí) | 職稱(chēng)英語(yǔ) | 商務(wù)英語(yǔ) | 公共英語(yǔ) | 托福 | 托業(yè) | 雅思 | 專(zhuān)四專(zhuān)八 | 口譯筆譯 | 博思
GRE GMAT | 新概念英語(yǔ) | 成人英語(yǔ)三級(jí) | 申碩英語(yǔ) | 攻碩英語(yǔ) | 職稱(chēng)日語(yǔ) | 日語(yǔ)學(xué)習(xí) |
零起點(diǎn)法語(yǔ) | 零起點(diǎn)德語(yǔ) | 零起點(diǎn)韓語(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à)格鑒證師
人力資源 | 管理咨詢(xún)師 | 秘書(shū)資格 | 心理咨詢(xún)師 | 出版專(zhuān)業(yè)資格 | 廣告師職業(yè)水平 | 駕駛員
網(wǎng)絡(luò)編輯 | 公共營(yíng)養(yǎng)師 | 國(guó)際貨運(yùn)代理人 | 保險(xiǎn)從業(yè)資格 | 電子商務(wù)師 | 普通話 | 企業(yè)培訓(xùn)師
營(yíng)銷(xiāo)師
衛(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à)員 | 咨詢(xún)工程師 | 監(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í) | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲
計(jì)算機(jī)等級(jí)考試

2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第二十六套

第 1 頁(yè):基本操作
第 2 頁(yè):簡(jiǎn)單運(yùn)用
第 3 頁(yè):綜合運(yùn)用


  2. 簡(jiǎn)單應(yīng)用(2小題,每題20分,計(jì)40分)

  注意:下面出現(xiàn)的“考生文件夾”均為%USER%

  (1)在考生目錄下有一個(gè)工程文件sjt3.vbp(相應(yīng)的窗體文件名為sjt3.frm),請(qǐng)裝入該文件,在窗體上畫(huà)兩個(gè)命令按鈕(其名稱(chēng)分別為Command1和Command2,標(biāo)題分別為“添加項(xiàng)目”和“刪除項(xiàng)目”),再畫(huà)一個(gè)列表框(名稱(chēng)為L(zhǎng)ist1)和一個(gè)文本框(名稱(chēng)為T(mén)ext1),如圖 1所示。編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后,如果單擊“添加項(xiàng)目”命令按鈕,則從鍵盤(pán)上輸入要添加到列表框中的項(xiàng)目(內(nèi)容任意,不少于三個(gè));如果單擊“刪除項(xiàng)目”命令按鈕,則從鍵盤(pán)上輸入要?jiǎng)h除的項(xiàng)目,將其從列表框中刪除。

  程序的運(yùn)行情況如圖 2所示。提供的窗體文件可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整,請(qǐng)把它補(bǔ)充完整。

  要求:

  去掉程序中的注釋符,把程序中的?改為適當(dāng)?shù)膬?nèi)容,使其正確運(yùn)行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。

  解題思路:

  啟動(dòng)Visual Basic系統(tǒng),打開(kāi)考生文件夾下需編輯的工程文件sjt3.vbp,相應(yīng)的窗體文件名為sjt3.frm。

  由于所提供的窗體控件不完整,在該窗體上需畫(huà)二個(gè)命令按鈕控件,通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Command1和Command2,標(biāo)題(Caption屬性)分別設(shè)為“添加項(xiàng)目”和“刪除項(xiàng)目”。畫(huà)一個(gè)文本框控件,通過(guò)其屬性窗口將名稱(chēng)設(shè)為T(mén)ext1。畫(huà)一個(gè)列表框控件,通過(guò)其屬性窗口將名稱(chēng)設(shè)為L(zhǎng)ist1。

  另外所提供的窗體程序也不完整,在窗體的Private Sub Command1_Click()事件過(guò)程中,有一處地方需要修改。

  1) 將語(yǔ)句

  'List1.AddItem ?

  改為

  List1.AddItem Form1.Text1.Text

  在窗體的Private Sub Command2_Click()事件過(guò)程中,有三處地方需要修改。

  1) 將語(yǔ)句

  'For i = 0 To ?

  改為

  For i = 0 To Form1.List1.ListCount - 1

  2) 將語(yǔ)句

  'If List1.List(i) = ? Then

  改為

  If List1.List(i) = Text1.Text Then

  3) 將語(yǔ)句

  'List1.RemoveItem ?

  改為

  List1.RemoveItem i

  參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

  請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中,然后打開(kāi)sjt3.vbp文件并運(yùn)行。

  (2)在考生文件夾下有一個(gè)工程文件sjt4.vbp(相應(yīng)的窗體文件名為sjt4.frm),其功能是通過(guò)調(diào)用過(guò)程FindMax 求數(shù)組的最大值,請(qǐng)裝入該文件。程序運(yùn)行后,在四個(gè)文本框中各輸入一個(gè)整數(shù),然后單擊命令按鈕,即可求出數(shù)組的最大值,并在窗體上顯示出來(lái)(如圖所示)。這個(gè)程序不完整,請(qǐng)把它補(bǔ)充完整,并能正確運(yùn)行。

  要求:

  去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。

  解題思路:

  啟動(dòng)Visual Basic系統(tǒng),打開(kāi)考生文件夾下需編輯的工程文件sjt4.vbp,相應(yīng)的窗體文件名為sjt4.frm。

  由于所提供的窗體程序不完整,在命令按鈕的Private Sub Command1_Click()事件過(guò)程中,有二處地方需要修改。

  1) 將語(yǔ)句

  'arr2(i) = CInt(?)

  改為

  arr2(i) = CInt(arr1(i))

  2) 將語(yǔ)句

  'M = FindMax(?)

  改為

  M = FindMax(arr2())

  在Private Function FindMax(a() As Integer)函數(shù)中,有四處地方需要修改。

  1) 將語(yǔ)句

  'Start = ?(a)

  改為

  Start = LBound(a)

  2) 將語(yǔ)句

  'Finish = ?(a)

  改為

  Finish = UBound(a)

  3) 將語(yǔ)句

  'Max = ?(Start)

  改為

  Max = a(Start)

  4) 將語(yǔ)句

  'If a(i) ? Max Then Max = ?

  改為

  If a(i) > Max Then Max = a(i)

  參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

  請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中,然后打開(kāi)sjt4.vbp文件并運(yùn)行。

  相關(guān)推薦:

  2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫(kù)工程師備考筆記匯總

  2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

  2012年下半年計(jì)算機(jī)等級(jí)考試報(bà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)注明出處。