國家二級VB機試（簡單應用題）模擬試卷1（共90題）

國家二級VB機試（簡單應用題）模擬試卷1（共9套）（共90題）國家二級VB機試（簡單應用題）模擬試卷第1套一、簡單應用題(本題共10題，每題1.0分，共10分。)1、(1)在考生文件夾下有一個工程文件sjt3．vbp，窗體上已經有一個標簽Label1，請?zhí)砑右粋€單選按鈕數(shù)組，名稱為Op1，含三個單選按鈕，它們的Index屬性分別為0、1、2，標題依次為“飛機”、“火車”、“汽車”，再添加一個名稱為Text1的文本框。窗體文件中已經給出了Op1的Click事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內容，使得在程序運行時單擊“飛機”或“火車”單選按鈕時，在Text1中顯示“我坐飛機去”或“我坐火車去”，單擊“汽車”單選按鈕時，在Text1中顯示“我開汽車去”，如圖所示。注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，F(xiàn)orm1窗體中有一個文本框，名稱為Text1；請先在窗體上添加兩個框架控件，名稱分別為F1、F2，標題分別為“性別”、“身份”；然后在F1中添加兩個單選按鈕控件Op1、Op2，標題分別為“男”、“女”；其次在F2中添加兩個單選按鈕控件Op3、Op4，標題分別為“學生”、“教師”；最后再添加一個命令按鈕，名稱為C1，標題為“確定”，如圖所示。請編寫適當?shù)氖录^程，使得運行時，在F1、F2中各選一個單選按鈕，然后單擊“確定”按鈕，就可以按照下表把結果顯示在文本框中。最后把修改后的文件以原來的文件名存盤。注意：考生不得修改窗體文件中已經存在的程序和Text1的屬性，在結束程序運行之前，必須進行能夠產生上表中一個結果的操作。必須用窗體右上角的關閉按鈕結束程序，否則無成績。標準答案：(1)【操作步驟】步驟1：打開本題工程文件，按照題目要求建立單選按鈕數(shù)組，如圖3．9所示。步驟2：按照題目要求建立其他控件并設置其屬性，見表3．4。步驟3：打開代碼編輯窗口，去掉程序中的注釋符“’”將問號改為正確的內容。參考答案PrivateSubOp1_Click(IndexAsInteger)DimaAsString，bAsString，cAsStringa＝"我坐"b＝"我開"SelectCaseIndex’通過Index值決定響應哪一個控件數(shù)組Case0Text1．Text＝a＋Me．Opl(0)．Caption＋"去"Case1Text1．Text＝a＋Me．op1(1)．Caption＋"去"’當Index值為1時，選擇"我坐"Case2Text1．Text＝b＋Me．Opl(2)．Caption＋"去"EndSelectEndSub步驟4：調試并運行程序，關閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開本題工程文件，按照題目要求建立框架控件并設置其屬性，如圖3．10所示。步驟2：按照步驟1建立其他控件并設置相關屬性，程序中用到的控件及屬性見表3．5和表3．6。步驟3：打開代碼編輯窗口，在指定位置編寫如下代碼。參考答案PrivateSubc1_click()Text1．Text＝"我是"’首先確定不論選什么情況Text1的內容一定以"我是"開頭IfOp1．ValueThenText1．Text＝Text1．Text＆Op1．CaptionElseText1．Text＝Text1．Text&Op2．CaptionEndIf’通過單選按鈕的Value值(選擇為true，否則為false)確認性別，最后把其Caption值接至Text1后IfOp3．ValueThenText1．Text＝Text1．Text＆Op3．CaptionElseText1．Text＝Text1．Text＆Op4．CaptionEndIf’確認身份，思路同上EndSub步驟4：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析2、(1)在考生文件夾中有工程文件sjt3．vbp，程序界面如圖3－3所示。當在文本框中輸入正整數(shù)N，單擊“計算”命令按鈕，進行計算。若N是奇數(shù)，計算1＋3!＋5!＋……＋N!，若N是偶數(shù)，計算1＋3!＋!＋……＋N!)!。在給出的窗體文件中已經有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內容。注意：考生不得修改窗體文件中已經存在的程序。最后程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，該程序的功能是顯示月歷。運行程序后，在Text1、Text2中分別輸入年份和月份，并在左．邊的框架中選擇該年的1月1日是星期幾，然后單擊“顯示月歷”按鈕，即可在下面的圖片框內顯示該年該月的月歷。如圖3－4所示的是2008年2月份的月歷。請將事件過程中的注釋符去掉，把“?”改為正確的內容，以實現(xiàn)上述程序功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：m＝n＋1m＝nFori＝1TomStep2sum＝sum＋f(i)Fori＝1Tox步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：month_days(2)＝IIf(leap_year(year)，29，28)Fork＝1Tomonth－1n＝0PrivaFunctionleap_year(yearAsInteger)AsBoolean步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析3、(1)在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是通過鍵盤向文本框中輸入正整數(shù)。在“除數(shù)”框架中選擇一個單選按鈕，然后單擊“處理數(shù)據(jù)”按鈕，將大于文本框中的正整數(shù)且能夠被所選除數(shù)整除的5個數(shù)添加到列表框List1中，如圖3—80所示。在窗體文件中已經給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的“?”改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp。程序運行后，單擊“開始”按鈕，圖片自上而下移動，同時滾動條的滑塊隨之移動，每0．5秒移動一次。當圖片頂端移動到距窗體的下邊界的距離少于200時，再回到窗體頂部，重新向下移動，如圖3—81所示。在窗體文件中已經給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的“?”改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題步驟1：打開考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfOption1．Item(i)=TrueTheny=val(Option1(i)．Caption)DoWhilei＜=5List1．AddItemx步驟2：按要求將文件保存至考生文件夾中。第2小題步驟1：打開考生文件夾下的工程文件sjt4．vbp。步驟2：進入代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Timer1．Interva1=500VScroll1．Value=Picture1．TopPicture1．Top=0步驟3：按要求將文件保存至考生文件夾中。知識點解析：第1小題：判斷整數(shù)A能被整數(shù)B整除的條件表達式為：AModB=0。本題源程序在“計算數(shù)據(jù)”的單擊事件過程中，通過For循環(huán)逐一判斷單選按鈕數(shù)組中的每個元素是否選中，用變量y記錄選中單選按鈕所標識的數(shù)字，并調用過程“calc”計算滿足條件的正整數(shù)。在過程“calc”中，通過Do循環(huán)依次判斷大干文本框中數(shù)的正整數(shù)是否能被變量y整除，將能被整除的前5個數(shù)添加到列表框List1中。第2小題：本題源程序利用計時器的Timer事件來控制圖片的移動，因此單擊“開始”按鈕啟動計時器，而單擊“停止”按鈕就是要停止計時器。在計時器的Timer事件過程中，通過每次使圖片框的Top屬性值增量200實現(xiàn)移動，并讓垂直滾動條滑塊的位置隨圖片框的Top屬性值變化。當圖片頂端移動到距窗體的下邊界的距離少于200時(即VScroll1．Value+200＞=Form1．Height．200)時，則重新從窗體頂端開始移動，即Picture1．Top=0。由于題目要求不能在設計階段修改控件屬性，要想在單擊“開始”按鈕時能啟動計時器，就需在窗體加載事件過程中設置計時器的Interval屬性，即Timer1．Interva1=500。4、(1)在考生目錄下有一個工程文件sjt3．vbp，窗體文件中已給出所有控件和部分程序，如圖3—119所示。要求：①利用屬性窗口設置適當?shù)膶傩?，使Text1、Text2中數(shù)據(jù)右對齊；②請編寫適當?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù))，選擇一個單選按鈕，單擊“計算”按鈕，則根據(jù)所選擇的單選按鈕，計算出相應的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3．14159)，并顯示在Text2中。注意：考生不得修改窗體文件中已經存在的程序，在結束程序運行之前，必須進行一種計算，在Text1中輸入的必須是40，必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，窗體上已經給出所有控件。程序運行時，單擊“開始”按鈕，則汽車圖標向右運動；單擊“停止”按鈕則汽車停止運動；移動滾動條上的滾動框，可以改變汽車的運動速度(滾動框向右移動，速度減慢)。如圖3—120所示。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內容。提示：窗體上有一個計時器，計時器的事件過程每執(zhí)行一次，汽車向右移動10，程序通過改變計時器控件的：Interval屬性來改變汽車的運動速度。注意：不得修改控件的屬性。最后按原文件名存盤。標準答案：(1)【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，程序界面如圖4—4所示。步驟2：依次選中窗體中的兩個文本框，將其Alignment屬性值設置為1-RightJustify。步驟3：雙擊窗體中的“計算”命令按鈕，在打開的代碼編輯窗口中編寫其單擊事件過程。參考代碼：PrivateSubCommand1_Click()IfOption1．Item(0)＝TrueThenText2．Text＝Format(Sin(Val_(Text1．Text)*3．14159／_180)，"0．000")EndIfIfOption1．Item(1)＝TrueThenText2．Text＝Format(Cos(Val(_Text1．Text)*3．14159／180)，_"0．000")EndIfEndSub步驟4：按鍵運行程序，在左側文本框中輸入“40”，選擇不同選項，單擊“計算”按鈕，結果圖4—5所示。步驟5：單擊窗體右上角的關閉按鈕以結束程序。步驟6：按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Timer1．Enabled＝TrueTimer1．Interval＝HSCrol11．ValuePicture1．Left＝PiCture1．Left＋10步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析5、（1）考生文件夾下有工程文件sjt3.vbp，窗體上有兩個標題分別為“分解”和“退出”的命令按鈕。請再畫一個名稱為Text1，初始值為空的文本框。程序功能如下：①單擊“分解”按鈕，程序提示輸入一個大于2的整數(shù)，并將該數(shù)分解為因數(shù)的乘積，最后將分解結果顯示在Text1文本框內（如圖1－146所示）。②單擊“退出”按鈕，則結束程序運行。請將事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。（2）考生文件夾下有工程文件sjt4.vbp，窗體上有一個名稱為Cmd1的命令按鈕，請對其屬性進行設置，使其左邊界與窗體左邊框的距離為300，標題為“產生可變正方形圖案”。程序功能為：單擊“產生可變正方形圖案”按鈕，則彈出輸入框，要求輸入可變數(shù)；在輸入可變數(shù)后，將根據(jù)可變數(shù)在窗體上顯示可變正方形圖案；圖案的最外圈為第1層，且每層上顯示的數(shù)字與其所處的層數(shù)相同。圖1－147（a）為輸入可變數(shù)6時的可變正方形圖案。圖1－147（b）為輸入可變數(shù)7時的可變正方形圖案。Cmd1按鈕的Click事件過程已經給出，但不完整，請將事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已存在的程序，最后將程序按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3.vbp，在其中畫出一個名為Text1，初始內容為空的文本框。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：LoopUntiln>2DoWhilenModFactor=0Factor=Factor+1步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Forj=kTon-k+1a(i,j)=kPrintTab(j*3);a(i,j);Print步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是通過鍵盤向文本框中輸入正整數(shù)。在“除數(shù)”框架中選擇一個單選按鈕，然后單擊“處理數(shù)據(jù)”按鈕，將大于文本框中的正整數(shù)且能夠被所選除數(shù)整除的5個數(shù)添加到列表框List1中，如圖3-23所示。在窗體文件中已經給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：審題分析判斷整數(shù)A能被整數(shù)B整除的條件表達式為：AModB=0。本題源程序在“計算數(shù)據(jù)”的單擊事件過程中，通過For循環(huán)逐一判斷單選按鈕數(shù)組中的每個元素是否選中，用變量y記錄選中單選按鈕所標識的數(shù)字，并調用過程“calc”計算滿足條件的正整數(shù)。在過程“calc”中，通過Do循環(huán)依次判斷大于文本框中數(shù)的正整數(shù)是否能被變量y整除，將能被整除的前5個數(shù)添加到列表框List1中。操作步驟步驟1：打開考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內容。參考代碼：IfOption1．Item(i)=TrueTheny=Val(Option1(i)．Caption)DoWhilei＜=5List1．AddItemx步驟2：按要求將文件保存至考生文件夾中?？键c鏈接Do循環(huán)和While循環(huán)、控件數(shù)組知識點解析：暫無解析7、在考生文件夾下有一個工程文件sjt4．vbp。窗體中已經給出了所有控件，如圖2-65所示。運行時，單擊”發(fā)射”按鈕，航天飛機圖標將向上運動，速度逐漸加快，全部進入云中后則停止，并把飛行距離(用坐標值表示)、所用時間(單位為秒)分別顯示在標簽Labell和Label2中；單擊”保存”按鈕，則把飛行距離、所用時間存入考生文件夾下的out4．txt文件中。文件中已經給出了程序，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內容。參考代碼：Timer1．Enabled=TrueTimer1．Enabled=Falsed=d-Imagel．Topt=t+1步驟2：按要求將文件保存至考生文件夾中。步驟3：按＜F5＞鍵運行程序，先單擊”發(fā)射”按鈕，計算完畢后單擊”存盤”按鈕，最后單擊窗體右上角的關閉按鈕結束程序。知識點解析：暫無解析8、在考生目錄下有一個工程文件sjt3．vbp，窗體上有一個圓和一條直線(直線的名稱為Line1)構成一個鐘表的圖案；有兩個命令按鈕，名稱分別為Command1、Command2，標題分別為“開始”、“停止”；還有一個名為Timer1的計時器。程序運行時，鐘表指針不動，單擊“開始”按鈕，則鐘表上的指針(即Linel)開始順時針旋轉(每秒轉6°，一分鐘轉一圈)；單擊“停止”按鈕，則指針停止旋轉。運行時的窗體如圖3-80所示。請設置計時器的適當屬性，使得每秒激活計時器的Timer事件一次，并編寫兩個按鈕的Click事件過程。文件中已經給出了所有控件和部分程序，不得修改已有程序和其他控件的屬性；編寫的事件過程中不得使用變量，且只能寫一條語句。最后把修改后的文件按原文件名存盤。標準答案：審題分析本題通過計時器的Timer事件來控制直線控件的位置，從而實現(xiàn)鐘表上的指針旋轉的功能。為使計時器的Timer事件每秒激活一次需將計時器的Interval屬性值設置為1000；為使程序剛運行時鐘表指針不動需將Enabled屬性值設置為False。在“開始”按鈕的單擊事件過程中，通過設置計時器的Enabled屬性值為True來啟動計時器。在“停止”按鈕的單擊事件過程中，通過設置計時器的Enabled屬性值為False來停止計時器。操作步驟步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在屬性設置窗口，設置計時器的Interval屬性值為1000，Enabled屬性值為False。步驟2：在代碼編輯窗口，編寫“開始”和“停止”按鈕的單擊事件過程。參考代碼：PrivateSubCommand1_Click()Timer1．gnabled=TrueEndSubPrivateSubCommand2_Click()Timer1．Enabled=FalseEndSub步驟3：按要求將文件保存至考生文件夾中?？键c鏈接計時器。知識點解析：暫無解析9、在考生文件夾下有一個工程文件sjt4．vbp，窗體上已經給出所有控件。程序運行時，單擊”開始”按鈕，則汽車圖標向右運動；單擊”停止”按鈕則汽車停止運動；移動滾動條上的滾動框，可以改變汽車的運動速度(滾動框向右移動，速度減慢)。如圖2-119所示。要求如下：去掉程序中的注釋符，把程序中的?改為正確的內容。提示：窗體上有一個計時器，計時器的事件過程每執(zhí)行一次，汽車向右移動10，程序通過改變計時器控件的Intorval屬性來改變汽車的運動速度。注意：不得修改控件的屬性。最后按原文件名存盤。標準答案：步驟1：打開考生文件中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內容。參考代碼：Timer1．Enabled=TrueTimer1．Interval=HScrolll．ValuePicture1．Left=Picture1．Left+10步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析10、在考生文件夾下有一個工程文件sjt3．vbp，窗體上有一個單選按鈕數(shù)組，含三個單選按鈕；還有一個標題為”顯示”的命令按鈕(如圖2-158所示)。程序的功能是，在運行時，如果選中一個單選按鈕并單擊”顯示”按鈕，則在窗體上顯示相應的信息，例如若選中”小學生”，則在窗體上顯示”我是小學生”。要求：去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原來的文件名存盤。標準答案：步驟1：打開考生文件夾下的本題工程文件sjt3．vbp。步驟2：打開代碼編輯窗口，在代碼編輯窗口，去掉程序中的注釋符”’“，將問號”?”改為正確的內容。參考代碼：Fori=0To2IfOpl(i)．Value=TrueThenPrint”我是”+Opl(i)．CaptionEndIfNext步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（簡單應用題）模擬試卷第2套一、簡單應用題(本題共10題，每題1.0分，共10分。)1、(1)在考生文件夾下有一個工程文件sjt3．vbp，窗體上有1個標題為“計算”的命令按鈕，1個標題為“1!+2!+…+10!=”的標簽。請畫1個名稱為Text1，初始內容為空的文本框。效果如圖3—34所示。程序功能：單擊“計算”命令按鈕，則計算“1!+2!+…+10!”的值，并將結果顯示在Text1文本框中。請將“計算”命令按鈕的Click事件過程中的注釋符去掉，把“?”改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后，程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp，窗體上有1個名稱為標題為“運行”的命令按鈕。請畫2個名稱分別為Text1和Text2，初始內容都為空的文本框，再畫2個名稱分別為Label1、Label2，標題分別是“最大數(shù)”和“最大數(shù)位置”的標簽。效果如圖3—35所示。程序功能：單擊“運行”按鈕，則產生50個不重復的介于0和100之間(含0和100)的隨機數(shù)，且以每行10個數(shù)的形式顯示在窗體上；最后將這些隨機數(shù)中的最大數(shù)和最大數(shù)所處的位置顯示在Text1和Text2中。如圖3—35所示為某一次的運行效果。請將“運行”命令按鈕的Click事件過程中的注釋符去掉，把“?”改為正確內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后，程序按原文件名存盤。標準答案：第1小題步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在窗體上添加一個文本框，按照如下表4—22設置屬性。步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Whilei＜10i=i+1t=1Fori=1Tonjc=t步驟3：按要求將文件保存至考生文件夾中。第2小題步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在窗體上加入兩個文本框和兩個標簽，按照表4—23設置相關屬性。步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：j=1j=j+1arr(j)=xpos=i-1步驟3：按要求將文件保存至考生文件夾中。知識點解析：第1小題：題目要求計算一個數(shù)列和，數(shù)列的每一項是一個階乘。分析代碼可知，函數(shù)ic返回一個整數(shù)的階乘值。在命令按鈕的Click事件代碼里面，通過While循環(huán)來計算累加和。第一個“?”處補充循環(huán)的結束條件，根據(jù)題目要求，計算10個元素的累加和，因此馴化執(zhí)行10次：第二個“?”處是補充循環(huán)變量i的變化條件，在循環(huán)中i每次增加1，每次需要計算i的階乘；第三個“?”處是初始化變量t為1：第四個“?”處是補充循環(huán)結束條件，計算階乘的時候需要做n次連乘，循環(huán)執(zhí)行n次；最后一個“?”處是補充函數(shù)返回值，t變量保存的階乘值，因此函數(shù)返回t。第2小題：題目要求生成50個不重復的隨機數(shù)，并在這50個隨機數(shù)里面找出最大值。分析程序可知，通過嵌套的循環(huán)來實現(xiàn)不重復隨機數(shù)生產和最大值查找。第一個“?”處是設置循環(huán)變量i惡道初始值，根據(jù)“DoWhilej＜i”可知，循環(huán)變量從是最前面開始到i結束，因此j的初始值應為1；第二個“?”處是補充循環(huán)變量j的變化條件，搜索判斷是否重復需要逐個搜索，因此i每次增加1；第三個“?”處是把生成的沒有重復的隨機數(shù)x添加數(shù)組arr當中；最后一個“?”是計算最大值的位置，循環(huán)變量i在前面經過“i=i+1”之后是當前位置加1，因此pox的值應為i-1。2、(1)在名稱為Form1的窗體上畫一個名稱為Ll的標簽，標題為“口令”；畫兩個文本框，名稱分別為Text1、Text2，都沒有初始內容；再畫三個命令按鈕，名稱分別為C1、C2、C3，標題分別為“顯示口令”、“隱藏口令”、“復制口令”，在開始運行時，向Text1中輸入的所有字符，都顯示“*”，單擊“顯示口令”按鈕后，在Text1中顯示所有字符，再單擊“隱藏口令”后，Text1中的字符不變，但顯示的都是“?”，單擊“復制口令”后，把Text1中的實際內容復制到Text2中，如圖3－85所示。要求：①在屬性窗口中，把窗體的標題改為“口令窗口”。②建立適當?shù)氖录^程，完成上述功能。每個過程中只允許寫一條語句，且不能使用變量。存盤時，工程文件名為sjt3．vbp，窗體文件名為sij3．frm。(2)在名稱為Form1的窗體上畫一個名稱為P1的圖片框，并利用屬性窗口把考生目錄中的圖標文件Open．ico放到圖片框中；再畫一個通用對話框控件，名稱為CD1，利用屬性窗口設置相應屬性，即打開對話框時：標題為“打開文件”，文件類型為“Word文檔”，初始目錄為C盤根目錄。再編寫適當?shù)氖录^程，使得在運行時，單擊P1圖片框，可以打開上述對話框。運行后的窗體如圖3－86所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt4．vbp，窗體文件名為sjt4．frm。程序中不得使用任何變量。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表4－53在窗體中畫出控件并設置其相關屬性。步驟2：在代碼編輯窗口，分別編寫三個按鈕的單擊事件過程。參考代碼：PrivateSubC1_Click()Text1．PasSwordChar＝""EndSubPrivateSubC2_Click()Text1．PaSswordChar＝"?"EndSubPrivateSubC3_Click()C3．Parent．Text2．Text＝Text1．TextEndSubPrivateSubForm_Load()Text1．PasswordChar＝"*"EndSUb步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表4－54在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫如下事件過程。參考代碼：PrivateSubP1_CliCk()CD1．ShowOpenEndSub步驟3：按要求將文件保存至考生文件夾中。注意：打開“打開文件”對話框還可使用語句：cdlOpen．Action＝1。知識點解析：暫無解析3、(1)考生文件夾下的工程文件sjt3．vbp中有一個初始內容為空、且?guī)в写怪睗L動條的文本框，其名稱為Text1；兩個標題分別為“讀數(shù)據(jù)”和“查找”的命令按鈕，其名稱分別為Cmd1、Cmd2。請畫一個標題為“查找結果”的標簽Label1，再畫一個名稱為Text2，其初始內容為空的文本框，如圖3－104所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in3．dat文件中已按升序排列的30個整數(shù)讀入一維數(shù)組a中，并同時顯示在Text1文本框內；②單擊“查找”按鈕，將彈出輸入框接收用戶輸入的任意一個偶數(shù)，若接收的數(shù)為奇數(shù)，則提示重新輸入。如果接收的偶數(shù)超出一維數(shù)組a的數(shù)值范圍，則無須進行相應查找工作，直接在Text2內給出結果；否則，在一維數(shù)組a中查找該數(shù)，并根據(jù)查找結果在Text2文本框內顯示相應信息。命令按鈕的Click事件過程已給出，但“查找”按鈕的Click事件過不完整，請將其中的注釋符去掉，把“?”改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后程序按原文件名存盤。(2)考生文件夾下的工程文件sjt4．vbp中有一個初始內容為空的文本框Text1，一個包含三個元素的文本框控件數(shù)組Text2，兩個標題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕，兩個分別含有三個元素的標簽控件數(shù)組Label1和Label2，如圖3－105所示。程序功能如下：①考生文件夾下in4．dat文件中存有20個考生的考號及數(shù)學和語文單科考試成績。單擊“讀數(shù)據(jù)”按鈕，可以將in4．dat文件內容讀入到20行3列的二維數(shù)組a中，并同時顯示在Text1文本框內；②單擊“統(tǒng)計”按鈕，則對考生數(shù)學和語文的平均分在“優(yōu)秀”、“通過”和“不通過”三個分數(shù)段的人數(shù)進行統(tǒng)計，并將人數(shù)統(tǒng)計結果顯示在控件數(shù)組Text2中相應位置。其中，平均分在85分以上(含85分)為“優(yōu)秀”，平均分在60～85分之間(含60分)為“通過”，平均分在60分以下為“不通過”。命令按鈕的Click事件過程已經給出，但“統(tǒng)計”按鈕的Click事件過程不完整，請將其中的注釋符去掉，把“?”改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后程序按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件sjt3．vbp，打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Ifnum／2＜＞Fix(num／2)ThenIfnum＜a(1)Ornum＞a(30)ThenIfa(n)＝numThenIfn＞30Then步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Avg＝a(i，2)＋a(i，3))／2CaseIs＞＝85Case60To84EndSelectText2(n－1)＝x(n)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析4、(1)在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是通過鍵盤向文本框中輸入大、小寫字母及數(shù)字。單擊“統(tǒng)計”按鈕，分別統(tǒng)計輸入字符串中大寫字母、小寫字母及數(shù)字字符的個數(shù)，并將統(tǒng)計結果分別顯示在標簽控件數(shù)組x中，如圖3—167所示。在給出的窗體文件中已經添加了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)考生文件夾下的工程文件sjt4．vbp中有兩個名稱分別為List1、List2的列表框控件，兩個名稱分別為Command1、Command2，標題分別為“＞＞”、“＜＜”的命令按鈕。請在List1中添加“文本框”、“標簽”、“列表框”、“單選鈕”等表項，如圖3—168所示。程序的功能是：單擊“＞＞”按鈕，將List1中的表項添加到List2中，同時將List1清空；單擊“＜＜”按鈕，將List2中的表項添加到List1中，同時將List2清空。程序已給出，但是不完整。請將程序中的注釋符去掉，把“?”改為正確的內容，實現(xiàn)上述功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：(1)【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：n＝Len(Text1．Text)b＝Asc(Mid(s，i，1))SelectCasebFori＝0To2x(i)＝a(i)步驟2：按要求將文件保存至考生文件夾中。(2)【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，通過List1列表框的List屬性添加四個項目：文本框、標簽、命令按鈕、單選按鈕。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Fori＝0ToLa．ListCount－1Lb．AddItemLa．List(i)NextLa．Clear步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析5、在考生文件夾下有一個工程文件sjt3．vbp。程序的功能是通過鍵盤輸入正整數(shù)到文本框中。在“除數(shù)”框架中選擇一個單選按鈕，然后單擊“處理數(shù)據(jù)”命令按鈕，將大于文本框中的正整數(shù)，并且能夠被所選除數(shù)整除的5個數(shù)添加到列表框List1中，如圖所示。在窗體文件中已經給出了全部控件，但程序不完整。要求：請去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序的其他部分和控件屬性，最后將修改后的文件按原文件名進行存盤。標準答案：[操作步驟]步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口中，去掉程序中的注釋符“’”，將問號改為正確的內容。參考代碼(畫下劃線部分是需填入的內容)PrivateSubCommand1_Click()DimyAsIntegerFori=0To2’循環(huán)三個單選按鈕IfOption1(i)．Value=TrueThen’當某個按鈕被選y=Val(Optionl(i)．Captiion)’提取按鈕名并轉換為數(shù)值EndIfNextCall．calc(y)’調用子函數(shù)EndSubPrivateSubcalc(yAsInteger)ClearList’執(zhí)行子函數(shù)i=1X=Val(Text1．Text)+1DoWhilei＜=5’只需要顯示5個數(shù)IfxMody=0Then’判斷x是否能被y整除List1．AddItemx’添加滿足條件的數(shù)至表i=i+1’統(tǒng)計EndIfx=Xx+1’自加，判斷下次循環(huán)LoopEndSubPrivateSubClearList()’清空列表框的項目Fork=List1．ListCount-1To0Step-1LiSt1．RemoveItemkNextkEndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析6、（1）在考生文件夾下有一個工程文件sjt3.vbp，它包含兩個名稱分別為Form1和Form2的窗體，F(xiàn)orm1和Form2窗體上建立了標題分別為“C1”和“C2”的按鈕。請把Form1上按鈕的標題改為“結束”，把Form2上按鈕的標題改為“顯示”，并將Form2設為啟動窗體，將Form1設為不顯示。該程序實現(xiàn)的功能是：在程序運行時顯示Form2窗體，單擊Form2上的“顯示”按鈕，則顯示Form1窗體；若單擊Form1上的“結束”按鈕，則關閉Form1和Form2，并結束程序運行。請去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。正確程序運行后的界面如圖1－191所示。（2）在考生文件夾下有一個工程文件sjt4.vbp，窗體上有一個名為P1的圖片框；一個單選按鈕數(shù)組，含三個單選按鈕，標題分別為“正方形”、“橢圓形”、“圓形”；還有一個標題為“顯示”的命令按鈕。程序的功能是在運行時，如果選中一個單選按鈕后，單擊“顯示”按鈕，則根據(jù)單選按鈕的選中情況，在圖片框中顯示“選擇了正方形”、“選擇了橢圓形”或“選擇了圓形”，如圖1－192所示。要求：①原題中的單選按鈕和命令按鈕沒有標題，請利用屬性窗口依次添加單選按鈕標題分別為“正方形”、“橢圓形”、“圓形”，添加命令按鈕標題為“顯示”。②去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現(xiàn)上述功能。注意：不能修改程序中的其他部分，也不能修改控件的其他屬性。最后把修改后的程序以原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt3.vbp，然后將按鈕C1的Caption屬性設置為“結束”，將按鈕C2的Caption屬性設置為“顯示”。步驟2：選擇【工程】→【工程屬性】命令打開“工程屬性”對話框，設置Form2為啟動窗體。步驟3：打開Form2和Form1的代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：LoadForm1Form1.Visible=True步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4.vbp，程序界面如圖2－4所示。步驟2：依次選中窗體中的各單選按鈕和命令按鈕，設置它們的相關屬性，其屬性及值如表2－92所示。步驟3：雙擊“顯示”命令按鈕，打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfOp1(k).Value=TrueThenCalldraw(k)P1.Print"選擇了"&Op1(a).Caption步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析7、（1）考生文件夾下有一個工程文件sjt3.vbp，其中的窗體上有一個名稱為Cmd的命令按鈕控件數(shù)組；有一個名稱為Image1的圖像框。請畫一個名稱為Timer1的計時器，時間間隔為3秒，初始狀態(tài)為不可用，如圖1－209所示。程序功能如下：①單擊“前進”按鈕，則Timer1的狀態(tài)變?yōu)榭捎?，且在圖像框中黃燈顯示3秒（圖像文件為考生文件夾下的“yellow.ico”）后，顯示綠燈（圖像文件為考生文件夾下的“green.ico”）直至下次單擊某個命令按鈕；②單擊“停止”按鈕，則Timer1的狀態(tài)變?yōu)榭捎?，且在圖像框黃燈顯示3秒后，顯示紅燈（圖像文件為考生文件夾下的“red.ico”）直至下次單擊某個命令按鈕；③單擊“結束”按鈕，則結束程序運行。請將命令按鈕Click事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。（2）考生文件夾下有一個工程文件sjt4.vbp，其中的窗體上已有如圖1-210所示的控件。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in4.dat文件的內容（該文件中僅含有字母和空格）顯示在Text1文本框中；②在Text1中選中部分文本，并單擊“統(tǒng)計”按鈕，則以不區(qū)分大小寫字母的方式，自動統(tǒng)計選中文本中同時出現(xiàn)“o”、“n”兩個字母的單詞的個數(shù)（如million、company都屬于滿足條件的單詞），并將統(tǒng)計結果顯示在Text2文本框內。請將“統(tǒng)計”按鈕Click事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt3.vbp，在窗體上畫出一個名為Timer1的計時器，設置計時器的Interval屬性為3000，Enabled屬性為False。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfIndex=2ThenTimer1.Enabled=TrueSelectCaseflag步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfLen(s)=0ThenIfText1.SelLength=0Thenx=LCase(t)Text2.Text=Str(m)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析8、（1）在考生目錄下有一個工程文件sjt3.vbp，窗體上有兩個命令按鈕，其中“讀數(shù)據(jù)”按鈕的名稱是Command1，“統(tǒng)計”按鈕的名稱是Command2；還有一個文本框。請畫三個單選按鈕，其名稱分別是：Option1、Option2、Option3，標題分別是“統(tǒng)計大寫字母數(shù)”、“統(tǒng)計小寫字母數(shù)”、“統(tǒng)計空格字符數(shù)”，如圖1－320所示。程序運行時，請按以下順序操作：1）單擊“讀數(shù)據(jù)”按鈕，把考生目錄下的文件in3.dat中的所有內容讀到變量s中（此過程已經給出）；2）選擇一個單選按鈕；3）單擊“統(tǒng)計”按鈕，則可按選中的單選按鈕的標題要求對s中的字符進行統(tǒng)計，結果放到文本框中（要求考生編寫程序）；4）單擊窗體右上角的關閉按鈕結束程序?！白x數(shù)據(jù)”按鈕的Click事件過程已經給出，請為“統(tǒng)計”按鈕編寫適當?shù)氖录^程實現(xiàn)上述功能。注意：考生不得修改窗體文件中已經存在的程序，在結束程序運行之前，必須進行一次統(tǒng)計，并且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp。程序功能是：在程序運行時，顯示紅燈，汽車不動；單擊“開始”按鈕后，顯示綠燈，汽車向右運動；單擊右邊命令按鈕中的一個方向按鈕后，則汽車向該按鈕上箭頭所示的方向移動（如圖1－321所示）；單擊“停止”按鈕，則顯示紅燈，汽車停止運動。在窗體文件中已經給出了全部控件，但程序不完整，要求：去掉程序中的注釋符，把程序中的?改為正確的內容。提示：兩個圖片框Picture1、Picture2分別裝入了紅燈亮和綠燈亮的圖片，并重疊在一起，要使哪種燈亮，就使相應的圖片框為可見，另一圖片框為不可見。汽車的移動是由計時器按一定時間間隔移動汽車所在的圖片框來實現(xiàn)的。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3.vbp，按表2－172在窗體中畫出控件并設置其相關屬性。步驟2：雙擊窗體中的“統(tǒng)計”命令按鈕，在打開的代碼編輯窗口中編寫其單擊事件過程。參考代碼：PrivateSubCommand2_Click()DimiAsInteger,jAsIntegerj=0Fori=1ToLen(s)IfOption1.Value=TrueThenIfAsc(Mid(s,i,1))＞＝Asc("A")AndAsc(Mid(s,i,1))<=Asc("Z")Thenj=j+1EndIfEndIfIfOption2.Value=TrueThenIfAsc(Mid(s,i,1))＞＝Asc("a")AndAsc(Mid(s,i,1))<=Asc("z")Thenj=j+1EndIfEndIfIfOption3.Value=TrueThenIfMid(s,i,1)=""Thenj=j+1EndIfEndIfNextText1.Text=jEndSub步驟3：按＜F5＞鍵運行程序，單擊“讀數(shù)據(jù)”按鈕，然后選擇不同的單選按鈕并單擊“統(tǒng)計”按鈕，統(tǒng)計出結果。步驟4：單擊窗體右上角的關閉按鈕以結束程序。步驟5：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Timer1.Enabled=Truem=IndexSelectCasem步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析9、在考生文件夾下有一個工程文件sjt3．vbp，相應的窗體文件為sjt3．frm。在窗體上有一個名稱為Command1、標題為“計算”的命令按鈕；兩個水平滾動條，名稱分別為Hscroll1和Hscroll2，其Max屬性均為100，Min屬性均為1；四個標簽，名稱分別為Label1、Label2、Label3和Label4，標題分別為“運算數(shù)1”、“運算數(shù)2”、“運算結果”和空白；此外還有一個包含四個單選按鈕的控件數(shù)組，名稱為Option1，標題分別為“+”、“-”、“*”和“／”，如圖3-75(a1所示。程序運行后，移動兩個滾動條中的滾動框，用滾動條的當前值作為運算數(shù)，如果選中一個單選按鈕，然后單擊計算按鈕，相應的計算結果將顯示在Label4中，程序運行情況如圖3-75所示。這個程序不完整，請把它補充完整，并能正確運行。要求：去掉程序中的注釋符，把程序中的?改為正確的內容，使其能正確運行，但不能修改程序中的其他部分，也不能修改控件的屬性。最后用原來的文件名保存工程文件和窗體文件。標準答案：審題分析本題其實就是根據(jù)所選運算符計算兩個水平滾動條產生值的結果。題目源程序利用一個For循環(huán)語句逐一判斷單選按鈕數(shù)組中各元素是否選中，若選中則用變量opt記錄下所選項的標題；接下來則根據(jù)opt可能出現(xiàn)的不同值，用SelectCase語句分別做出處理；最后將運算表達式及結果顯示在標簽Label4上。操作步驟步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內容。參考代碼：IfOption1(i)=TrueThenSelectCaseoptLabel4．CaptiOFt=Str(Hsb1．Value)＆""＆opt＆Str(Hsb2．Value)＆"="＆Str(Result)步驟2：按要求將文件保存至考生文件夾中。考點鏈接控件數(shù)組、選擇控件、多分支結構。知識點解析：暫無解析10、考生文件夾下的工程文件sjt3．vbp中有一個初始內容為空、且?guī)в写怪睗L動條的文本框，其名稱為Text1；兩個標題分別為“讀數(shù)據(jù)”和“查找”的命令按鈕，其名稱分別為Cmd1、Cmd2。請畫一個標題為“查找結果”的標簽Label1，再畫一個名稱為Text2，其初始內容為空的文本框，如圖3-95所示。程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in3．dat文件中已按升序排列的30個整數(shù)讀入一維數(shù)組a中，并同時顯示在Text1文本框內；②單擊“查找”按鈕，將彈出輸入框接收用戶輸入的任意一個偶數(shù)，若接收的數(shù)為奇數(shù)，則提示重新輸入。如果接收的偶數(shù)超出一維數(shù)組a的數(shù)值范圍，則無須進行相應查找工作，直接在Text2內給出結果；否則，在一維數(shù)組a中查找該數(shù)，并根據(jù)查找結果在Text2文本框內顯示相應信息。命令按鈕的Click事件過程已給出，但“查找”按鈕的Click事件過程不完整，請將其中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后程序按原文件名存盤。標準答案：審題分析在“查找”按鈕的單擊事件中，首先使用變量num接收輸入框的值，然后判斷num是否為偶數(shù)，如果為奇數(shù)(num／2

Fix(num／2))則提示錯誤信息；由于數(shù)組a是升序排列的，因此如果num的值小于a(1)或者大于a(30)則意味著超出范圍；接下來使用For循環(huán)遍歷整個數(shù)組，如果某次循環(huán)中數(shù)組元素等于num的值則意味著找到，可以退出循環(huán)；當循環(huán)結束后如果n的值大于30則表明循環(huán)是正常結束的，沒有找到這個元素。操作步驟步驟1：打開考生文件夾下的工程文件sjt3．vbp，打開代碼編輯窗口，去掉程序中的注釋符“′”，將問號“?”改為正確的內容。參考代碼：Ifnum／2<>Fix(num／2)ThenIfnum＜a(1)Ornum＞a(30)ThenIfa(n)=numThenIfn＞30Then步驟2：按要求將文件保存至考生文件夾中。考點鏈接If選擇結構、數(shù)組定義與操作。知識點解析：暫無解析國家二級VB機試（簡單應用題）模擬試卷第3套一、簡單應用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾下有一個工程文件sjt3．vbp，相應的窗體文件為sjt3．frm。其功能是隨機產生30個0～1000的整數(shù)，放入一個數(shù)組中，然后輸出其中的最小值。程序運行后，單擊命令按鈕(名稱為Command1，標題為“輸出最小值”)，即可求出其最小值，并在窗體上顯示出來(如圖所示)。這個程序不完整，請把它補充完整，并使其能正確運行。要求：去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原名存盤。標準答案：[操作步驟]步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容。參考代碼(畫下劃線部分是需填入的內容)OptionBase1PrivatesubCommand1_Click()DimarrN(30)AsIntegerDimMinAsIntegerRandomizeFori=1To30arrN(i)=Int(Rnd*1000)NextiMiin=arrN(1)’將第一個數(shù)賦給Min，以提供判斷Fori=2To30IfarrN(i)＜MinThen’比較最小值與其他數(shù)值，找出最小值Min=arrN(i)EndIfNextjPrIntMinEndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析2、(1)在考生文件夾中有工程文件sjt3．vbp，其中的窗體如圖3－162所示。程序剛運行時，會生成一個有10個元素的整型數(shù)組。若選中“查找最大值”(或“查找最小值”)單選按鈕，再單擊“查找”按鈕，則找出數(shù)組中的最大值(或最小值)，并顯示在標簽Label2中。請去掉程序中的注釋符，把程序中的“?”改為正確的內容。注意：考生不得修改窗體文件中已經存在的程序。最后把修改后的文件按原文件名存盤。(2)在考生文件夾中有一個工程文件sjt4．vbp。窗體上已有控件，如圖3－163所示。請在屬性窗口中將List1設置為可以多項選擇(允許使用Shift鍵或Ctrl鍵進行選擇)列表項。要求：雙擊List1中的某一項時，該項目被添加到List2中，同時在List1中清除該項目。若單擊“＞＞”按鈕，List1中所有的項目顯示在List2中(List2中已有項目不變)，List1中的內容不變。要求：按照題目要求設置控件屬性，去掉程序中的注釋符，把程序中的“?”改為正確的內容。注意：不得修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfOption1．Value＝TrueThenIfa(i)＞＝xThenx＝a(i)EndIfElseIfa(i)＜yTheny＝a(i)EndIf步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：L2．AddItemL1．List(L1．ListIndex)L1．RemoveItemL1．ListIndexFori＝0ToLiSt1．LiStCount－1CallMoveItem(List1，List2)步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析3、考生文件夾下的工程文件sjt4．vbp中有兩個名稱分別為List1、Lst2的列表框控件，兩個名稱分別為Command1、Command2，標題分別為“＞＞”、“＜＜”的命令按鈕。請在List1中添加“文本框”、“標簽”、“列表框”、“單選鈕”等選項，如圖所示。程序的功能是：單擊“＞＞”，將List1中的表項添加到List2中，同時將List1中選中的表項清空；單擊“＜＜”，將List2中的表項添加到List1處中，同時將List2中選中的表項清空。程序已給出，但是不完整。請將程序中的注釋符去掉，把?改為正確的內容，實現(xiàn)上述的功能。注意：不能修改程序的其他部分和控件屬性，最后將修改后的文件按原文件名進行存盤。標準答案：[操作步驟]步驟1：打開本題工程文件，在List1中添加“文本框”、“標簽”、“列表框”和“單選鈕”等選項。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號改為正確的內容。參考代碼(畫下劃線部分是需填入的內容)PrivateSubremove(LaAsListBox，LbAsListBox)Fori=0ToLa．ListCount-1Lb．AddItemLa．List(i)NextLa．clearEndSubPrivateSubCommand1Click()Callremove(List1，List2)EndSubPrivateSubCommand2Click()Callremove(List2，List1)EndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。知識點解析：暫無解析4、（1）考生文件夾下的工程文件sjt3.vbp中有一個菜單、兩個標簽和兩個文本框。程序運行時，用鼠標右鍵單擊窗體會彈出一個彈出式菜單（如圖1－38所示）。當選中“計算100以內自然數(shù)之和”菜單項時，將計算100以內自然數(shù)之和并放入Text1中；當選中“計算7!”菜單項時，將計算7!并放入Text2中。在給出的窗體文件中已經有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。（2）考生文件夾下的工程文件sjt4.vbp中有如圖1－39所示的控件。程序功能如下：程序運行時，在Text1中輸入一個商品名稱，在Text2中輸入一個數(shù)量，單擊“計算”按鈕，則會在列表框中找到該商品的單價，乘以數(shù)量后顯示在Text3中（如圖1－39所示）；若輸入的商品名稱是錯誤的，則在Text3中顯示“無此商品”（為方便編程，列表框中的每個單價均為4位（含小數(shù)點））。請將事件過程中的注釋符去掉，把?改為正確的內容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：IfButton=2ThenPopupMenumypopmenuFork=nTo1Step-1Text2=fact(7)步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Fork=1ToList1.ListCount-1name=Left(List1.List(k),n-1)price=Val(Right(List1.List(k),4))Text3="無此商品"步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析5、（1）考生文件夾中有工程文件sjt3.vbp。窗體上有名稱為Label1、標題為“標簽控件”的標簽；有一個名稱為Command1、標題為“命令按鈕”的命令按鈕。單擊上述兩控件中任一控件，則在標簽Label2中顯示所單擊控件的標題內容（標題內容前有“單擊”二字），如圖1－142是單擊命令按鈕后的窗體外觀。請去掉程序中的注釋符，把程序中的?改為正確的內容。注意：考生不得修改窗體文件中已經存在的控件和程序，最后程序按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp。其窗體上有一個由八個圖片框控件組成的控件數(shù)組、兩個命令按鈕及一個計時器控件，如圖1-143所示。程序功能：將計時器控件設置為每隔0.5秒觸發(fā)一次。運行程序時，只顯示下標為0的圖片框控件數(shù)組元素，其他圖片框均不顯示。單擊“開始”按鈕，數(shù)組中的每個圖片框自左至右依次顯示，時間間隔為0.5秒，產生月亮從左向右移動的效果，如圖1－143所示。月亮移到右端后再從左端重新開始。單擊“停止”按鈕，月亮停止移動。要求：按照題目要求設置控件屬性，去掉程序中的注釋符，把程序中的?改為正確的內容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt3.vbp，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：CallShowName(Command1)CallShowName(Label1)PrivateSubShowName(cAsControl)Label2.Caption="單擊"&Label1.Caption步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt4.vbp，將計時器控件Timer1的Interval屬性值設置為500。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：Picture1(k).Visible=FalseTimer1.Enabled=TrueIfi=8Theni=0步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析6、（1）在考生目錄下有一個工程文件vbsj3.vbp，包含了所有控件和部分程序，如圖1－239所示。要求：①利用屬性窗口設置適當?shù)膶傩?，使txtInput、txtResult中數(shù)據(jù)右對齊；②請編寫適當?shù)某绦蛲瓿梢韵鹿δ埽涸趖xtInput中輸入40（度數(shù)），選擇組合框中的一個項目，單擊“計算”按鈕，則根據(jù)所選擇的項目，計算出相應的正弦、余弦值（保留3位小數(shù)，第4位截去，π取3.14159），并顯示在txtResult中。注意：考生不得修改窗體文件中已經存在的程序，在結束程序運行之前，必須進行一種計算；在中輸入的必須是40；必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，按原文件名存盤。程序源碼：PrivateSubForm_Unload(CancelAsInteger)CallmysubEndSubSubmysub()Open"out3.txt"ForOutputAs#1Print#1,Form1.cboFun.Text,Form1._txtInput.Text,Form1.txtOutput.TextClose#1EndSub（2）在考生文件夾下有一個工程文件vbsj4.vbp，相應的窗體文件為vbsj4.frm。在窗體上有一個命令按鈕，其名稱為cmdCal，標題為“計算”。程序運行后，如果單擊命令按鈕，程序將計算500以內兩個數(shù)之間（包括開頭和結尾的數(shù)）所有連續(xù)數(shù)的和為1250的正整數(shù)，并在窗體上顯示出來。這樣的數(shù)有多組，程序輸出每組開頭和結尾的正整數(shù)，并用“～”連接起來，如圖1－240所示。該程序不完整，請把它補充完整。要求：去掉程序中的注釋符，把程序中的“?”改為正確的內容，使其能正確運行，但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。程序源碼：PrivateSubcmdCal_Click()DimiAsInteger,jAsInteger,iSum_AsIntegerPrint"連續(xù)和為1250的正整數(shù)是："Fori＝1To500’?＝0Forj＝iTo500’iSum＝?IfiSum＞＝1250ThenExitForNext’IfiSum＝?ThenPrinti;"～";jEndIfNextEndSubPrivateSubcmdCal_Click()CallmysubEndSubEndSub標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的工程文件vbsj3.vbp，依次選中窗體中的兩個文本框，將其Alignment屬性值設置為1－RightJustify。步驟2：雙擊窗體中的“計算”命令按鈕，在打開的代碼編輯窗口中編寫其單擊事件過程。參考代碼：PrivateSubcmdCal_Click()SelectCasecboFun.TextCase"Sin"txtResult.Text=Int(Sin(Val_(txtInput.Text)*3.14159/180)_*1000)/1000Case"Cos"txtResult.Text=Int(Cos(Val_(txtInput.Text)*3.14159/180)_*1000)/1000EndSelectEndSub步驟4：按＜F5＞鍵運行程序，在左側文本框中輸入“40”，選擇不同選項，單擊“計算”按鈕。步驟5：單擊窗體右上角的關閉按鈕以結束程序。步驟6：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內容。參考代碼：iSum=0iSum=iSum+jIfiSum=1250Then步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析7、在名稱為Form1的窗體上畫一個名稱為lblPwd的標簽，標題為“密令”；畫兩個文本框，名稱分別為txtPwd、txtObi，都沒有初始內容；再畫三個命令按鈕，名稱分別為cmdShow、cmdHide、cmdCopy，標題分別為“顯示”、“隱藏”、“復制”，在開始運行時，向txtPwd中輸入的所有字符都顯示“*”，單擊“顯示”按鈕后，在txtPwd中顯示所有字符，再單擊“隱藏”后，txtPwd中的字符不變，但顯示的都是“?”，單擊“復制”后，把txtPwd中的實際內容復制到txtObj中，如圖3-40所示。要求：①在屬性窗口中，把窗體的標題改為“密令窗口”。②建立適當?shù)氖录^程，完成上述功能。每個過程中只允許寫一條語句，且不能使用變量。存盤時，工程文件名為vbsj3．vbp，窗體文件名為vbsj3．frm。標準答案：審題分析PasswordChar屬性用于設置屏蔽文本框中內容的字符，要去掉對文本框中輸入內容的屏蔽，需將其PasswordChar屬性值清空。操作步驟步驟1：新建一個“標準EXE”工程，按表4-25在窗體中畫出控件并設置其相關屬性。步驟2：在代碼編輯窗口，分別編寫3個按鈕的單擊事件過程。參考代碼：PrivateSubcmdShow_Click()txtPwd．PasswordChar=""EndSubPrivateSubcmdHide_Click()txtPwd．passWOrdChar="?"EndSubPriVateSubcmdCopy_Click()txtObj1．Text=txtPwd．TextEndSub步驟3：按要求將文件保存至考生文件夾中?？键c鏈接文本控件。知識點解析：暫無解析8、在考生文件夾下有一個工程文件sjl3．vbp，相應的窗體文件為sjt3．frm，包含了所有控件和部分程序，