VB機(jī)試模擬試卷17（共22題）

VB機(jī)試模擬試卷17（共9套）（共22題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、在窗體上創(chuàng)建三個命令按鈕，名稱分別為Command1、Command2和Command3，標(biāo)題分別為“導(dǎo)入數(shù)據(jù)”、“字母轉(zhuǎn)換”和“保存數(shù)據(jù)”，以及一個文本框，名稱為Text1。編寫事件過程，使得在運(yùn)行時，單擊“導(dǎo)入數(shù)據(jù)”按鈕，從考生文件里讀入data.txt文件(字母&空格)，在Text1中顯示。單擊“字母轉(zhuǎn)換”按鈕，則把Text1中的所有大寫字母轉(zhuǎn)換成小寫字母。單擊“保存數(shù)據(jù)”按鈕，存入out.txt文件中。程序運(yùn)行后如圖28所示。要求實(shí)現(xiàn)題目給出的功能，并將文件保存在考生文件夾下，工程文件名為ylc.vbp。標(biāo)準(zhǔn)答案：(1)VisualBasic集成環(huán)境中，執(zhí)行“文件”→“新建工程”命令，選擇“標(biāo)準(zhǔn)Exe”。創(chuàng)建窗體Form1。(2)在工具箱中選擇文本框控件，在窗體建立一個文本框Text1，將其Text屬性設(shè)為空。(3)在工具箱中選擇命令按鈕控件在窗體上創(chuàng)建三個命令按鈕，名稱分別為Command1、Command2和Command3，標(biāo)題分別為“導(dǎo)入數(shù)據(jù)”、“字母轉(zhuǎn)換”和“保存數(shù)據(jù)”。(4)雙擊“導(dǎo)入數(shù)據(jù)”按鈕，彈出代碼窗口，在其中添加如下代碼：PrivateSubCommand1_Click()DimaAsStringCallFindData(a)Text1.Text=aEndSubSubFindData(aAsString)OpenApp.Path&"\"&"data.txt"ForInputAs#1DoWhileNotEOF(1)Input#1，aLoopClose#1EndSub(5)雙擊“字母轉(zhuǎn)換”按鈕彈出代碼窗口，在其中添加如下代碼：PrivateSubCommand2_Click()Text1.Text=UCase(Text1.Text)EndSub(6)雙擊“保存數(shù)據(jù)”按鈕彈出代碼窗口，在其中添加如下代碼：PrivateSubCommand3_Click()CallSaveData(Text1.Text)EndSubSubSaveData(aAsString)OpenApp.Path&"\"&"out.txt"ForOutputAs#1Print#1,aClose#1EndSub(7)按F5鍵運(yùn)行程序。如圖28所示。(8)執(zhí)行“文件”→“保存工程”命令，將工程文件命名為ylc.vbp，窗體文件命名為ylc.frm。知識點(diǎn)解析：(1)該題綜合考查了多個知識點(diǎn)，重點(diǎn)考查了文件的讀入操作并在文本框中輸出；字符串轉(zhuǎn)換函數(shù)UCase()，轉(zhuǎn)換字符串的大小寫；對順序文件的讀入和輸出的操作等。(2)該題重點(diǎn)考查了命令按鈕的單擊事件與函數(shù)過程的調(diào)用，通過調(diào)用可以很方便地實(shí)現(xiàn)題中要求的各種功能。VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、在窗體上創(chuàng)建三個命令按鈕，名稱分別為Command1、Command2和Command3，標(biāo)題分別為“導(dǎo)入數(shù)據(jù)”、“計算”和“保存數(shù)據(jù)”，以及一個文本框，名稱為Text1。編寫事件過程，使得在運(yùn)行時，單擊“導(dǎo)入數(shù)據(jù)”按鈕，從考生文件里讀入data.txt文件(其中有20個整數(shù))，在Text1中顯示。單擊“計算”，采用冒泡算法排序。單擊“保存數(shù)據(jù)”，存入out.txt文件中。程序運(yùn)行界面如圖29所示。標(biāo)準(zhǔn)答案：(1)VisualBasic集成環(huán)境中，執(zhí)行“文件”→“新建工程”命令，選擇“標(biāo)準(zhǔn)Exe”。創(chuàng)建窗體Form1。(2)在工具箱中選擇文本框控件，在窗體建立一個文本框Text1，將其Text屬性設(shè)為空。(3)在工具箱中選擇命令按鈕控件，在窗體上創(chuàng)建三個命令按鈕，名稱分別為Command1、Command2和Command3，標(biāo)題分別為“導(dǎo)入數(shù)據(jù)”、“計算”和“保存數(shù)據(jù)”。(4)雙擊“導(dǎo)入數(shù)據(jù)”按鈕，彈出代碼窗口，在其中添加如下代碼；PrivateSubCommand1_Click()DimaAsStringCallFindData(a)Text1.Text=aEndSubSubFindData(aAsString)OpenApp.Path&"\"&"data.txt"ForInputAs#1DoWhileNotEOF(1)Input#1，aLoopClose#1EndSub(5)雙擊“計算”按鈕，彈出代碼窗口，在其中添加如下代碼：PrivateSubCommand2_Click()Subsort(a()AsInteger)DimnAsIntegerFori=1To15Forj=1To15-iIf(a(j)＞a(j+1))Thenn=a(j)a(i)=a(i+1)a(j+1)=nEndIfNextiNextiEndSub(6)雙擊“保存數(shù)據(jù)”按鈕，彈出代碼窗口，在其中添加如下代碼：PrivateSubCommand3_Click()CallSaveData(Text1.Text)EndSubSubSaveData(strAsString)OpenApp．Path&"\"&"out.txt"ForOutputAs#1Print#1,aClose#1EndSub(7)按F5鍵運(yùn)行程序。如圖29所示。(8)執(zhí)行“文件”→“保存工程”命令，將工程文件命名為ylc.vbp，窗體文件命名為ylc.frm。知識點(diǎn)解析：(1)該題與上機(jī)模擬題十二在基本操作上類似，都考查了文件的讀入操作并在文本框中輸出；對順序文件的讀入和輸出的操作等。(2)該題重點(diǎn)考查了利用冒泡算法對數(shù)組元素進(jìn)行排序。VB機(jī)試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫兩個名稱分別為Frarnel、Frame2的框架，標(biāo)題分別為“字號”、“修飾”；在Framel中畫兩個單選按鈕，名稱分別為Optionl、Option2，標(biāo)題分別為“10號字”、“20號字”，且標(biāo)題顯示在單選按鈕的左邊；在Frame2中畫一個名稱為Checkl的復(fù)選框，標(biāo)題為“下劃線”。運(yùn)行后的窗體如圖1-34所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上從上到下畫兩個文本框，名稱分別為Textl、Text2；再畫一個命令按鈕，名稱為Commandl，標(biāo)題為“選中字符數(shù)是”。程序運(yùn)行時，在Textl中輸入若干字符，選中部分內(nèi)容后，單擊“選中字符數(shù)是”按鈕，則在Text2中顯示選中的字符個數(shù)(如圖1-35所示)。請編寫按鈕的Click事件過程。要求：程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sil2．frm。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表2-18在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表2-19所列在窗體FormI中畫出控件并設(shè)置它們的屬性。步驟2；打開代碼編輯窗口，編寫以下事件過程：參考代碼：PriVateSubCommandl_Click()Text2．Text=Form]．Textl．Sel．LengthEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第l小題復(fù)選框和單選按鈕的Alignment屬性用于設(shè)置復(fù)選框中標(biāo)題的對齊方式，0-LeftJustify為控件居左標(biāo)題居右(默認(rèn))，1-RightJustify為控件居右標(biāo)題居左。本題只需按題目在窗體中畫出控件，并設(shè)置相關(guān)屬性即可。第2小題要在Text2中顯示Textl中選中的字符個數(shù)，需編寫語句將Textl的SelLength屬性返回值賦值給Text2。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，窗體上有兩個列表框，名稱分別為List1、List2，在List2中已經(jīng)預(yù)設(shè)了內(nèi)容；還有兩個命令按鈕，名稱分別為C1、C2，標(biāo)題分別為“添加”、“清除”，如圖1-78所示。程序的功能是在運(yùn)行時，如果選中右邊列表框中的一個列表項，單擊“添加”按鈕，則把該項移到左邊的列表框中；若選中左邊列表框中的一個列表項，單擊“清除”按鈕，則把該項移回右邊的列表框中。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。既不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，請在Forml窗體上建立一個名稱為Op1的單選按鈕數(shù)組，含有三個單選按鈕，其標(biāo)題分別為“10!”、“11!”、“12!”，Index屬性分別為0、1、2：再畫一個名稱為Cl的命令按鈕，標(biāo)題為“計算”；畫一個名稱為Textl的文本框，如圖1-79所示。程序的功能是在選定一個單選按鈕并單擊“計算”按鈕后，可以計算出相應(yīng)的階乘值，在Textl中顯示該階乘值。請畫出上述控件并編寫程序。注意：考生不得修改工程中已經(jīng)存在的內(nèi)容，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一次計算。必須通過單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開本題對應(yīng)工程文件sjt3．vbp。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：While(k步驟2：在代碼編輯窗口，編寫“計算”按鈕的單擊事件過程。參考代碼：PrivateSubC1_Click()DimkAsIntegerk=0WhileNotOpl(k)．ValueAndk<3k=k+1WendIfk<3ThenTextl．Text=calculat(Val(Left$(opl(k)．Caption，2)))EndIfEndSubFunctioncalculat(nAsInteger)DimkAsInteger，tAsLongt=1Fork=2Tont=t*kNextkcalculat=tEndFunction步驟3：按要求將文件保存至考生文件夾中。步驟4：按鍵運(yùn)行程序，先選中一個選項，接著單擊“計算”按鈕，然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識點(diǎn)解析：第1小題列表框的Text屬性用于返回列表框中選擇的項目的內(nèi)容，返回值總與列表框的List(Ifistlndex)屬性的。返回值相同。實(shí)現(xiàn)本題兩個列表框之間的移出和移回功能，其實(shí)就是利用列表框的Addltem方法和Removeltem方法添加或刪除列表框中的項目。由題中源代碼可知，當(dāng)單擊“添加”按鈕時，利用While循環(huán)語句逐一取出列表框List2中的各項，并用If語句判斷是否有項目被選中，如果有被選中的項，就將其作為一個項目添加到列表框Listl中，同時將此項從列表框List2中刪除。列表框的Listlndex屬性可返回當(dāng)前選擇的項目的索引號，因此刪除選中項目的語句為；List2．RemoveltemList2．Listlndex。而循環(huán)的條件應(yīng)是：k三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sjt5．vbp，其窗體上有兩個文本框，名稱分別為Textl、Text2：還有三個命令按鈕，名稱分別為C1、C2、C3，標(biāo)題分別為“輸入”、“計算”、“存盤”(如圖1-210所示)。并有一個函數(shù)過程isprime(a)可以在程序中直接調(diào)用，其功能是判斷參數(shù)a是否為素數(shù)，如果是素數(shù)，則返回True，否則返回False。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時，單擊“輸入”按鈕，就把文件in5．txt中的整數(shù)放入Textl中；單擊“計算”按鈕，則找出大于Textl中的整數(shù)的第一個素數(shù)，并顯示在Text2中；單擊“存盤”按鈕，則把Text2中的計算結(jié)果存入out5．txt文件中。注意：考生不得修改isprime函數(shù)過程和控件的屬性，必須把計算結(jié)果通過單擊“存盤”按鈕存入out5．txt文件中。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開考生文件中的本題工程文件sit5．vbp，在代碼編輯窗口，分別編寫命令按鈕的單擊事件。參考代碼：PrivateSubCl_Click()Open"in5．txt"ForInputAs#1Input#1，a％Close#1Textl．Text=a％EndSubPrivateSubC2_Click()a％=Text1．TextDOa％=a％+1LoopUntilisprime(a％)Text2．Text=a％EndS11bPrivateSubC3_Click()Open"out5．txt"ForOutputAs#1Print#1，Text2．TextClose#1EndSub步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：程序設(shè)計思路：在“輸入”按鈕的單擊事件過程中，用Open語句以Input方式打開數(shù)據(jù)文件in5．txt，并用Input()函數(shù)讀出所有字符后顯示在文本框中；在“計算”按鈕的單擊事件過程中，調(diào)用過程isprime來求解大于Textl中整數(shù)的第一個素數(shù)。在“存盤”按鈕的單擊事件過程中，用Open語句以O(shè)utput方式打開數(shù)據(jù)文件out5．txt，并通過For循環(huán)用Print#方法逐一將數(shù)組中的元素存入該文件。VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個文本框，名稱為Textl，字體為“黑體”，文本框中的初始內(nèi)容為“程序設(shè)計”；再畫一個命令按鈕，名稱為cl，標(biāo)題為“改變字體”(如圖l-221所示)。請編寫適當(dāng)事件過程，使得在運(yùn)行時，單擊命令按鈕，則把文本框中文字的字體改為“宋體”。程序中不得使用任何變量。注意：保存時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個圖片框，名稱為P1，高為1800，寬為1600，并放入文件名為picl．bmp的圖片(如圖1-222所示)。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時，如果雙擊窗體，則圖片框中的圖片消失。程序中不得使用任何變量。注意：保存時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表2-129在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PriVateSubC1_Click()Me．Textl．Font．Name="宋體"EndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表2-130在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫窗體的雙擊事件過程。參考代碼：PriVateSubForm_DblClick()P1．PiCture=LoaoPlcture("")EndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題本題需在命令按鈕的單擊事件過程中，通過修改文本框的FontName屬性值為“宋體”來改變文本框中文本的字體。第2小題為圖片框控件指定圖片有兩種方法：一是在設(shè)計階段通過Picture屬性設(shè)置；二是在程序運(yùn)行時通過LoadPicture()圖片加載函數(shù)加載，其語法為：圖片框．Picture=LoadPieture(”圖像文件路徑”)，App．Path可返回當(dāng)前工程文件所在的文件夾路徑，是使用相對路徑的一種用法。用不帶參數(shù)的LoadPicture函數(shù)為對象的Picture屬性賦值將清除窗體、圖片框及圖像控件中的圖形。本題需在窗體的的DblClick事件過程中，用LoadPicture()函數(shù)為圖片框清除圖片。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，相應(yīng)的窗體文件為sjt3．frm，在窗體上有一個命令按鈕和一個文本框。程序運(yùn)行后，單擊命令按鈕，即可計算出數(shù)組air中每個元素與其下標(biāo)相除所得的和，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算數(shù)組art中每個元素與其下標(biāo)相除所得的和的操作在通用過程Fun中實(shí)現(xiàn)，請編寫該過程的代碼。要求：請勿改動程序中的其他部分，只在FunctionFun()和EndFunction之間填入編寫的若干語句并運(yùn)行程序。最后把修改后的文件按原文件名存盤。說明：數(shù)組flit中共有40個元素，所謂“數(shù)組air中每個元素與其下標(biāo)相除所得的和”，指的是：arr(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40。(2)在考生文件夾下有一個工程文件sjt4．vbp，相應(yīng)的窗體文件為sjt4．frm。在窗體上有兩個命令按鈕，其名稱分別為Commandl、Command2，一個標(biāo)簽控件，其名稱為Labell，一個計時器控件，其名稱為Timerl，如圖1-107(a)所示。程序運(yùn)行后，在命令按鈕Commandl中顯示“開始”，在命令按鈕Command2中顯示“停止”，在標(biāo)簽中用字體大小為16的粗體顯示“熱烈歡迎”(標(biāo)簽的AutoSize屬性為True)，同時把計時器的Interval屬性設(shè)置為50，Enabled屬性設(shè)置為True。此時如果單擊“開始”命令按鈕，則該按鈕變?yōu)榻?，?biāo)題變?yōu)椤袄^續(xù)”，同時標(biāo)簽自左至右移動，每個時間間隔移動20，如圖1-107(b)所示，移動出窗體右邊界后，自動從左邊界開始向右移動；如果單擊“停止”命令按鈕，則該按鈕變?yōu)榻?，“繼續(xù)”命令按鈕變?yōu)橛行?，同時標(biāo)簽停止移動；再次單擊“繼續(xù)”命令按鈕后，標(biāo)簽繼續(xù)移動。這個程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟l：打開考生文件夾下的本題工程文件sjt3．vbp。步驟2：進(jìn)入代碼編輯窗口，在FunctionFun()和EndFunction之間輸入以下代碼：參考代碼：FunctionFun(a()AsSingle)AsSingleSum=OFori=1ToUBound(a)Sum=Sum+a(i)／iNextiFun=SumEndFunction步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟l:打開考生文件夾下的本題工程文件sjt4．vbp。步驟2：進(jìn)入代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timerl．Enabled=TrueCommandl．Enabled=FalseTimer1．Enabled=FalseLabel1．Left=Label1．Left+20步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第l小題由本題所提供原程序可知，要求編寫一個求數(shù)組中各元素與其下標(biāo)相除所得的和，并在文本框中顯示出來的函數(shù)。設(shè)計思路：利用For循環(huán)語句，將數(shù)組中各元素除以其下標(biāo)(表達(dá)式為：a(i)／i)的值累加入一個變量(如sum)。循環(huán)變量的初值和終值可分別通過函數(shù)Lbound(a)和Ubound(a)獲得。第2小題本題原程序利用計時器的Timer事件來控制標(biāo)簽的移動，因此單擊“開始”按鈕啟動計時器，而單擊“停止”按鈕就是要停止計時器。在計時器的Timer事件過程中。通過每次使標(biāo)簽的Left屬性值增量20實(shí)現(xiàn)移動，當(dāng)標(biāo)簽完全移出窗體的右邊界(即Label．Left>Me．Width)時，則重新從窗體左邊界開始移動，即Label．Left=0。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生的文件夾下有一個工程文件sjt5．vbp，相應(yīng)的窗體文件為sjt5．劬。在窗體上有兩個命令按鈕，其名稱分別為Command1和Commaad2，標(biāo)題分別為“寫文件”和“讀文件”，如圖1-85(a)所示。其中“寫文件”命令按鈕事件過程用來建立一個通信錄，以隨機(jī)存取方式保存到文件t5．txt中：而“讀文件”命令按鈕事件過程用來讀出文件t5．txt中的每個記錄，并在窗體上顯示出來。通信錄中的每個記錄由三個字段組成，結(jié)構(gòu)如下：姓名(Name)電話(Tel)郵政編碼(Pos)LiuMingliang(010)62781234100082各字段的類型和長度為：姓名(Name):字符串15電話(Tel)：字符串15郵政編碼(Pos)：長整型(Long)程序運(yùn)行后。如果單擊“寫文件”命令按鈕，則可以隨機(jī)存取方式打開文件t5．txt，并根據(jù)提示向文件中添加記錄，每寫入一個記錄后，都要詢問是否再輸入新記錄，回答“Y”(或“y”)則輸入新記錄，回答“N”(或“n”)則停止輸入；如果單擊“讀文件”命令按鈕，則可以隨機(jī)存取方式打開文件t5．txt，讀出文件中的全部記錄，并在窗體上顯示出來，如圖1-85(b)所示。該程序不完整，請把它補(bǔ)充完整。要求如下：①去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。使其能正確運(yùn)行，但不能修改程序中的其他部分。②文件t5．txt中已有三個記錄，如圖1-85(b)所示，請運(yùn)行程序，單擊“寫文件”命令按鈕，向文件t5．txt中添加以下兩個記錄(全部采用西文方式)：LiDaqing(027)87348765430065ChenQingshan(022)26874321300120③運(yùn)行程序，單擊“讀文件”命令按鈕，在窗體上顯示全部記錄(共5個)。④用原來的文件名保存工程文件和窗體文件。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：RecNum=RecNum+1Put#1，RecNum，PersLoopWhileUCase(asp)<>"N"RecNum=LOF(1)／Len(Pers)Get：#l，i，Pers步驟2：按要求將文件保存至考生文件夾中。步驟3：按鍵鍵運(yùn)行程序，先單擊“寫文件”按鈕，然后在彈出的輸入框中依次按照題目要求輸入兩條記錄，再單擊“讀文件”按鈕在窗體上顯示結(jié)果。知識點(diǎn)解析：用Open語句打開隨機(jī)文件，其語法格式為：OpenFileNameforRandomas#FileNumberLen=記錄長度。記錄長度是一條記錄實(shí)際所占字節(jié)數(shù)，可用Len()函數(shù)獲取；Get#語句用于從文件中讀出某記錄號的記錄，格式為：Get撐FileNumber,[RecordNuber],Var;Put#語句用于把記錄按指定記錄號寫入文件，格式為：Put#FileNumber,[RecordNuber],Var。在“寫文件”命令按鈕的Click事件過程中，用Open語句打開考生文件夾下的文件t5．tXt，變量RccNum代表記錄個數(shù)，在Do…Loop循環(huán)中(以輸入的不是“N”作為循環(huán)條件)，用Put語句將記錄變量Pcrs寫入隨機(jī)文件中相應(yīng)記錄號的記錄，然后令記錄號加1以便下次繼續(xù)寫入。在“讀文件”命令按鈕的Click事件過程中，用Open語句打開文件t5．txt，同樣使用變量RccNum代表記錄個數(shù)，然后再一個For循環(huán)中依次使用Get語句取出每一個記錄并且顯示。VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個文本框，其名稱為T1，寬度和高度分別為1400、400;再畫兩個命令按鈕，其名稱分別為Cl和C2，標(biāo)題分別為“顯示”和“擴(kuò)大”，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊Cl命令按鈕，則在文本框中顯示“等級考試”，如圖l-18l(a)所示；如果單擊C2命令按鈕，則使文本框在高、寬方向上各增加一倍，文本框中的字體大小擴(kuò)大到原來的3倍，如圖l-18l(b)所示。注意；要求程序中不得使用變量。存盤時必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個命令按鈕，其名稱為C1，標(biāo)題為“轉(zhuǎn)換”；然后再畫兩個文本框，其名稱分別為Textl和Text2，初始內(nèi)容均為空白，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，在Textl中輸入一行英文字符串，如果單擊轉(zhuǎn)換按鈕，則Textl文本框中的字母都變?yōu)樾?，而Text2中的字母都變?yōu)榇髮?。例如，在Textl中輸入visualbasicprogramming，則單擊轉(zhuǎn)換按鈕后，結(jié)果如圖1-182所示。注意：不得使用任何變量。存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表2-102在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫兩個命令按鈕的單擊事件過程。參考代碼：PrivateSubC1_Click()T1="等級考試"EndSubPrivateSubC2_Click()T1．Height=2*Me．T1．HeightT1．Width=2*T1．WidthT1．FontSize=3*Forml．T1．FontSizeEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表2-103在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PrivateSubC1_Click()Textl．Text=LCase(Textl．Text)Text2．Text=UCase(Textl．Text)EndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題①文本框(Text)通常用于接收用戶輸入的字符串?dāng)?shù)據(jù)或用于顯示輸出信息，其Text屬性用于設(shè)置或返回文本框中顯示的文本。②控件的Height和Width屬性用于設(shè)置控件在屏幕上的大小(即高和寬)。③字體大小通過FontSize屬性設(shè)置，一般格式為：FontSize[=點(diǎn)數(shù)]。要在單擊“擴(kuò)大”按鈕時，使文本框在高、寬方向上各增加一倍，只需在“擴(kuò)大”按鈕的Click事件中編寫設(shè)置文本框的Height和Width屬性值為原來2倍的語句。要使文本框中的字體大小擴(kuò)大到原來的3倍，需編寫設(shè)置文本框的FontSize屬性值為原來3倍的語句。第2小題①UCasc()函數(shù)用于將字符串中小寫字母轉(zhuǎn)換為大寫字母，原本大寫或非字母字符保持不變。②LCase()函數(shù)用于將字符串中大寫字母轉(zhuǎn)換為小寫字母，原本小寫或非字母字符保持不變。本題原程序是在命令按鈕的單擊事件過程中，將文本框Textl中的字符用UCase函數(shù)轉(zhuǎn)換為大寫并顯示在Toxt2中，同時用LCase函數(shù)轉(zhuǎn)換為小寫并顯示在Textl中。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，含有名稱分別為Forml、Form2的兩個窗體。其中Forml上有兩個控件(圖像框和計時器)和一個菜單項“操作”，含有三個菜單命令，如圖1-163(a)所示。Form2上有一個名稱為Commandl、標(biāo)題為“返回”的命令按鈕，如圖1-163(b)所示。要求當(dāng)單擊“窗體2”菜單命令時，隱藏Forml，顯示Form2。單擊“動畫”菜單命令時，使小汽車開始移動，一旦移到窗口的右邊界時自動跳到窗體的左邊界重新移動。單擊“退出”菜單命令時，結(jié)束程序運(yùn)行。請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp。其窗體上已有部分控件，請按照如圖1-164所示添加框架和單選按鈕。要求：畫兩個框架，名稱分別為Framel、Frame2，在Framel中添加一個名為Optionl的單選按鈕數(shù)組，含兩個單選鈕，標(biāo)題分別為“古典音樂”、“流行音樂”，在名稱為Frame2中添加兩個單選按鈕，名稱分別為Option2、Option3，標(biāo)題分別為“籃球”、“羽毛球”。剛運(yùn)行程序時，“古典音樂”和“籃球”單選按鈕為選中狀態(tài)。單擊“選擇”按鈕，將把選中的單選按鈕的標(biāo)題顯示在標(biāo)簽Label2中，如圖1-164所示。如果“音樂”或“體育”未被選中，相應(yīng)的單選按鈕不可選。要求：按照題目要求添加控件，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3．vbp，打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：SelectCaseIndexTimerl．Enabled=TrueIfPicturel．Left+Picturel．Width>=WidthThenPicturel．Left=0步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt4．vbp，在窗體上畫兩個框架、一個含兩個元素的單選按鈕數(shù)組，兩個單選按鈕，如表2-93設(shè)置它們的屬性。步驟2：打開代碼編輯窗口，修改“選擇”按鈕的Click事件過程，代碼如下。參考代碼：IfOptionl(0)．Value=TrueThenIfOption2=TrueThenLabel2．Caption=s步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題本題原程序在菜單項數(shù)組的單擊事件過程中，通過SelectCase語句對按鈕數(shù)組的索引號(即Index參數(shù)，第一個?處應(yīng)為Index)進(jìn)行檢查，若索引號為1則顯示Form2，隱藏Forml；若索引號為2則令計時器開始啟動，第兩個?處應(yīng)為True；若索引號為3則結(jié)束程序。計時器啟動時，每次Timer事件都是使小汽車向右移動，一旦超出了窗體的右邊界(判斷條件為Picturel．Left+Pictttrel．Width>=Width)，則令圖片框的Left屬性為0，以便移到窗體左側(cè)。第2小題當(dāng)轉(zhuǎn)換其他的數(shù)值類型為Boolean值時，0會轉(zhuǎn)換成False，而其他的值則會轉(zhuǎn)換成True。當(dāng)轉(zhuǎn)換Boolean值為其他的數(shù)據(jù)類型時，F(xiàn)alse會轉(zhuǎn)換成0，而True會轉(zhuǎn)換成．1。本題在“確定”按鈕的Click事件過程中，先檢查是否選中“音樂”復(fù)選框，若選中則繼續(xù)檢查是否選中“古典音樂”單選按鈕，若選中則字符串變量s的值就為“古典音樂”，否則S的值就為“現(xiàn)代音樂”。接著檢查是否選中“體育”復(fù)選框，若選中則繼續(xù)檢查是否選中“乒乓球”單選按鈕，若選中則字符串變量S的值后連接“乒乓球”，否則s的值后連接“羽毛球”。最后在標(biāo)簽中顯示S的值。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生目錄下有一個工程文件sjt5．vbp，用來計算勾股定．理整數(shù)組合的個數(shù)，勾股定理中三個數(shù)的關(guān)系是：a2+b22=c2，例如3、4、5就是一個滿足條件的整數(shù)組合(注意：a、b、c分別為4、3、5與分別為3、4、5被視為同一個組合，不應(yīng)該重復(fù)計算)。編寫程序，統(tǒng)計三個數(shù)均在60以內(nèi)滿足上述關(guān)系的整數(shù)組合的個數(shù)，并顯示在標(biāo)簽Labd1中。注意：不得修改原有程序控件的屬性，在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將統(tǒng)計的結(jié)果顯示在標(biāo)簽中，否則無成績，最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟l：打開考生文件中的本題工程文件sjt5．vibp，在代碼編輯窗口編寫“計算”按鈕的單擊事件過程。參考代碼：n=0Fori=1To60Forj=1To60Fork=1To60x=k*kIf(x=i*i+j*j)Andj>iThenPrinti；j；kn=n+1EndIfNextkNextjNextiLabel1．Caption=n步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：本題可以使用一個三重循環(huán)來判斷滿足勾股定理的組合，由外至內(nèi)依次使用循環(huán)變量i、j、k，其變化范圍均為l~60。在內(nèi)循環(huán)中。首先判斷k*k是否等于i．i+j．j，若等于則證明滿足勾股定理；由于滿足勾股定理的兩個數(shù)都是成對出現(xiàn)，為了不重復(fù)計算，還需要加上限定比如j>i。當(dāng)找到滿足條件的一對i、j、k的時候，輸出這三個數(shù)，并且令計數(shù)器加l。VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、有一個工程文件ylc5.vbp，窗體上有一個單選按鈕數(shù)組，含3個沒有標(biāo)題的單選按鈕。為單選按鈕添加標(biāo)題“語文”、“數(shù)學(xué)”、“英語”；再添加一個標(biāo)題為“顯示”的命令按鈕，運(yùn)行后將根據(jù)單選按鈕的選中情況，在窗體上顯示“我喜歡語文”、“我喜歡數(shù)學(xué)”、“我喜歡英語”。要求單選按鈕的初始值為英語。運(yùn)行后如圖21所示。注意：存盤時必須存放在考生文件夾下，工程文件名為ylc5.vbp，窗體文件名為ylc5.frm。標(biāo)準(zhǔn)答案：1．操作步驟(1)在VisualBasic集成環(huán)境中選擇“文件”→“打開工程”命令，在對話框中選擇ylc5.vbp工程文件，單擊“確定”按鈕打開。(2)在工具箱中選擇OptionButton控件，分別在窗口中創(chuàng)建3個，都命名為Option1。VisualBasic提示是否建立單選控件數(shù)組，選擇確定。在屬性窗口中其名稱(Name)分別為Option(0)、Option(1)、Option(2)，標(biāo)題(Caption)分別為“語文”、“數(shù)學(xué)”和“英語”。(3)根據(jù)題目要求，在屬性窗口設(shè)置標(biāo)題為英語的控件Option(2)的Value屬性為True，表示其初始值是英語。(4)選擇命令按鈕，設(shè)置名稱(Name)為Command1，標(biāo)題(Caption)為“顯示”。1．行為編碼選擇Command1對象和Click事件，命令按鈕的事件過程代碼如下：PrivateSubCommand1_Click()’清除窗體上所有的圖形和文本Form1.ClsFori=0ToOption1.Count-1IfOptionl.Item(i).ValueThen’使用控件的Caption屬性顯示名稱，進(jìn)行字符串連接后顯示在窗體上Form1.Print("我喜歡"&Option1.Item(i).Caption)EndIfNextiEndSub3．存盤保存執(zhí)行“文件”→“保存工程”命令，工程文件名為ylc5.vbp，窗體文件名為ylc5.frm。知識點(diǎn)解析：(1)本題考查單選按鈕控件組的處理。通過循環(huán)判斷每次選擇的單選按鈕，在窗體上顯示相應(yīng)的標(biāo)題字符的組合。(2)注意OptionButton控件數(shù)組的建立、For循環(huán)語句、Form對象的Print方法。(3)在For循環(huán)中檢測當(dāng)前單選按鈕數(shù)組的值，連接字符串，通過Print方法打印在窗體上。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、有一個工程文件ylc6.vbp。請在窗體上畫一個文本框，其名稱為Text1；畫一個命令按鈕，名稱為Command1，標(biāo)題為“確定”。再畫5個單選按鈕，名稱分別為option1、Option2、Option3、Option4和Option5，標(biāo)題分別為“飛機(jī)”、“火車”、“汽車”、“自行車”和“步行”，如圖26所示。編寫適當(dāng)事件過程。選中一個單選按鈕，并單擊“確定”按鈕，按照表3-1在文本框中顯示相應(yīng)的內(nèi)容。提供Command1對象的Click事件源代碼如下，請補(bǔ)充完整。PrivateSubCommand1_Click()If?ThenText1.Text="需要1小時"EndIfIf?ThenText1.Text="需要10小時"EndIfIf?ThenText1.Text="需要20小時"EndIfIf?ThenText1.Text="需要100小時"EndIfIf?ThenText1.Text="需要500小時"EndIfEndSub注意：不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須選擇進(jìn)行上面的一種操作．退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕．存盤時必須存放在考生丈件夾下，工程文件名為ylc6.vbp，窗體文件名為ylc6.frm．標(biāo)準(zhǔn)答案：1．操作步驟(1)在VisualBasic集成環(huán)境選擇“文件”→“打開工程”命令，在對話框中選擇ylc6.vbp工程文件，單擊“確定”按鈕打開。(2)在工具箱中選擇TextBox控件，在窗體中創(chuàng)建命名為Text1。在屬性窗口分別設(shè)置屬性為空。(3)從工具箱中選擇選項控件，在窗體中拖動創(chuàng)建，在屬性窗口分別命名為Option1、Option2、Option3、Option4和Option5，標(biāo)題分別為“飛機(jī)”、“火車”、“汽車”、“自行車”和“步行”。(4)通過工具箱創(chuàng)建命令按鈕，命名為Command1，標(biāo)題為“確定”。2．行為編碼補(bǔ)充后Command1對象的Click事件的完整代碼如下：PrivateSubCommand1_Click()IfOption1.ValueThenText1.Text="需要1小時"EndIfIfOption2.ValueThenText1.Text="需要10小時"EndIfIfOption3.ValueThenText1.Text="需要20小時"EndIfIfOption4.ValueThenText1.Text="需要100小時"EndIfIfOption5.ValueThenText1.Text="需要500小時"EndIfEndSub3．存盤保存執(zhí)行“文件”→“保存工程”命令，工程文件名為yle6.vbp，窗體文件名為ylc6.frm。知識點(diǎn)解析：(1)這是一道簡單的應(yīng)用題，主要考查OptionButton控件的應(yīng)用能力。在編程中使用判定的控制流程，顯示出不同的結(jié)果信息。(2)上面的控制流程使用3個If，．．Then．．．EndIf，分別判斷3個單選按鈕是否被選中。判斷后在文本框中顯示相應(yīng)的信息。VB機(jī)試模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上，繪制一個文本框和兩個命令按鈕。文本框的名稱為Textl，內(nèi)容初始時為空。兩個命令按鈕的名稱分別為Commandl、Command2、標(biāo)題分別為“顯示”和“隱藏”。編寫適當(dāng)?shù)氖录^程，當(dāng)程序運(yùn)行時，單擊Commandl命令按鈕，顯示文本框，文本框中顯示“模擬考試”；單擊Command2命令按鈕時，文本框消失。程序中不得使用任何變量。程序運(yùn)行時的窗體界面如圖29—1所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sjl．frm，工程文件名為sjl．vbp。(2)在名稱為Forml的窗體上繪制一個命令按鈕，其名稱為Commandl，標(biāo)題為“向左移動”。編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行時，如果單擊命令按鈕，則按鈕向左移動500單位。程序中不得使用任何變量。程序運(yùn)行時的窗體界面如圖29—2所示。注意：保存時必須存放在考生文件夾下，窗體文件名為sj2．frm，工程文件名為sj2．vbp。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個文本框控件和兩個命令按鈕添加到窗體中，文本框的名稱為Textl，Text屬性為“模擬考試”，命令按鈕的名稱為Commandl和Command2，Caption屬性分別為“顯示”和“隱藏”。雙擊Command，進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandlClick()Textl．Visible=True’Textl可見EndSubPrivateSubCommand2Click()Textl．Visible=False’Textl不可見EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個Command添加到窗體中，其名稱為Commandl、Caption屬性為“向左移動”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandlClick()Commandl．Left=Commandl．Left-500EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。(1)在考生文件夾下有工程文件sjt3.vbp及窗體文件sjt3.frm，該程序是不完整的，請在有?號的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即’號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。如圖16-3所示。在名稱為Form1的窗體上有1個Labe1控件，四個Text控件及七個命令按鈕，功能為：開始啟動工程時，界面上除“開始錄入”及“退出”按鈕之外，其他按鈕均不可用(灰色顯示)；單擊“開始錄入”按鈕之后，利用InputBox讓用戶連續(xù)且必須錄入10個數(shù)。若錄入為非數(shù)字符號，則給出警告“輸入數(shù)據(jù)無效，請重新輸入數(shù)值數(shù)據(jù)，請輸入第n個數(shù)”；錄入完畢后，“開始錄入”變灰，其他變?yōu)榭捎脿顟B(tài)；按相應(yīng)的按鈕可分別求出所錄入數(shù)據(jù)的升序、降序排列及最大數(shù)和最小數(shù)，并在右側(cè)對應(yīng)的文本框中顯示(注意用A(10)存放最大數(shù)，A(1)存放最小數(shù))；單擊“清除”按鈕將所有文本框清空。(2)在考生文件夾下有工程文件sit4.vbp及窗體文件sjt4.frm，該程序是不完整的，請在有?號的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即’號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。如圖16-4所示。在名稱為Form1，標(biāo)題為“求和程序”的窗體上有3個Labe1控件，2個Text控件和3個命令按鈕。該程序的主要功能是求從1到Text1中用戶輸入的任意自然數(shù)n的累加和。剛啟動工程時，“顯示結(jié)果”和“清除”按鈕均為灰色；可以在輸入框內(nèi)輸入任意自然數(shù)(n值太大時，運(yùn)算時間將很長，建議不超過9位)。在輸入數(shù)的同時“顯示結(jié)果”變?yōu)榭捎谩．?dāng)輸入為非數(shù)值時，累加結(jié)果為0；單擊“顯示結(jié)果”可以在Text2中顯示累加和，且該框內(nèi)的文字不可修改，同時“顯示結(jié)果”變灰，“清除”變?yōu)榭捎茫粏螕簟扒宄?，輸入框和顯示框均顯示“0”單擊“關(guān)閉”按鈕結(jié)束程序的運(yùn)行。標(biāo)準(zhǔn)答案：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。用數(shù)組a(10)來接收InputBox輸入的10數(shù)，InputBox的格式為：InputBox(提示[，標(biāo)題][，默認(rèn)][，X坐標(biāo)位置][，Y坐標(biāo)位置])；控件是否可用可利用其Enabled屬性設(shè)置，當(dāng)該值為True時可用，為False時不可用(灰色)；判斷是否是數(shù)字可用IsNumeric()，如果是數(shù)字返回True，否則返回False；本程序中用到的排序方法是將某一個元素做為標(biāo)桿，其后的每一個元素與其比較，若小于標(biāo)桿則兩者交換，依此類推，題中要求排完序后a(1)至a(10)依次存放大數(shù)，在文本框中顯示升序和降序的時候只要兩者反序顯示即可，即升序可依次顯示a(1)到a(10)，降序可依次顯示a(10)到a(1)。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表16-3。第二步：編寫程序代碼。程序提供的代碼：OptionExplicitDima(10)AsVariantDimiAsInteger,jAsIntegerDimmAsSinglePrivateSubCommand1_Click()’Text2.Text=Command1.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand2_Click()’Text3.Text=?Command2.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand3_Click()Fori=1To10’Text1.Text=Text1.Text&?&","NextiCommand3.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand4_Click()Fori=10To1Step-1’Text4.Text=Text4.Text&?&","NextiCommand4.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6Click()Label1.Enabled=FalseFori=1To10a(i)=InputBox("請輸入第"&i&"個數(shù),請務(wù)必輸入數(shù)值數(shù)據(jù)!","輸入")DoWhileIsNumeric(a(i))=Falsea(i)=InputBox("輸入數(shù)據(jù)無效,請重新輸入數(shù)值數(shù)據(jù)!!!"&"請輸入第"&_i&"個數(shù)","輸入")LoopNextiFori=1To9Forj=i+1To10’IfVal(a(j))?Val(a(i))Thenm=a(j)a(j)=a(i)a(i)=mEndIfNextjNextiCommand6.Enabled=FalseCommandl.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand7.Enabled=FalseEndSubPrivateSubCommand7_Click()’Text1.Text=?’Text2.Text=?’Text3.Text=?’Text4.Text=?Label1.Enabled=TrueCommand6.Enabled=TrueCommand4.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=FalseCommandl.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand7.Enabled=FalseEndSub參考代碼：OptionExplicitDima(10)AsVariantDimiAsInteger,jAsIntegerDimmAsSinglePrivateSubCommand1_Click()Text2.Text=a(10)Command1.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand2_Click()Text3.Text=a(1)Command2.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand3_Click()Fori=1To10Text1.Text=Text1.Text&a(i)&","NextiCommand3.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand4_Click()Fori=10To1Step-1Text4.Text=Text4.Text&a(i)&","NextiCommand4.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6_Click()Label1.Enabled=FalseFori=1To10a(i)=InputBox("請輸入第"&i&"個數(shù),請務(wù)必輸入數(shù)值數(shù)據(jù)!","輸入")DoWhileIsNumeric(a(i))=Falsea(i)=InputBox("輸入數(shù)據(jù)無效,請重新輸入數(shù)值數(shù)據(jù)!!!"&"請輸入第"&i&_"個數(shù)","輸入")LoopNextiFori=1To9Forj=i+1To10IfVal(a(j))＜Val(a(i))Thenm=a(j)a(j)=a(i)a(i)=mEndIfNextjNextiCommand6.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand7.Enabled=FalseEndSubPrivateSubCommand7_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Label1.Enabled=TrueCommand6.Enabled=TrueCommand4.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=FalseCommand1.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand7.Enabled=FalseEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。(2)控件是否可用可利用其Enabled屬性設(shè)置，當(dāng)該值為True時可用，為False時不可用(灰色)；計算從1到n的數(shù)字的和可從1開始向后計算，每一步計算的結(jié)果都保留然后再用上一步計算的值和后面的數(shù)字計算；清除可使文本框的內(nèi)容置空來實(shí)現(xiàn)(文本框.Text="")；顯示結(jié)果框內(nèi)的文字不可修改，是通過Locked屬性變?yōu)門rue時鎖定的。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表16-4。第二步：編寫程序代碼：程序提供的代碼：OptionExplicitPrivateSubCommandlClick()DimiAsDoubleDimsumAsDoubleDimnAsDoublesum=0n=Val(Text1.Text)Fori=1Ton’sum=?Next1’Text2.Text=?Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2Click()’Text1.Text=?’Text2.Text=?Command1.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3Click()EndEndSubPrivateSubFormLoad()Command1.Enabled=FalseCommand2.Enabled=FalseEndSubPrivateSubText1_Change()Command1.Enabled=TrueEndSubOptionExplicitPrivateSubCommand1Click()DimiAsDoubleDimsumAsDoubleDimnAsDoublesum=0n=Val(Text1.Text)Fori=1Tonsum=sum+iNextiText2.Text=sumCommand1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Text1.Text=0Text2.Text=0Command1.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseEndSubPrivateSubText1_Change()Command1.Enabled=TrueEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件Sj5．vbp，窗體上有一個文本框，名稱為Textl，可以多行顯示。還有3個命令按鈕，名稱分別為Commandl、Command2和Command3，標(biāo)題分別為“讀取數(shù)據(jù)”、“降序排列”和“保存”?！白x取數(shù)據(jù)”按鈕的功能是從考生文件夾下的in5．dat文件中讀取40個整數(shù)到數(shù)組中，并在Textl中顯示出來；“降序排列”按鈕的功能是對這40個數(shù)降序排序，并顯示在Textl中；“保存”按鈕的功能是把排好序的40個數(shù)存到考生文件夾下的out5．dat文件中。程序運(yùn)行界面如圖38—5所示。注意：在窗體中已經(jīng)給出了全部控件和部分程序，要求閱讀程序并去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：本題在排序中，使用雙重循環(huán)，外循環(huán)每循環(huán)一次，確定內(nèi)循環(huán)的次數(shù)，內(nèi)循環(huán)就是把本次循環(huán)中最小的數(shù)，放在數(shù)組的最后面，這樣就可以實(shí)現(xiàn)對40個數(shù)的降序排序。原代碼補(bǔ)充后如下：Dima(40)AsLongDimstr(40)AsStringDimtexAsStringDimiAsIntegerPrivateSubCommandlClick()’讀取數(shù)據(jù)tex=""Open"App．Path&＼in5．dat"ForInputAs#1Fori=1To40Input#1，a(i)’逐個讀取40個數(shù)據(jù)str(i)=a(i)tex：tex+str(i)+""’將數(shù)組放到一個字符串中NextiClose#1Textl．Text=tex’在Textl中顯示字符串EndSubPrivateSubCommand3Click()’保存數(shù)據(jù)Open"App．Path&＼out5．dat"ForOutputAs#1Print#1，Textl．TextClose#1EndSub并在Command2的Click事件中編寫以下代碼：PrivateSubCommand2Click()Fori=1To40’降序排列temp=a(i)Forj=1ToiIfa(j)按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第8套一、基本操作題(本題共1題，每題1.0分，共1分。)1、1.在窗體上畫一個文本框(名稱為Text1)和一個命令按鈕(名稱為C1，標(biāo)題為“顯示”)，請編寫C1的Click事件過程，使得在程序運(yùn)行時，按Esc鍵就調(diào)用這個事件過程且在文本框中顯示“等級考試”，程序運(yùn)行結(jié)果如圖1—1所示。在程序中不能使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。2．在窗體上畫兩個名稱分別為C1、C2標(biāo)題分別為“第一個按鈕”、“第二個按鈕”的命令按鈕，其大小相同，然后編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“第一個按鈕”，則把“第二個按鈕”移到“第一個按鈕”上，使兩個按鈕重合，如圖1—2和1—3所示。存盤時，工程文件名為sjr2.vbp，窗體文件名為sjr2.frm。標(biāo)準(zhǔn)答案：①建立界面和設(shè)置控件屬性。程序用到的控件及其屬性如下表1所示。②編寫程序代碼。參考代碼：PrivateSubC1_Click()Text1.Text＝"等級考試"EndSub③按題目要求存盤。2．①啟動VisualBasic，在窗體上畫兩個命令按鈕。②按F4鍵激活屬性窗口，在屬性窗口中設(shè)置兩個命令按鈕的屬性，見表2。③編寫第1個命令按鈕的Click事件過程；PrivateSubC1_Click()C2.Top＝C1.TopC2.Left＝C1.LeftEndSub知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、1.在考生文件夾下有一個工程文件sjt3.vbp，它的功能是在文本框中輸入一個整數(shù)，單擊“移動”按鈕后，如果輸入的是正數(shù)，滾動條中的滾動框向右移動與該數(shù)相等的刻度，但如果超過了滾動條的最大刻度，則不移動，并且顯示“文本框中的數(shù)值太大”；如果輸入的是負(fù)數(shù)，滾動條中的滾動框向左移動與該數(shù)絕對值相等的刻度，但如果超過了滾動條的最小刻度，則不移動，并且顯示“文本框中的數(shù)值太小”。如圖2—1所示。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的程序以原來的文件名存盤。2．在考生文件夾下有一個工程文件sjt4.vhp，相應(yīng)的窗體文件為sjt4.frm。在窗體上有2個命令按鈕、1個標(biāo)簽和1個計時器，其名稱分別為Command1、Command2、Label1和Timer1，如圖2—2所示。程序運(yùn)行后，在命令按鈕Command1中顯示“開始”，在命令按鈕Command2中顯示“停止”，在標(biāo)簽中用字體大小為16的粗體顯示“熱烈歡迎”(標(biāo)簽的AutoSize屬性為True)，同時把計時器的Interva1屬性設(shè)置為50，Enabled屬性設(shè)置為False。此時如果單擊“開始”命令按鈕，則該按鈕變?yōu)榻?，?biāo)題變?yōu)椤袄^續(xù)”，同時標(biāo)簽自左至右移動，每個時間間隔移動20，如圖2—3所示，移動出窗體右邊界后，自動從左邊界開始向右移動；如果單擊“停止”命令按鈕，則該按鈕變?yōu)榻?，“繼續(xù)”命令按鈕變?yōu)橛行?，同時標(biāo)簽停止移動；再次單擊“繼續(xù)”命令按鈕后，標(biāo)簽繼續(xù)移動。這個程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。試題所提供的程序如下：PrivateSubFormLoad()Command1.Caption="開始"Command2.Caption="停止"Timer1.Interval=50Timer1.Enabled=FalseLabel1.Caption="熱烈歡迎"Label1.AutoSize=TrueLabel1.FontSize=16Label1.FontBold=TrueEndSubPrivateSubCommand1_Click()Command1.Caption="繼續(xù)"’Timer1.Enabled=?Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()’Timer1.Enabled=?Command2.Enabled=FalseCommand1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.Left＜WidthThen’Label1.Left=?Else’Label1.Left=?EndIfEndS