2021年計(jì)算機(jī)等級(jí)考試VB模擬訓(xùn)練題

第15套1?基本操作（2小題，每小題15分，共計(jì)30分）（1）在名稱為Forml窗體上畫一種標(biāo)簽（名稱為L(zhǎng)abell,標(biāo)題為“輸入信息“）、一種文本框（名稱為Textl,Text屬性為空白）和一種命令按鈕（劃稱為Commandl,標(biāo)題為“顯示“），如圖1所示。然后編寫命令按鈕Click事件過程。程序運(yùn)營(yíng)后，在文本框中輸入“計(jì)算機(jī)級(jí)別考試"，然后單擊命令按鈕，則標(biāo)簽和文本框消失，并在窗體上顯示文本框中內(nèi)容。運(yùn)營(yíng)后窗體如圖2所示。規(guī)泄程序中不得使用任何變疑。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下,工程文獻(xiàn)名為lql.vbp,窗體文獻(xiàn)需為lql.frmo圖1 圖2（2）在名稱為Forml窗體上畫一種文本框（名稱為TextLText屈性為"國"，F(xiàn)ontNameJ^性為°’黑體0和一種水平滾動(dòng)條（名稱為HScrolll）,如圖1所示。在屬性窗口中對(duì)滾動(dòng)條設(shè)立如下屬性：TOC\o"1-5"\h\zMin 10Max 100LargeChange 5SmallChange 2編寫恰當(dāng)事件過程。程序運(yùn)營(yíng)后，如果移動(dòng)滾動(dòng)條上滾動(dòng)框，則可擴(kuò)大或縮小文本框中''國"字。運(yùn)營(yíng)后窗體如圖2所示。規(guī)左程序中不得使用任何變量。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下，工程文獻(xiàn)洛為lq2.vbp,窗體文獻(xiàn)名為lq2.frm.■ihForml_Idlxli國iii?Forml■ihForml_Idlxli國iii?Forml丄LI 丄JaJ JJd圖1 圖22.簡(jiǎn)樸應(yīng)用（2小題，每小題20分，共計(jì)40分）（1）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)1q3.vbp,請(qǐng)?jiān)诖绑w上建立一種菜單，主菜單項(xiàng)為“項(xiàng)目”（名稱為Item）,它有兩個(gè)子菜單項(xiàng)，英名稱分別為Add和Delete,標(biāo)題分別為“添加項(xiàng)目“和“刪除項(xiàng)目”,然后畫一種列表框（名稱為L(zhǎng)istl）和一種文本框（名稱為Textl）,如圖1所示。編寫恰當(dāng)事件過程。程序運(yùn)營(yíng)后，如果執(zhí)行“添加項(xiàng)目"命令，則從鍵盤上輸入要添加到列表框中項(xiàng)目（內(nèi)容任意，不少于三個(gè)）：如果執(zhí)行“刪除項(xiàng)目”命令，則從鍵盤上輸入要?jiǎng)h除項(xiàng)目，將其從列表框中刪除。程序運(yùn)營(yíng)狀況如圖2所示。在考生文獻(xiàn)夾下工程文獻(xiàn)lq3.vbp（相應(yīng)窗體文獻(xiàn)名為1q3.frm）,可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。規(guī)泄：去掉程序中注釋符，把程序中？改為恰當(dāng)內(nèi)容，使苴對(duì)的運(yùn)營(yíng)，但不能修改程序中英她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)名存盤。圖1 圖1 圖2（2）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq4.vbp（相應(yīng)窗體文獻(xiàn)劃為lq4.frm）,苴功能是通過調(diào)用過程Sort將數(shù)組按升序排序。程序運(yùn)營(yíng)后，在四個(gè)文本框中各輸入一種整數(shù)（如圖1所示），然后單擊命令按鈕，即可使數(shù)組按升序排序，并在文本框中顯示岀來（如圖2所示）。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能對(duì)的運(yùn)營(yíng)。規(guī)立：去掉程序中注釋符，把程序中？改為對(duì)的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中其她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)名存盤。圖1 圖23.綜合應(yīng)用（1小題，計(jì)30分）在窗體上建立三個(gè)菜單（劃稱分別為Read、Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)“、“計(jì)算并輸出"和"存盤”），然后畫一種文本框（名稱為Textl,MultiLine屬性設(shè)立為True,ScrollBars屬性設(shè)立為2）（如圖所示）。程序運(yùn)營(yíng)后，如果執(zhí)行“讀入數(shù)據(jù)“命令，則讀入datainl.txt文獻(xiàn)中100個(gè)整數(shù)，放入一種數(shù)組中，數(shù)組下界為1:如果單擊“計(jì)算并輸出“按鈕，則把該數(shù)組中不不大于等于700元素在文本框中顯示出來，求岀它們和，并把所求得和在窗體上顯示岀來：如果單擊“存盤”按鈕，則把所求得和存入考生文獻(xiàn)夾下dataout.txt文獻(xiàn)中。在考生文獻(xiàn)夾下有一種工程文獻(xiàn)1q5.vbp,考生可以裝入該文獻(xiàn)。窗體文獻(xiàn)中ReadData過程可以把datainl.txt文獻(xiàn)中100個(gè)整數(shù)讀入Arr數(shù)組中；而WriteData過程可以把指左整數(shù)值寫到考生文獻(xiàn)夾下指泄文獻(xiàn)中（整數(shù)值通過計(jì)算求得，文獻(xiàn)名為dataout.txt）0注意：考生不得修改窗體文獻(xiàn)中已經(jīng)存在程序。存盤時(shí)，工程文獻(xiàn)名仍為lq5.vbp,窗體文獻(xiàn)名仍為lq5.frm0第16套1?基本操作（2小題，每小題15分,共計(jì)30分）（1）在名稱為Forml窗體上畫兩個(gè)標(biāo)簽（名稱分別為L(zhǎng)abel1和Label2,標(biāo)題分別為“書名"和“作者"）、兩個(gè)文本框（名稱分別為Textl和Text2,Text屬性均為空白）和一種命令按鈕（名稱為Commandl,標(biāo)題為“顯示“），如圖1所示。然后編寫命令按鈕Click事件過程。程序運(yùn)營(yíng)后，在兩個(gè)文本框中分別輸入書名和作者，然后單擊命令按鈕，則在窗體標(biāo)題欄上先后顯示兩個(gè)文本框中內(nèi)容，如圖2所示。規(guī)定程序中不得使用任何變量。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下，工程文獻(xiàn)名為lql.vbp,窗體文獻(xiàn)名為lql.frmc圖1圖1圖2（2）在名稱為Fonnl窗體上畫一種垂直滾動(dòng)條（名稱為VScrolll）和一種水平滾動(dòng)條（需稱為HScrolll）,如圖1所示。在屬性窗口中對(duì)兩個(gè)滾動(dòng)條設(shè)立如下屬性：Min1500Max6000LargeChange200SmallChange50編寫恰當(dāng)事件過程。程序運(yùn)營(yíng)后，如果移動(dòng)滾動(dòng)條上滾動(dòng)框，則可擴(kuò)大或縮小窗體。運(yùn)營(yíng)后窗體如圖2所示。規(guī)定程序中不得使用任何變量。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下,工程文獻(xiàn)名為lq2.vbp,窗體文獻(xiàn)名為lq2.frmo2.簡(jiǎn)樸應(yīng)用（2小題,每小題20分，共計(jì)40分）（1）在窗體（名稱為Forml.KeyPreview屬性為,True）上畫一種列表框（名稱為.Listl）和一種文本框（名稱為Textl）,如圖1所示。編寫窗體KeyDown事件過程。程序運(yùn)營(yíng)后，如果按“A”鍵，則從鍵盤上輸入要添加到列表框中項(xiàng)目（內(nèi)容任意，不少于三個(gè)）；如果按“D"鍵，則從鍵盤上輸入要?jiǎng)h除項(xiàng)目，將苴從列表框中刪除。程序運(yùn)營(yíng)狀況如圖2所示。在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq3.vbp（相應(yīng)窗體文獻(xiàn)名為lq3.frm）,可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。規(guī)左：去掉程序中注釋符，把程序中？改為恰當(dāng)內(nèi)容，使其對(duì)的運(yùn)營(yíng)，但不能修改程序中荘她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)需存盤。圖1 圖2（2）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq4.vbp（相應(yīng)窗體文獻(xiàn)爼為lq4.frm）,其功能是通過調(diào)用過程Average求數(shù)組平均值，請(qǐng)裝入該文獻(xiàn)。程序運(yùn)營(yíng)后，在四個(gè)文本框中冬輸入一種整數(shù)，然后單擊命令按鈕，即可求岀數(shù)組平均值，并在窗體上顯示出來（如圖所示）。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能對(duì)的運(yùn)營(yíng)。規(guī)立：去掉程序中注釋符，把程序中？改為對(duì)的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中其她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)名存盤。3.綜合應(yīng)用（1小題，計(jì)30分）在窗體上建立三個(gè)菜單（爼稱分別為Read、Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)”、“計(jì)算并輸出"和"存盤”），然后畫一種文本框（爼稱為Textl,MultiLine屬性設(shè)立為True,ScrollBars屬性設(shè)立為2）（如圖所示）。程序運(yùn)營(yíng)后，如果執(zhí)行“讀入數(shù)據(jù)“命令，則讀入datainl.txt文獻(xiàn)中100個(gè)整數(shù)，放入一種數(shù)組中，數(shù)組下界為1;如果單擊“計(jì)算并輸岀“按鈕，則把該數(shù)組中可以被3整除元素在文本框中顯示岀來，求出它們和，并把所求得和在窗體上顯示出來;如果單擊“存盤"按鈕，則把所求得和存入考生文獻(xiàn)夾下dataout.txt文獻(xiàn)中。在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq5.vbp,考生可以裝入該文獻(xiàn)。窗體文獻(xiàn)中ReadData過程可以把datainl.txt文獻(xiàn)中100個(gè)整數(shù)讀入Arr數(shù)組中；而WriteData過程可以把指左整數(shù)值寫到考生文獻(xiàn)夾下指定文獻(xiàn)中（整數(shù)值通過計(jì)算求得，文獻(xiàn)名為dataout.txt）0注意：考生不得修改窗體文獻(xiàn)中已經(jīng)存在程序。存盤時(shí)，工程文獻(xiàn)名仍為lq5.vbp,窗體文獻(xiàn)名仍為lq5.frmo第17套基本操作（2小題,每小題15分,共計(jì)30分）（1）在劃稱為Forml窗體上畫兩個(gè)標(biāo)簽（名稱分別為L(zhǎng)abel1和Label2,標(biāo)題分別為"身高"

