國家二級VB機(jī)試（綜合應(yīng)用題）模擬試卷1（共90題）

國家二級VB機(jī)試（綜合應(yīng)用題）模擬試卷1（共9套）（共90題）國家二級VB機(jī)試（綜合應(yīng)用題）模擬試卷第1套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾中有一個工程文件vbsj5．vbp(相應(yīng)的窗體文件為vbsj5．frm)。窗體Form1上有兩個名稱為Lab1和Lab2的標(biāo)簽，它們的標(biāo)題分別為“密碼”和“允許次數(shù)”；一個名稱為Cmd1的命令按鈕，其標(biāo)題為“確定”；兩個名稱分別為Txt1和Txt2一的文本框。其中Txt1用來輸入密碼(輸入時顯示“*”)，無初始內(nèi)容，Txt2的初始內(nèi)容為3。已給出了Cmd1的事件過程，但不完整，要求去掉程序中的注釋符“’”，把程序中的問號“?”改為正確內(nèi)容，使得在運行時，在。Txt1中輸入密碼后，單擊“確定”按鈕，如果輸入的是“123456”，則在Txt1中顯示“密碼正確”如圖3—66所示；如果輸入其他內(nèi)容，單擊“確定”后，彈出如圖3—67所示的錯誤提示對話框，并且Txt2中的數(shù)字減1。最多可輸入3次密碼，若3次輸入錯誤，則禁止再次輸入。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件vbsj5．vbp，將文本框Txt1的PasswordChar屬性值設(shè)置為“*”。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：IfTxt1．Text＝"123456"ThenTxt1．PasSwordChar＝""IfTxt2．Text＞0ThenTxt1．Enabled＝False步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析2、在考生文件夾下有一個工程文件vbsj5．vbp，已給出了部分控件和部分程序。請在窗體上畫三個標(biāo)簽，其名稱分別為lblName、lblTel和lblPost，標(biāo)題分別為“姓名”、“電話號碼”和“郵政編碼”。再畫三個文本框，其名稱分別為txtName、txtTel和txtPost，初始內(nèi)容均為空白，如圖3－72所示。程序運行后，如果單擊“顯示第三個記錄”命令按鈕，則讀取考生文件夾下in5．txt文件中的第三個記錄，將該記錄的三個字段分別顯示在三個文本框中(該文件是一個用隨機(jī)存取方式建立的文件，共有5個記錄)。單擊“保存”按鈕，則把該記錄(三個字段)保存到考生文件夾下的順序文件out5．txt中。請編寫“顯示第三個記錄”按鈕的Click事件過程，以實現(xiàn)上述功能。注意：考生不得修改已經(jīng)存在的程序，必須用“保存”按鈕存儲結(jié)果，否則無成績。最后，按原文件名把程序存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件vbsj5．vbp，按表4－44在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：在代碼編輯窗口中，編寫cmdDisplay_Click事件過程。參考代碼：PrivateSubcmdDisplayClick()DimpersAsPalTypeOpen"in5．txt"ForRandomAs＃1_Len＝Len(pers)Get＃1，3，perstxtName．Text＝pers．NametxtTe1．Text＝pers．Te1txtPost．Text＝pers．PostClose＃lEndSub步驟3：按＜F5＞鍵運行程序，先單擊“顯示第三個記錄”按鈕，再單擊“保存”按鈕。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析3、在考生文件夾下有一個工程文件sjt5．vbp，相應(yīng)的窗體文件為sjt5．frm，此外還有一個名為datain．txt的文本文件，其內(nèi)容如下：32437658281298573142536475869713243546576879805937程序運行后單擊窗體，將把文件datain．txt中的數(shù)據(jù)輸入二維數(shù)組Mat中，按5行5列的矩陣形式顯示在窗體上，然后交換矩陣第二列和第四列的數(shù)據(jù)，將交換后的矩陣顯示在窗體上，如圖所示。在窗體的代碼窗口中，已給出了部分程序，這個程序不完整，請把它補(bǔ)充完整，并能正確運行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容(可以是多行)，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案OptionBase1PrivateSubForm_Click()ConstN＝5ConstM＝5DimMat(N,M)AaInteger’定義二維數(shù)組Dimi，j，tOpenApp．Path＆"＼"＆"datain．txt"ForInputAs#1’對文件進(jìn)行讀操作Fori＝1TONForj＝1ToMInput#1,Mat(i,j)’將數(shù)據(jù)讀入數(shù)組Mat中NextjNextiClose#1PrintPrint"初始矩陣為："PrintFori＝1ToNForj＝1ToMPrintTab(5*j)；Mat(i，j)；NextjPrintNextiFori＝1ToN’完成第二列和第四列的交換t＝Mat(i，2)Mat(i，2)＝Mat(i，4)Mat(1,4)＝t’將t的內(nèi)容賦給Mat(i，4)，完成交換NextiPrintPrint"交換第二列和第四列后的矩陣為："PrintFori＝1ToNForj＝1ToMPrintTab(5*j);Mat(i，j)；’將轉(zhuǎn)換后的結(jié)果打印在窗體上NextjPrintNextiEndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。知識點解析：暫無解析4、在考生文件夾下有一個工程文件sjt5．vbp，窗體上有兩個命令按鈕，標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”，請?zhí)砑觾蓚€標(biāo)簽，名稱分別為Label1和Labe12，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”；再添加兩個名稱分別為Text1和Text2，初始內(nèi)容為空的文本框，如圖所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀到變量s中(此過程已給出)。②單擊“統(tǒng)計”按鈕，自動統(tǒng)計in5．dat文件中所含各字母(不區(qū)分大小寫)出現(xiàn)的次數(shù)，并統(tǒng)計次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)?！白x數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請為“統(tǒng)計”按鈕編寫適當(dāng)?shù)氖录^程實現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須進(jìn)行統(tǒng)計，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件，添加兩個標(biāo)簽控件，名稱分別為Labe11和Labb12，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”；再添加兩個名稱分別為Text1和Text2，初始值為空的文本框。步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案Dima(1To26)AsInteger’定義數(shù)組a用于存放字母出現(xiàn)個數(shù)DimmaxAsIntegern＝Len(s)’Len的功能是求字符串的長度Fori＝1Tonk＝Asc(Mid$(s，i，1))’依次獲取字符If(k＞＝65Andk＜＝90)Thena(k－64)＝a(k－64)＋1’當(dāng)為大寫字母時，滿足條件則計數(shù)EndIfIf(k＞＝97Andk＜＝122)Thena(k－96)＝a(k－96)＋1’當(dāng)為小寫字母時，滿足條件則計數(shù)EndIfNextimax＝0Form＝1To26’循環(huán)查找出現(xiàn)次數(shù)最多的值Ifmax知識點解析：暫無解析5、在考生文件夾中有一個工程文件sjt5．vbp。窗體外觀如圖3—169所示。運行程序，單擊“讀數(shù)據(jù)”按鈕，文件中的數(shù)據(jù)被讀入字符串變量中并顯示在Labe12標(biāo)簽中。單擊“排序”按鈕時，對讀入的數(shù)據(jù)從小到大排序，并將排序結(jié)果顯示在窗體的Labe14控件中。要求：工程文件中已給出部分程序，“讀數(shù)據(jù)”命令按鈕的事件過程不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。請編寫“排序”命令按鈕的事件過程中的部分程序代碼。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，兩個命令按鈕的事件過程必須至少各執(zhí)行一次。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：DoWhileNotEOF(1)s＝s＆Str(a(i))步驟2：在代碼編輯窗口指定位置編寫以下代碼。參考代碼：num＝UBound(a)Fori＝1Tonum－1Forj＝iTonumIfa(i)＞a(j)Thent＝a(i)a(i)＝a(j)a(j)＝tEndIfNextNext步驟3：按鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“排序”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、在考生文件夾下有一個工程文件sjt5．vbp，含三個窗體，標(biāo)題分別為“啟動”、“注冊”、“登錄”，運行時顯示“啟動”窗體，單擊其上按鈕時彈出對應(yīng)窗體進(jìn)行注冊或登錄。注冊信息放在全局?jǐn)?shù)組users中，注冊用戶數(shù)(最多10個)放在全局變量n中(均已在標(biāo)準(zhǔn)模塊中定義)。注冊時用戶名不能重復(fù)，且“口令”與“驗證口令”須相同，注冊成功則在“啟動”窗體的標(biāo)簽中顯示“注冊成功”，否則顯示相應(yīng)錯誤信息。登錄時，檢驗用戶名和口令，若正確，則在“啟動”窗體的標(biāo)簽上顯示“登錄成功”，否則顯示相應(yīng)錯誤信息。標(biāo)準(zhǔn)模塊中函數(shù)finduser的功能是：在users數(shù)組中搜索用戶名(即參數(shù)ch)，找到則返回該用戶名在users中的位置，否則返回0。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把Form2、Form3窗體文件中的“?”改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的程序和控件的屬性，最后程序按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的計釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：’注冊窗體Form2-n=n+1ElseIffinduser(Trim$(Text1))＞0ThenForm1．Label1．Caption="注冊成功!"’登錄窗體Form3-Ifk=0ThenElseIfTrim$(Text2)＜＞users(k，2)Then步驟2：按要求將文件保存至考生文件夾中。知識點解析：本題源程序在“注冊”窗體的“確定”按鈕的單擊事件過程中，先判斷是否輸入用戶名，若沒有輸入則彈出提示信息，否則通過調(diào)用標(biāo)準(zhǔn)模塊中的finduser函數(shù)，檢查輸入用戶是否存在于users數(shù)組中(條件表達(dá)式為：finduser(Trim$(Text1))＞0)，若該用戶存在則彈出提示信息，否則進(jìn)一步檢查前后兩次輸入的密碼是否一致，若前后不一致則彈出提示信息，否則通過調(diào)用過程wfiteusers將該用戶名及密碼寫入數(shù)組users中，并在“啟動”窗體的標(biāo)簽(Form1．Label1)中顯示“注冊成功”。每調(diào)用一次過程writeusers，全局變量n將記錄新增一個用戶，即n=n+1。在“登錄”窗體的“登錄”按鈕的單擊事件過程中，通過調(diào)用標(biāo)準(zhǔn)模塊中的finduser函數(shù)，檢查輸入用戶是否存在于users數(shù)組中，若不存在(條件表達(dá)式為；k=0)則彈出提示信息，否則進(jìn)一步檢查該用戶的密碼輸入是否正確(條件表達(dá)式為：Trim$(Txt2)＜＞users(k，2))，若不正確則彈出提示信息，否則在“啟動”窗體的標(biāo)簽(Form1．Label1)中顯示“登錄成功”。7、在考生文件夾下有一個工程文件sjt5.vbp，其名稱為Form1的窗體上已有三個文本框Text1、Text2、Text3，以及程序。請完成以下工作：①在屬性窗口中修改Text3的適當(dāng)屬性，使其在運行時不顯示，作為模擬的剪貼板使用，窗體如圖1－50所示；②建立下拉式菜單，見表1－2。③窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。以便實現(xiàn)以下功能：當(dāng)光標(biāo)所在的文本框中無內(nèi)容時，“剪切”、“復(fù)制”不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。注意：不能修改程序中的其他部分。各菜單項的標(biāo)題名稱必須正確。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5.vbp，選中窗體中的文本框Text3，將其Visible屬性為False。步驟2：選擇【工具】→【菜單編輯器】命令，打開菜單設(shè)計器，按要求建立窗體菜單。步驟3：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Ifwhich=1ThenIfwhich=2ThenText1.Text=Text1.Text+Text3.TextText2.Text=Text2.Text+Text3.Text步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析8、在考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕和初始值為空、名稱分別為Text1和Text2的兩個文本框。如圖1－225所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容（該文件中僅含有字母和空格）顯示在Text1文本框中（此過程已給出）；②在Text1文本框中選中內(nèi)容后，單擊“統(tǒng)計”按鈕，則統(tǒng)計選中文本中出現(xiàn)次數(shù)最多的字母（不區(qū)分大小寫），以大寫形式在Text2文本框內(nèi)顯示出現(xiàn)次數(shù)最多的字母。請將“統(tǒng)計”按鈕Click事件過程中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件下的本題工程文件sjt5.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：sl=Text1.SelLengtha(n)=a(n)+1Forj=2To26Ifa(j)＞max_nThenIfa(i)=max_nThen步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析9、在考生文件夾下有一個工程文件sjt5．vbp，請先裝入該工程文件，然后完成以下操作：在名稱為Forml的窗體上畫三個命令按鈕，其名稱分別為Cl、C2和C3，標(biāo)題分別為”讀入數(shù)據(jù)”、”計算”和”存盤”(如圖2-155所示)。程序運行后，如果單擊”讀入數(shù)據(jù)”按鈕，則調(diào)用題目已提供的ReadDatal和ReadData2過程讀入datainl．txt和datain2．txt文件中的各20個整數(shù)，分別放入Arrl和Arr2兩個數(shù)組中；如果單擊”計算”按鈕，則把兩個數(shù)組中對應(yīng)下標(biāo)的元素相整除，其結(jié)果放入第三個數(shù)組中(即第一個數(shù)組的第n個元素整除第二個數(shù)組的第刀個元素，其結(jié)果作為第三個數(shù)組的第n個元素。這里的n為1，2，…，20)，然后計算第三個數(shù)組各元素之和，并把所求得的和在窗體上顯示出來；如果單擊”存盤”按鈕，則調(diào)用題目中給出的WfiteData過程將所求得的和存入考生文件夾下的dataout．txt文件中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，必須把求得的結(jié)果單擊”存盤”按鈕存入考生文件夾下的dataout．txt文件中，否則沒有成績。最后把修改后的文件以原來的文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件中的本題工程文件sjt5．vbp，在窗體中如表3-87畫出控件，并設(shè)置其屬性。步驟2：在代碼編輯窗口編寫以下事件過程。參考代碼：DimSumASInteqerPrivateSubC1_C1ick()ReadDatalReadData2EndSubPrivateSubC2_Click()DimArr3(20)AsIntegerSum=0Fori=1To20Arr3(i)=Int(Arrl(i)／Arr2(i))Sum=Sum+Arr3(i)NextiPrint”Sum=“；SumEndSubPrivateSubC3_Click()WriteData”Dataout．txt”，SumEndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運行程序，先單擊”讀入數(shù)據(jù)”按鈕，然后單擊”計算”按鈕，最后單擊”存盤”按鈕。知識點解析：暫無解析10、在考生文件夾下有一個工程文件sjt5．vbp，其名稱為Forml的窗體上已有三個文本框。Textl、Text2、Text3，以及程序。請完成以下工作：①在屬性窗口中修改Text3的適當(dāng)屬性，使其在運行時不顯示，作為模擬的剪貼板使用，窗體如圖2-170所示；②建立下拉式菜單，見表2-4。③窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。以便實現(xiàn)以下功能：當(dāng)光標(biāo)所在的文本框中無內(nèi)容時，“剪切”、”復(fù)制”不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無內(nèi)容，則”粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。注意：不能修改程序中的其他部分。各菜單項的標(biāo)題名稱必須正確。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，選中窗體中的文本框Text3，將其Visible屬性為False。步驟2：選擇[工具]→[菜單編輯器]命令，打開菜單設(shè)計器，如表3-97的內(nèi)容建立窗體菜單。步驟3：打開代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內(nèi)容。參考代碼：Ifwhich=1ThenIfwhich=2ThenText1．Text=Text1．Text+Text3．TextText2．Text=Text2．Text+Text3．Text步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機(jī)試（綜合應(yīng)用題）模擬試卷第2套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾下有一個工程文件sjt5．vbp，其窗體上有2個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕，1個名稱為Text1的文本框，2個標(biāo)簽控件，如圖3—31所示。程序功能如下：1)單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容(該文件中含有不超過800個英文單詞，單詞之間用1個空格隔開)顯示在Text1文本框中。2)單擊“統(tǒng)計”按鈕，則自動統(tǒng)計Text1中所有5字母單詞的個數(shù)，并顯示在右下角的Label1標(biāo)簽中?！白x數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，“統(tǒng)計”按鈕的Click事件過程不完整，函數(shù)GetWords的功能是從字符串s中分離出每個單詞，依次放入數(shù)組words的數(shù)組元素中，返回值為單詞的總數(shù)目。要求：1)請將程序中的注釋符去掉，把?改為正確的內(nèi)容；2)補(bǔ)全“統(tǒng)計”按鈕Click事件過程中的代碼，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須進(jìn)行“統(tǒng)計”，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的工程文件sjt5．vbp，在代碼編輯窗門中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：GetWords=mm=GetWords(Text1．Text，ch)’考生編寫的程序代碼從這里開始k=0Fori=1TomIfLen(ch(i))=5Thenk=k+1EndIfNextiLabel1．Caption=k’考生編寫的程序代碼到這里結(jié)束步驟2：按＜F5＞鍵運行程序，單擊各個按鈕測試驗證。步驟3：按要求將文件保存壘考生文件夾中。知識點解析：題目要求統(tǒng)計字符串?dāng)?shù)組里面長度等于5的字符串?dāng)?shù)量，可以使用循環(huán)變量數(shù)組，依次判斷每個元素的長度是否為5，如果為5則統(tǒng)計變量加1，循環(huán)結(jié)束后得到統(tǒng)計結(jié)果，最后思示在標(biāo)簽里面。第一個“?”處是補(bǔ)充函數(shù)返叫值，在GetWords函數(shù)中變量m在每次檢測劍單詞后增加1，可知m保存了單詞數(shù)量統(tǒng)計，因此函數(shù)的返回值為m；第二個“?”處是補(bǔ)充函數(shù)的入?yún)ⅲ鶕?jù)題目要求在這里統(tǒng)計文本框內(nèi)容里面的單詞數(shù)量。2、在考生文件夾下有工程文件sjt5．vbp，窗體上有兩個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕，請?zhí)砑右粋€名稱為Labe11、標(biāo)題為“回文的個數(shù)為”的標(biāo)簽和一個名稱為Text1，初始值為空的文本框，如圖3—87所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀到變量s中。②單擊“統(tǒng)計”按鈕，則統(tǒng)計in5．dat文件(該文件中僅含由空格間隔開的字母串)中回文的個數(shù)，并將統(tǒng)計的回文個數(shù)顯示在Text1文本框內(nèi)。(所謂回文是指順讀與倒讀都一樣的字符串，如“recycer”)?！白x數(shù)據(jù)”按鈕和“統(tǒng)計”按鈕的Click事件過程已經(jīng)給出，請完善Function過程foundhuiwen的功能，實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已存在的控件和程序，在結(jié)束程序運行之前，必須先進(jìn)行統(tǒng)計，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的工程文件sjt5．vbp，如表4—55所示在窗體上畫出控件并設(shè)置它們的相關(guān)屬性。步驟2：打開代碼編輯窗口，在指定位置編寫foundhuiwen函數(shù)的過程。參考代碼：Functionfoundhuiwen(pAsString)foundhUiwen＝Truek＝Len(P)Fori＝1Tok／2IfMid(P，i，1)＜＞Mid(P，k＋1_,1)ThenfoundhUiwen＝FalseExitForEndIfNextEndFunction步驟3：按鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析3、在考生目錄下有一個工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件(如圖3—116所示)。請編寫適當(dāng)?shù)氖录^程完成以下功能：單擊“讀數(shù)”按鈕，則把考生目錄下的in5．txt文件中的一個整數(shù)放入Text1；單擊“計算”按鈕，則計算出大于該數(shù)的第一個素數(shù)，并顯示在。Text2中；單擊“存盤”按鈕，則把找到的素數(shù)存到考生目錄下的out5．txt文件中。注意：在結(jié)束程序運行之前，必須單擊“存盤”按鈕，把結(jié)果存入out5．txt文件，否則無成績。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題對應(yīng)工程文件sjt5．vbp。步驟2：雙擊窗體Form1上的“計算”按鈕，打開代碼編輯窗口，在其Click事件過程中輸入如下代碼。參考代碼：PrivateSubCommand2_Click()a％＝CInt(Text1．Text)Doa％＝a％＋1LoopUnti1isprime(a％)Text2．Text＝a％EndSub步驟3：編寫判斷素數(shù)的函數(shù)過程isprime，參考代碼為：Functionisprime(aAsInteger)DimflagAsBooleank％＝2flag＝TrueWhilek％＜＝Int(a／2)AndflagIfa／k％＝Int(a／k％)Thenflag＝FalseEndIfk％＝=k％＋1Wendisprime＝flagEndFunction步驟4：按鍵運行程序，先單擊“讀數(shù)”按鈕，接著單擊“計算”按鈕，最后單擊“存盤”按鈕。步驟5：按要求將文件保存至考生文件夾中。知識點解析：暫無解析4、在考生文件夾下有一個工程文件sjt5．vbp，窗體如圖所示。運行程序時，從考生文件夾數(shù)據(jù)文件中讀取學(xué)生的成績(均為整數(shù))。要求編寫程序，統(tǒng)計總?cè)藬?shù)，同時統(tǒng)計不及格、60～69、70～79、80～89及90～100各分?jǐn)?shù)段的人數(shù)，將統(tǒng)計結(jié)果顯示在相應(yīng)的文本框中。結(jié)束程序之前，必須單擊“保存”按鈕，保存統(tǒng)計結(jié)果。注意：不能修改程序的其他部分和控件屬性。程序凋試通過后，運行程序，將統(tǒng)計結(jié)果顯示在文本框中，再按“保存”按鈕，否則將沒有成績，最后將修改后的文件按原文件名進(jìn)行存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打丌代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。參考答案Fori＝1Ton’循環(huán)判斷分?jǐn)?shù)的范圍，當(dāng)滿足某個條件時則分別統(tǒng)計Ifarr(i)＜60ThenText2＝Val(Text2)＋1ElseIfarr(i)＞＝60Andarr(i)＜70ThenText3＝Val(Text3)＋1ElseIfart(i)＞＝70Andarr(i)＜80ThenText4＝Val(Text4)＋1Elselfarr(i)＞＝80Andarr(i)＜90ThenText5＝Val(Text5)＋1ElseIfarr(i)＞＝90Andarr(i)＜＝100ThenText6＝Val(Text6)＋1EndIfText1＝Val(Text1)＋1’顯示統(tǒng)計入數(shù)Next步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。知識點解析：暫無解析5、在窗體上畫一個文本框，名稱為Text1(可顯示多行)，然后再畫三個命令按鈕，名稱分別為Cornmand1、Command2和Command3，標(biāo)題分別為“讀數(shù)”、“統(tǒng)計”和“存盤”，如圖3—136所示。程序的其功能是：單擊“讀數(shù)”按鈕，則把考生目錄下的in5．txt文件中的所有英文字符放入Text1(可多行顯示)；單擊“統(tǒng)計”按鈕，找出并統(tǒng)計英文字母i、j、k、1、m、n(不區(qū)分大小寫)各自出現(xiàn)的次數(shù)；單擊“存盤”按鈕，將字母i～n出現(xiàn)次數(shù)的統(tǒng)計結(jié)果依次存到考生目錄下的順序文件out5．txt中。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt5．vbp，窗體文件名為sjt5．tim。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表4—80所示，在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫相應(yīng)事件過程。參考代碼：OptionBase1Dimsum(6)AsIntegerPrivateSubCommand1_Click()penApp．Path＆"＼in5．txt"ForInputAt#1Text1．Text＝Input(LOF(1)，#1)Close#1EndSubPrivateSubCommand2_Click()Fori＝1To6sum(i)＝0NextiIfLen(Text1．Text)＝0ThenMsgBox"請先使用“讀數(shù)”功能!"ElseFori＝1ToLen(Text1．Text)c＝LCase(Mid(Text1．Text，i，1))SelectCaSecCase"i"sum(1)＝sum(1)＋1Case"j"sum(2)＝sum(2)＋1Case"k"sum(3)＝sum(3)＋1Case"1"sum(4)＝sum(4)＋1Case"m"sum(5)＝sum(5)＋1Case"n"sum(6)＝sum(6)＋1EndSelectNextiEndIfEndSubPrivateSubCommand3_Click()OpenApp．Path＆"＼out5．txt"ForOutputAs#1Fori＝1To6Print#1，sum(i)NextiClosee#1EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、在考生目錄下有一個工程文件sjt5．vbp，其窗體上有兩個標(biāo)簽L1和L2，標(biāo)題分別為“口令”和“允許次數(shù)”；一個命令按鈕C1，標(biāo)題為“確定”；兩個文本框名稱分別為Text1和Text2。其中Text1用來輸入口令(輸入時，顯示“*”)，無初始內(nèi)容；Text2的初始內(nèi)容為3。并給出了C1的事件過程，但不完整，要求去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使得在運行時，在Text1中輸入口令后，單擊“確定”按鈕，如果輸入的是“123456”，則在Text1中顯示“口令正確”；如果輸入其他內(nèi)容，單擊“確定”按鈕后，彈出如圖3－151所示的錯誤提示對話框，并且Text2中的數(shù)字減1。最多可輸入3次口令，若3次都輸入錯誤，則禁止再次輸入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，將文本框Text1的PasswordChar屬性值設(shè)置為“*”。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：IfText1．Text＝"123456"ThenText1．PaSSWOrdChar＝""IfText2．Text＞0ThenText1．Enabled＝False步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析7、在考生文件夾下有一個工程文件sjt5．vbp，其窗體上有三個標(biāo)簽、三個文本框和兩個命令按鈕，均使用默認(rèn)名稱。程序的功能是：①如果單擊“讀數(shù)據(jù)”命令按鈕，則把考生文件夾下in5．dat文件中兩組已按升序方式排列的數(shù)(每組30個數(shù))分別讀入數(shù)組A和B，并分別將它們顯示在Text1、Text2中；②如果單擊“合并”命令按鈕，則將A、B兩個數(shù)組合并為另一個按升序方式排列的數(shù)組C，并將合并后數(shù)組C中的數(shù)據(jù)依升序方式顯示在Text3中。窗體中給出了所有控件(如圖3－155所示)以及“讀數(shù)據(jù)”命令按鈕的Click事件過程，請完善“合并”命令按鈕的Click事件過程，使其實現(xiàn)上述功能。注意：不得修改已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須進(jìn)行合并操作，且必須通過窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的工程文件sjt5．vbp。步驟2：編寫“合并”按鈕的單擊事件過程。參考代碼：PrivateSubCommand2_Click()’考生編寫程序開始ia＝1：ib＝1：ic＝1DoWhileia＜＝30Andib＜＝30Ifa(ia)＜b(ib)Thenc(ic)＝a(ia)＝ia＝ia＋1Elsec(ic)＝b(ib)＝ib＝ib＋1EndIfic＝ic＋1LoopDoWhileia＜＝30c(ic)＝a(ia)：ia＝ia＋1：ic＝ic＋1LoopDoWhileib＜＝30C(ic)＝b(ib)：ib＝ib+1：ic＝ic+1Loop’考生編寫程序結(jié)束’以下程序?qū)⒑喜⒑蟮臄?shù)組C顯示在Text3中Fork＝1To60Text3＝Text3＋Str(C(k))＋Space(2)NextkEndSub步驟3：運行程序，單擊“讀數(shù)據(jù)”按鈕，然后單擊“合并”按鈕獲得結(jié)果，然后通過窗體右上角的“關(guān)閉”按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析8、考生文件夾下有一個工程文件sjt5.vbp，裝入該工程文件。窗體上有一個名稱為Text1的文本框，三個命令按鈕，名稱分別為Command1、Command2和Command3，標(biāo)題分別為“讀文件”、“刪除”和“計算/保存”。程序運行后，單擊“讀文件”命令按鈕，將in5.txt文件中的內(nèi)容顯示在Text1中，如圖1－302（a）所示；單擊“刪除”命令按鈕，刪除Text1中的字母“A”、“D”、“R”和“S”（小寫字母也刪），并將刪除后的文本顯示在Text1中，如圖1－302（b）所示；單擊“計算/保存”命令按鈕，則計算當(dāng)前Text1中顯示的所有字符（刪除后）的ASCII碼之和，并把結(jié)果保存到考生文件夾下的out5.txt文件中。要求：1）要刪除的字母不區(qū)分大小寫。2）不要改變窗體中各控件的屬性設(shè)置及事件過程。3）編寫“計算/保存”按鈕的事件過程。4）“刪除”按鈕的事件過程不完整，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使程序能正常運行。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件sjt5.vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：ch=Mid(Form1.Text1.Text,i,1)tmpStr=tmpStr+ch步驟2：按指定位置編寫“計算/保存”按鈕的單擊事件過程。參考代碼：PrivateSubCommand3_Click()Dimi,jAsLongDimsAsStrings=Trim(Text1.Text)j=0Fori=1ToLen(s)j=j+Asc(Mid(s,i,1))NextOpen"out5.txt"ForOutputAs#1Print#1,jClose#1EndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運行程序，先單擊“讀文件”按鈕，接著單擊“刪除”按鈕，最后單擊“計算/保存”按鈕。知識點解析：暫無解析9、在窗體上畫一個文本框，其名稱為Text1，初始內(nèi)容為空白，并設(shè)置成多行顯示格式；然后再畫兩個命令按鈕，其名稱分別為Command1和Command2，標(biāo)題分別為“顯示”和“保存”，如圖3-92所示，編寫適當(dāng)?shù)氖录^程。程序運行后，如果單擊“顯示”按鈕，則讀取考生文件夾下的in5．txt文件，并在文本框中顯示出來，該文件是一個用隨機(jī)存取方式建立的文件，共有5個記錄，要求按記錄號順序顯示全部記錄，每個記錄一行；如果單擊“保存”按鈕，則把所有記錄保存到考生文件夾下的順序文件out5．txt中。隨機(jī)文件in5．txt中的每個記錄包括三個字段，分別為姓名、性別和年齡，其名稱和長度分別為：其類型定義為：PriVateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndType要求：文件out5．txt以順序存取方式建立和保存。存盤時必須存放在考生文件夾下，工程文件名為sjt5．vbp，窗體文件名為sjt5．frm。標(biāo)準(zhǔn)答案：審題分析本題程序設(shè)計思路：在“顯示”按鈕的單擊事件過程中，用Open語句以隨機(jī)方式打開數(shù)據(jù)文件in5．txt，并用Get讀出一條記錄顯示在文本框中，隨后讀取下一條記錄，直到所有的記錄都讀取完畢；在“保存”按鈕的單擊事件過程中，用Open語句以O(shè)utput方式打開數(shù)據(jù)文件out5．txt，并用Print#方法將文本框中的值存入該文件。操作步驟步驟1：新建一個“標(biāo)準(zhǔn)EXE”工程，如表4-51在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫相應(yīng)事件過程。參考代碼：PrivateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndTypeDimStudASStudInfoDimRecNumAsLongPrivateSubCommand1_Click()OpenApp．Path＆"＼in5．txt"ForRandomAs#1Len=Len(Stud)RecNHm=1DoWhileNotEOF(1)Get#1，RecNum，StudText1．Text=Text1．Text＆Stud．NameText1．Text=Text1．Text＆Stud．SexText1．Text=Text1．Text＆Str(Stud．Age)Text1．Text=Text1．Text+VbCrLfReCNHm=RecNum+1LoopClose1EndSubPrivateSubCommand2_C1ick()OpenApp．Path＆"＼out5．txt"ForOutputAs#1Print#1，Text1．TextClose1EndSub步驟3：按要求將文件保存至考生文件夾中?？键c鏈接順序文件、隨機(jī)文件。知識點解析：暫無解析10、在考生文件夾下有一個工程文件sjt5．vbp。其窗體中有一個名稱為Text1的文本框數(shù)組，下標(biāo)從0開始。程序運行時，單擊“產(chǎn)生隨機(jī)數(shù)”按鈕，就會產(chǎn)生10個3位數(shù)的隨機(jī)數(shù)，并放入Text1數(shù)組中，如圖3-115(a)所示；單擊“重排數(shù)據(jù)”按鈕，將把Text1中的奇數(shù)移到前面，偶數(shù)移到后面，如圖3-115(b)所示。文件中已經(jīng)給出了所有控件和部分程序。要求：請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運行，不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。提示：在“重排數(shù)據(jù)”按鈕的事件過程中有對其算法的文字描述，請仔細(xì)閱讀。標(biāo)準(zhǔn)答案：審題分析本題源程序中，變量i和j均用作Text1文本框數(shù)組的索引號(即Index屬性值)，根據(jù)算法中的第1條，可知i=0、j=9、temp=Text1(i)，其中“暫存最后一個數(shù)”的目的是為空出一個位置放第一個偶數(shù)。根據(jù)算法中的第3條，檢查第j個數(shù)是否為奇數(shù)的條件表達(dá)式為：Text1(j)Mod2=1。算法中的第2條和第3條交替運行，將實現(xiàn)一后(偶數(shù))一前(奇數(shù))重排數(shù)據(jù)的目的。根據(jù)算法中的第4條，可知在i向后移、j向前移過程中，當(dāng)i=j時則停止這種移動(故While循環(huán)的條件表達(dá)式為i＜i)。將先前暫存的數(shù)(temp)放到當(dāng)前空缺位置，以實現(xiàn)算法中的第5條。操作步驟步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內(nèi)容。參考代碼：j=9temp=Text1(j)while(i＜j)IfText1(j)Nod2=1Then步驟2：按要求將文件保存至考生文件夾中?？键c鏈接控件數(shù)組、Do循環(huán)和While循環(huán)。知識點解析：暫無解析國家二級VB機(jī)試（綜合應(yīng)用題）模擬試卷第3套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾下有一個工程文件sjt5．vbp，在其窗體中有一個實心圓。程序運行時，當(dāng)用鼠標(biāo)左鍵單擊窗體任何空白位置時，實心網(wǎng)則向單擊位置直線移動；若用鼠標(biāo)右鍵單擊窗體，則實心圓停止移動。窗體文件中已經(jīng)給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運行，不能修改程序的其他部分和控仲屬性。最后將修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符，將問號改為正確的內(nèi)容。參考答案DimstepyAsInteger’縱向移動增量DimStepxAsInteger’橫向移動增量ConstLEFTBUTTON＝1PrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，xAsSingle，yAsSingle)Dimx0AsInteger，y0AsInteger，aAsSingle，radiusAs_Integerradius＝Shapel．Width／2’圓的半徑IfButton＝LEFTBUTTONThen’單擊鼠標(biāo)左鍵移動x0＝Shapel．Left＋radius’圓心的x坐標(biāo)y0＝Shapel．Top＋radius’圓心的y坐標(biāo)Ifx＝x0Then’垂直移動stepy＝Sgn(y－y0)*50stepx＝0Else’傾斜移動a＝(y－y0)／(x－x0)’斜率stepx＝Sgn(x－x0)*50stepy＝a*stepx’通過stepx確定stepy的值IfAbs(stepy)＞Abs(stepx)Thenstepy＝Sgn(y－y0)*50stepx＝stepy／aEndIfEndIfTimer1．Enabled＝True’單擊鼠標(biāo)左鍵則觸發(fā)Timer事件E1seTimer1．Enabled＝False’單擊鼠標(biāo)右鍵則停止Timer事件EndIfEndSubPrivateSubTimer1_Timer()Shape1．MoveShape1．Left＋stepx，Shapel．Top＋stepy’移動shapelEndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。知識點解析：暫無解析2、在考生文件夾下有一個工程文件sjt5．vbp，包含了所有控件和部分程序。當(dāng)程序運行時，單擊“打開文件”按鈕，則彈出“打開”對話框，默認(rèn)目錄為考生目錄，默認(rèn)文件類型為“文本文件”。選中in5．txt文件(如圖1所示)，單擊“打開”按鈕，則把文件中的內(nèi)容讀入并顯示在文本框(Text1)中；單擊“修改內(nèi)容”按鈕，則將Text1中的大寫字母“E”、“N”、“T”改為小寫，把小寫字母“e”、“n”、“t”改為大寫；單擊“保存文件”按鈕，則彈出“另存為”對話框，默認(rèn)文件類型為“文本文件”，默認(rèn)文件夾為考生文件夾，默認(rèn)文件為“out5．txt”(如圖2所示)，單擊“保存”按鈕，則將Text1中修改后的內(nèi)容存到out5．txt文件中。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫“修改內(nèi)容”按鈕的Click事件過程。注意：考生不得修改已經(jīng)存在的程序。必須把Text1中修改后的內(nèi)容用“保存文件”按鈕存儲結(jié)果，否則無成績。最后，按照原文件名將程序存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考答案PrivateSubCommand1_Click()DimsAsStringCommonDialog1．Filter＝"所有文件｜*．*｜文本文件｜*．txt"’設(shè)置過濾條件，過濾文件類型CommonDialog1．FilterIndex＝2‘指定文件類型列表框中的值為所有文件OnErrorGoToopenerr’如果出錯則轉(zhuǎn)回openerrCommonDialog1．InitDir＝App．Path’指定打開對話框中的初始目錄為App．PathCommonDialog1．ShowOpen’顯示打開對話框OpenCommonDialog1．FileNameForInputAs#1’打開指定文件Input#1，s’讀取文件到sClose#1’關(guān)閉文件Text1．Text＝s’s中記錄了讀取內(nèi)容openerr：EndSubPrivateSubCommand2_Click()’考生需要編寫的程序DimchAsStringDimsAsStringDimnAsLongS＝Text1．TextText1．Text＝""Forn＝1ToLen(s)’查找文本中的“E”、“N”、“T”、“e”、“n”、“t”并做相應(yīng)的改變ch＝Mid(s，n，1)Ifch＝"E"Orch＝"N"Orch＝"T"Thench＝LCase(ch)’將大寫字母轉(zhuǎn)換為小寫ElseIfch＝"e"Orch＝"n"Orch＝"t"Thench＝UCase(ch)’將小寫字母轉(zhuǎn)換為大寫EndIfText1．Text＝Text1＆chNextnEndSubPrivateSubCommand3_C1ick()CommonDialog1．Filter＝"文本文件｜*．txt｜所有文件｜*．*”CommonDialog1．FilterIndex＝1’指定文件類型列表框中的值為文本文件OnErrorGoToopenerrCommonDialogl．FileName＝"out5．txt"’所選文件默認(rèn)名CogmonDialog1．InitDir＝App．PathCommonDialog1．Action＝2’顯示另存為對話框OpenCommonDialog1．FileNameForOutputAs#1Print#1，Text1Close#1OPenerr：EndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤，如圖3．30所示。知識點解析：暫無解析3、在考生文件夾下有一個工程文件sil5．vbp，在窗體上給出了所有控件和不完整的程序，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。本程序的功能是：如果單擊“取數(shù)”按鈕，則把考生目錄下的in5．txt文件中的15個姓名讀到數(shù)組a中，并在窗體上顯示這些姓名；當(dāng)在Text1中輸入一個姓名，或一個姓氏后，如果單擊“查找”按鈕，則進(jìn)行查找，若找到，就把所有與Text1中相同的姓名或所有具有Text1中姓氏的姓名顯示在Text2中(如圖3—101所示)；若未找到，則在Text2中顯示“未找到!”；若Text1中沒有查找內(nèi)容，則在Text2中顯示“未輸入查找內(nèi)容!”。注意：考生不得修改程序的其他部分和控件的屬性，最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Close#1n＝Len(Text1．Text)IfLeft(a(k)，n)＝Text1．TextThenc＝c＋""＋a(k)Text2．Text＝c步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析4、在考生文件夾下有一個工程文件sjt5．vbp。程序運行時，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀入一維數(shù)組a中，并按下標(biāo)順序?qū)?shù)組a各元素的值顯示在List1列表框中；單擊“移動”按鈕，則將數(shù)組a中的最大值移動到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動后的結(jié)果顯示在List2列表框中。單擊“保存”按鈕。則保存移動后的結(jié)果。要求：“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過程已經(jīng)給出，請編寫“移動”按鈕的Click事件過程實現(xiàn)上述功能。程序窗體界面如圖所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前必須單擊“移動”按鈕，并單擊“保存”按鈕保存結(jié)果，否則無成績。最后程序按原文件名存盤。標(biāo)準(zhǔn)答案：[操作步驟]步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內(nèi)容。參考代碼(畫下劃線部分是需填入的內(nèi)容)Dimi，max，maxindexAsIntegermax=a(1)Fori=2ToUBound(a)Ifa(i)＞maxThenmax=a(i)maxindex=iEndIfNextiList2．AddItem(a(maxindex))Fori＜＞maxindexThenList2．AddItem(a(i))EndIfNexti步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。知識點解析：暫無解析5、在考生文件夾下有一個工程文件sjt5．vbp。程序功能為：在文本框Text1中輸入一個正整數(shù)N后，單擊“計算”按鈕，則計算11＋22＋33＋…＋NN，并將計算結(jié)果顯示在Text2中。程序中的函數(shù)f可以計算mm的值。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，并編寫相應(yīng)的程序，實現(xiàn)程序的功能，并且必須在運行時計算N＝8時的結(jié)果。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，必須計算N＝8時的結(jié)果，否則無成績。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的工程文件sjt5．vbp，在碼編輯窗口的指定位置輸入以下代碼。參考代碼：PrivateSubCommand1_Click()’＝＝＝＝＝＝考生編寫程序開始＝＝＝＝＝＝Dimi，jAsInteger，kAsLongi＝Text1．Textk＝0Forj＝1Toik＝k＋f(j)NextText2．Text＝k’＝＝＝＝＝考生編寫程序結(jié)束＝＝＝＝＝＝OpenApp．Path＆"＼out5．dat"ForOutputAs＃1Print＃1，Text1，Text2Close＃1EndSub步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：s＝1s＝s*mf＝s步驟3：按＜F5＞鍵運行程序，在文本框中輸入8，單擊“計算”按鈕。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、在考生目錄下有一個工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件。其功能是：單擊“顯示”命令按鈕，則把考生目錄下的in5.txt文件中的所有字符放入Text1（可多行顯示），如圖1－139所示；如果單擊“統(tǒng)計”命令按鈕，則統(tǒng)計文本框中字母A、B、C、D各自出現(xiàn)的次數(shù)，并依次放到窗體變量an、bn、cn、dn之中（放在其他變量中將無成績）；如果單擊“保存”命令按鈕，則把統(tǒng)計結(jié)果存入考生文件夾下的out5.txt文件中。文件中已給出了“顯示”和“保存”按鈕的Click事件過程。請編寫“統(tǒng)計”按鈕Click事件過程。要求：統(tǒng)計每個字母出現(xiàn)的次數(shù)時，不區(qū)分大小寫。注意：不能修改已經(jīng)給出的程序部分；在結(jié)束程序運行之前，必須單擊“保存”按鈕，把結(jié)果存入out5.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件sjt5.vbp，在代碼編輯窗口的指定位置編寫以下代碼：參考代碼：n=Len(Text1)Fork=1Tonch=Mid(Text1,k,1)IfUCase(ch)="A"Thenan=an+1EndIfIfUCase(ch)="B"Thenbn=bn+1EndIfIfUCase(ch)="C"Thencn=cn+1EndIfIfUCase(ch)="D"Thendn=dn+1EndIfNextkText1=an&""&bn&""&cn&""&dn步驟2：按要求將文件保存至考生文件夾中。步驟3：按＜F5＞鍵鍵運行程序，先單擊“顯示”按鈕，接著單擊“統(tǒng)計”按鈕，最后單擊“保存”按鈕。知識點解析：暫無解析7、在考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕和初始值為空、名稱分別為Text1和Text2的兩個文本框。如圖1－225所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容（該文件中僅含有字母和空格）顯示在Text1文本框中（此過程已給出）；②在Text1文本框中選中內(nèi)容后，單擊“統(tǒng)計”按鈕，則統(tǒng)計選中文本中出現(xiàn)次數(shù)最多的字母（不區(qū)分大小寫），以大寫形式在Text2文本框內(nèi)顯示出現(xiàn)次數(shù)最多的字母。請將“統(tǒng)計”按鈕Click事件過程中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件下的本題工程文件sjt5.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：sl=Text1.SelLengtha(n)=a(n)+1Forj=2To26Ifa(j)＞max_nThenIfa(i)=max_nThen步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析8、在考生目錄下有一個工程文件vbsj5.vbp，其窗體如圖1－317所示。考生目錄下有一個in5.dat文件，文件中有5個運動員的姓名、7個裁判的打分和動作的難度系數(shù)。每人的數(shù)據(jù)占一行，順序是：姓名、7個分?jǐn)?shù)、難度系數(shù)。程序運行時，單擊“讀入”按鈕，可把in5.dat文件中的5個姓名讀入數(shù)組athlete中，把5組得分（每組7個）和難度系數(shù)讀入二維數(shù)組a中（每行的最后一個元素是難度系數(shù)），并把這些數(shù)據(jù)顯示在txtList文本框中；單擊“選出冠軍”按鈕，則把冠軍的姓名和成績分別顯示在文本框txtMark、txtScore中。成績的計算方法是：去掉一個最高分和一個最低分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù)；單擊“保存”按鈕，則把冠軍姓名和成績存入考生目錄下的out5.dat文件中。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容（程序中g(shù)etmark函數(shù)的功能是計算并返回第n個運動員的最后得分），并編寫“選出冠軍”按鈕的Click事件過程。注意：不得修改已經(jīng)存在的程序和控件的屬性，在結(jié)束程序運行前，必須用“保存”按鈕存儲計算結(jié)果，否則無成績。最后，程序按原文件名存盤。程序源碼：OptionBase1Dima(5,8)AsSingle,athlete(5)AsString*8PrivateSubcmdRead_Click()DimchAsStringtxtList＝""OpenApp.Path&"\in5.dat"For_InputAs#1Fork＝1To5Input#1,chathlete(k)＝chtxtList＝txtList&ch&""Forj＝1To8Input#1,cha(k,j)＝Val(ch)txtList=txtList&ch&""NextjtxtList＝txtList&Chr(13)&Chr(10)NextkClose#1EndSubPrivateFunctiongetmark(nAsInteger)AsSingle’s＝?maxnum＝sminnum＝s’Fork＝2To?s＝s+a(n,k)Ifmaxnum＜a(n,k)Thenmaxnum＝a(n,k)EndIfIfminnum＞a(n,k)Thenminnum＝a(n,k)EndIfNextks＝(s-maxnum－minnum)／’getmark=s*3*?EndFunctionPrivateSubcmdSelect_Click()’要求考生編寫的程序EndSubPrivateSubcmdSave_Click()OpenApp.Path&"\out5.dat"For_OutputAs#1Print#1,txtMark,txtScoreClose#1EndSub標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj5.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：s=a(n,1)Fork=2To7getmark=s*3*a(n,8)PrivateSubcmdSelect_Click()’要求考生編寫的程序DimmaxAsIntegerDimiAsIntegermax=1Fori=2To5Ifgetmark(max)＜getmark(i)Thenmax=iEndIfNexttxtMark.Text=athlete(max)txtScore.Text=getmark(max)EndSub步驟2：按要求將文件保存至考生文件夾中。步驟3：按＜F5＞鍵運行程序，先單擊“讀入”按鈕，然后單擊“選出冠軍”按鈕，最后單擊“存盤”按鈕。知識點解析：暫無解析9、在考生文件夾中有一個工程文件sjt5．vbp，如圖2-48所示。運行程序時，從文件中讀入矩陣數(shù)據(jù)并放入二維數(shù)組a中。單擊”計算”按鈕時，將統(tǒng)計矩陣兩個對角線的元素中能被3整除的個數(shù)，統(tǒng)計結(jié)果顯示在標(biāo)簽lblFirst中；同時計算矩陣主對角線的元素之和，計算結(jié)果顯示在標(biāo)簽lblSecond中。已給出了部分程序，請編寫”計算”命令按鈕事件過程中的部分程序代碼，以便完成上述功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，必須執(zhí)行程序，并用”計算”按鈕進(jìn)行計算，否則無成績。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾下的本題工程文件sjt5．vbp，在代碼編輯窗口的指定位置編寫以下代碼：參考代碼：Fork=1ToNSum=Sum+a(k，k)Ifa(k，k)／3=Int(a(k，k)／3)ThenCounter=Counter+1EndIfIfk＜＞N-k+1TnenIfa(k，N-k+1)／3=Int(a(k，N-k+1)／3)ThenCounter=Counter+1EndIfEndIfNextlblSecond．Caption=SumlblFirst．Caption=Counter步驟2：按＜F5＞鍵運行程序，然后單擊”計算”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析10、在考生文件夾下有一個工程文件sjt5．vbp，在該工程文件中已經(jīng)定義了一個學(xué)生記錄類型數(shù)據(jù)StudType。有三個標(biāo)題分別為“學(xué)號”、“姓名”和“平均分”的標(biāo)簽；三個初始內(nèi)容為空，用于接收學(xué)號、姓名和平均分的文本框Text1、Text2和Text3；一個用于顯示排序結(jié)果的圖片框。還有兩個標(biāo)題分別為“添加”和“排序”的命令按鈕，如圖3-192所示。程序功能如下：①在Text1、Text2和Text3三個文本框中輸入學(xué)號、姓名和平均分后，單擊“添加”按鈕，則將輸入內(nèi)容存入自定義的學(xué)生記錄類型數(shù)組stud中(注：最多只能輸入10個學(xué)生信息，且學(xué)號不能為空)；②單擊“排序”按鈕，則將學(xué)生記錄類型數(shù)組stud中存放的學(xué)生信息，按平均分降序排列的方式顯示在圖片框中，每個學(xué)生一行，且顯示三項信息。請將“添加”按鈕、“排序”按鈕的Click事件過程中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：審題分析單擊“添加”按鈕時先檢查當(dāng)前已輸入學(xué)生信息數(shù)n是否已達(dá)到10條，若沒達(dá)到10條，則標(biāo)記變量tagin=0表示允許添加信息(且學(xué)生信息數(shù)n增1)，否則tagin=1。當(dāng)tagin=0時，接著檢查是否輸入學(xué)號，若沒輸入學(xué)號則提示用戶輸入，且學(xué)生信息數(shù)n應(yīng)減1(即n=n—1)；若已輸入學(xué)號，則將該學(xué)生信息存入記錄數(shù)組元素stud(n)，其中保存學(xué)號的語句為：stud(n)．Num=Text1。在“排序”按鈕的單擊事件過程中，源程序利用“冒泡法”對記錄數(shù)組中的元素按平均分從大到小進(jìn)行排序。故該事件過程中，第一個?處應(yīng)改為：j+1，第二個?處應(yīng)改為：Average，第三個?處應(yīng)改為：stud(j)。最后在For循環(huán)中，用圖片框的Print方法在圖片框中顯示每個學(xué)生的3項信息。操作步驟步驟1：打開考生文件下的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內(nèi)容。參考代碼：n=n-1stud(n)．Num=Text1Fork=j+1TonIfstud(k)．Average＞stud(j)．AVerageThenstud(k)=stud(j)步驟2：按要求將文件保存至考生文件夾中?？键c鏈接變量、運算符和表達(dá)式、數(shù)組定義與操作。知識點解析：暫無解析國家二級VB機(jī)試（綜合應(yīng)用題）模擬試卷第4套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾下有一個工程文件sjt5．vbp。程序運行時，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀入一維數(shù)組a中，并按下標(biāo)順序?qū)?shù)組a各元素的值顯示在List1列表框中；單擊“移動”按鈕，則將數(shù)組a中的最大值移動到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動后的結(jié)果顯示在List2列表框中。單擊“保存”按鈕，則保存移動后的結(jié)果。要求：“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過程已經(jīng)給出，請編寫“移動”按鈕的Click事件過程實現(xiàn)上述功能。程序窗體界面如圖3—45所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前必須單擊“移動”按鈕，并單擊“保存”按鈕保存結(jié)果，否則無成績。最后程序按原文件名存盤。標(biāo)準(zhǔn)答案：步驟1：打開考生文件夾中的工程文件sjt5．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：PrivateSubCommand2_Click()’======考生編寫的程序============DimnAsInteger，sAsStringDimi，jAsIntegern=0：j=0Fori=1To10Ifa(i)＞nThenn=a(i)：j=iEndIfNextFori=jTo2step-1a(i)=a(i-1)Nexta(1)=nForj=1To10List2．AddItem(a(i))Nexti’==============================EndSub步驟2：按＜F5＞運行程序，單擊各按鈕測試驗證。步驟3：按要求將文件保存至考生文件夾中。知識點解析：只需要完成“移動”命令按鈕的Click事件代碼．根據(jù)題目要求在點擊移動命令按鈕，找出數(shù)組a的最大值，可以通過循環(huán)來查找最大值；接下來把最大值移動到數(shù)組的最前面，即把最大值前面的數(shù)往后移動一個位置，然后把最大值放到第一個元素位置，移動過程同樣通過循環(huán)實現(xiàn)；最后一步是通過循環(huán)，把數(shù)組a的內(nèi)容添加到List2列表框罩面。2、考生文件夾下有一個工程文件sjt5．vbp，窗體上有兩個文本框，名稱分別為Text1、Text2，都可以多行顯示。還有三個命令按鈕，名稱分別為C1、C2、C3，標(biāo)題分別為“取數(shù)”、“排序”、“存盤”?！叭?shù)”按鈕的功能是將考生文件夾下的in5．dat文件中的50個整數(shù)讀到數(shù)組中，并在Text1中顯示出來；“排序”按鈕的功能足對這50個數(shù)按升序排序，并顯示在Text2中；“存盤”按鈕的功能是把排好序的50個數(shù)存到考生目錄下的out