和"體重"）、兩個(gè)文本框（名稱分別為Textl和Text2,Text屬性均為空白）和一種命令按鈕（名稱為Commandl,標(biāo)題為"輸入"）。然后編寫命令按鈕Click事件過程，程序運(yùn)營(yíng)后，如果單擊命令按鈕，則先后顯示兩個(gè)輸入對(duì)話框，在兩個(gè)輸入對(duì)話框中分別輸入身高和體重,并分別在兩個(gè)文本框中顯示岀來，運(yùn)營(yíng)后窗體如圖所示。規(guī)定程序中不得使用任何變量。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下，工程文獻(xiàn)名為lql.vbp,窗體文獻(xiàn)名為lql.frm.（2）在冬稱為Forml窗體上畫一種圖片框（名稱為Picturel）.一種垂直滾動(dòng)條（冬稱為VScrolll）和一種命令按鈕（名稱為Commandb標(biāo)題為〃設(shè)立屬性〃），通過屬性窗口在圖片框中裝入一種圖形（文獻(xiàn)名為picl.jpg,位于考生文獻(xiàn)夾下）.圖片框?qū)挾扰c圖形寬度相似,圖片框髙度任意（如圖1所示）。編寫恰當(dāng)事件過程。程序運(yùn)營(yíng)后，如果單擊命令按鈕，則設(shè)立垂直滾動(dòng)條如下屬性：Min100Max3200LargeChange200SmallChange20之后就可以通過移動(dòng)滾動(dòng)條上滾動(dòng)塊來放大或縮小圖片框高度。運(yùn)營(yíng)后窗體如圖2所示。規(guī)立程序中不得使用任何變量。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下，工程文獻(xiàn)名為lq2.vbp＞窗體文獻(xiàn)名為lq2?frnu圖1 圖2簡(jiǎn)樸應(yīng)用（2小題，每小題20分，共計(jì)40分）（1）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq3.vbp（相應(yīng)窗體文獻(xiàn)爼為lq3.frm），請(qǐng)裝入該文獻(xiàn)，在窗體上畫兩個(gè)命令按鈕（其劍稱分別為Command1和Command2,標(biāo)題分別為"添加項(xiàng)目"和"刪除項(xiàng)目"）,再畫一種列表框（名稱為L(zhǎng)istl）和一種文本框（名稱為Textl）,如圖1所示。編寫恰當(dāng)事件過程。程序運(yùn)營(yíng)后，如果單擊"添加項(xiàng)目"命令按鈕，則從鍵盤上輸入要添加到列表框中項(xiàng)目（內(nèi)容任意，不少于三個(gè)）：如果單擊"刪除項(xiàng)目"命令按鈕，則從鍵盤上輸入要?jiǎng)h除項(xiàng)目，將英從列表框中刪除。程序運(yùn)營(yíng)狀況如圖2所示。提供窗體文獻(xiàn)可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。規(guī)龍：去掉程序中注釋符，把程序中？改為恰當(dāng)內(nèi)容，使其對(duì)的運(yùn)營(yíng)，但不能修改程序中其她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)名存盤。圖1 圖2（2）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq4.vbp（相應(yīng)窗體文獻(xiàn)名為lqd.frm）,英功能是通過調(diào)用過程FindMax求數(shù)組最大值，請(qǐng)裝入該文獻(xiàn)。程序運(yùn)營(yíng)后，在四個(gè)文本框中各輸入一種整數(shù)，然后單擊命令按鈕，即可求出數(shù)組最大值，并在窗體上顯示出來（如圖所示）。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能對(duì)的運(yùn)營(yíng)。規(guī)左：去掉程序中注釋符，把程序中？改為對(duì)的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中其她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)名存盤。3?綜合應(yīng)用（1小題，計(jì)30分）在窗體上建立三個(gè)菜單（爼稱分別為Read、Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)”、“計(jì)算并輸岀"和"存盤"），然后畫一種文本框（爼稱為Textl,MultiLine屬性設(shè)立為True,ScrollBars屬性設(shè)立為2）（如圖所示）。程序運(yùn)營(yíng)后，如果執(zhí)行“讀入數(shù)據(jù)"命令，則讀入datainl.txt文獻(xiàn)中100個(gè)整數(shù)，放入一種數(shù)組中，數(shù)組下界為1；如果單擊“計(jì)算并輸岀“按鈕，則把該數(shù)組中下標(biāo)為奇數(shù)元素在文本框中顯示出來，求岀它們和，并把所求得和在窗體上顯示出來:如果單擊“存盤"按鈕，則把所求得和存入考生文獻(xiàn)夾下dataout.txt文獻(xiàn)中。在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq5.vbp,考生可以裝入該文獻(xiàn)。窗體文獻(xiàn)中ReadData過程可以把datainl.txt文獻(xiàn)中100個(gè)整數(shù)讀入Arr數(shù)組中；而WriteData過程可以把指左整數(shù)值寫到考生文獻(xiàn)夾下指泄文獻(xiàn)中（整數(shù)值通過計(jì)算求得，文獻(xiàn)需為dataout.txt）o注意：考生不得修改窗體文獻(xiàn)中已經(jīng)存在程序。存盤時(shí)，工程文獻(xiàn)名仍為lq5.vbp,窗體文獻(xiàn)名仍為lq5.frmo第18套1.基本操作（2小題，每小題15分，共計(jì)30分）（1）在名稱為Forml窗體上畫一種標(biāo)簽，名稱為L(zhǎng)1,標(biāo)簽上顯示"請(qǐng)輸入密碼"，在標(biāo)簽右邊畫一種文本框，爼稱為Textl,其寬、高分別為和300,設(shè)立恰當(dāng)屬性使得在輸入密碼時(shí)，文本框中顯示"*"字符，此外再把窗體標(biāo)題設(shè)立為"密碼窗口"，以上這些設(shè)立都只能在屬性窗口中進(jìn)行設(shè)立，運(yùn)營(yíng)時(shí)窗體如圖所示。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下，工程文獻(xiàn)名為lql.vbp,窗體文獻(xiàn)名為lql.frmo（2）在名稱為FormlW體上畫一種圖片框，名稱為P1,請(qǐng)編寫恰當(dāng)事件過程，使得在運(yùn)營(yíng)時(shí),每單擊圖片框一次，就在圖片框中輸出"單擊圖片框"一次，每單擊圖片框外窗體一次，就在窗體中輸出少單擊窗體少一次，運(yùn)營(yíng)時(shí)窗體如圖所示。規(guī)左程序中不得使用變量.每個(gè)事件過程中只能寫一條語句。*注意：存盤時(shí)必要存儲(chǔ)在考生文獻(xiàn)夾下，工程文獻(xiàn)名為lq2.vbp,窗體文獻(xiàn)名為lq2?frmo2?簡(jiǎn)樸應(yīng)用（2小題，每小題20分,共計(jì)40分）（1）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq3.vbp.窗體中有兩個(gè)圖片框，名稱分別為Pl、P2,其中圖片分別是一種航天飛機(jī)和一朵云彩，尚有一種計(jì)時(shí)器，名稱為Timer1,一種命令按鈕,名稱為C1,標(biāo)題為"發(fā)射"。并給出了兩個(gè)事件過程，但并不完整，規(guī)泄：1）設(shè)立計(jì)時(shí)器屬性，使苴在初始狀態(tài)下不計(jì)時(shí)；2）設(shè)立計(jì)時(shí)器屬性，使其每隔0.1秒調(diào)用Tim亡r事件過程一次。3）去掉程序中注釋符，把程序中？改為對(duì)的內(nèi)容，使得在運(yùn)營(yíng)時(shí)單擊"發(fā)射"按鈕，則航天飛機(jī)每隔0.1秒向上移動(dòng)一次，當(dāng)?shù)竭_(dá)P2下方時(shí)停止移動(dòng)，如圖所示。注意：不能修改程序中英她某些。最后把修改后文獻(xiàn)按原文獻(xiàn)名存盤。（2）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lq4.vbp,窗體上已有兩個(gè)文本