國家二級VB機試（上機操作）模擬試卷1（共29題）

國家二級VB機試（上機操作）模擬試卷1（共9套）（共29題）國家二級VB機試（上機操作）模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上畫一個標簽（名稱為Lbl1，標題為空白，BorderStyle屬性為1，Visible屬性為False）、一個文本框（名稱為Txt1，Text屬性為空白）和一個命令按鈕（名稱為cmdDisplay，標題為“顯示”），如圖1－323所示。然后編寫命令按鈕的Click事件過程。程序運行后，在文本框中輸入“全國計算機等級考試”，然后單擊命令按鈕，則文本框消失，并在標簽內(nèi)顯示文本框中的內(nèi)容。運行后的窗體如圖1－324所示。要求程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為vbsj1.vbp，窗體文件名為vbsj1.frm。（2）考生文件夾下的工程文件vbsj2.vbp中有一個由直線Line1、Line2和Line3組成的三角形，直線Line1、Line2和Line3的坐標值如表1－11所示：要求畫一條直線Line4以構(gòu)成三角形的高，且該直線的初始狀態(tài)為不可見。再畫兩個命令按鈕，名稱分別是cmdShow、cmdHide，標題分別為“顯示”、“隱藏”，如圖1－325所示。請編寫適當?shù)氖录^程使得其在運行時，單擊“顯示”按鈕，則顯示三角形的高；單擊“隱藏”按鈕，則隱藏三角形的高。注意：要求程序中不得使用變量，每個事件過程只能寫一條語句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，按表2－173在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的Click事件過程。參考代碼：PrivateSubcmdDisplay_Click()Txt1.Visible=FalseLbl1.Caption=Txt1.TextLbl1.Visible=TrueEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開本題工程文件vbsj2.vbp，在窗體中畫一個直線控件和一個命令按鈕，并設置其相關屬性如步驟1：新建一個“標準EXE”工程，按表2－174所示。在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的Click事件過程?？即a：PrivateSubcmdShow_Click()Line4.Visible=TrueEndSubPrivateSubcmdHide_Click()Line4.Visible=FalseEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、（1）在考生目錄下有一個工程文件vbsj3.vbp。窗體上有個鐘表圖案，其中代表指針的直線的名稱是Line1，還有一個名稱為Label1的標簽，和其他一些控件。在運行時，若用鼠標左鍵單擊圓的邊線，則指針指向鼠標單擊的位置（如圖1－326所示）；若用鼠標右鍵單擊圓的邊線，則指針恢復到起始位置（如圖1－327所示）；若鼠標左鍵或右鍵單擊其他位置，則在標簽上顯示“鼠標位置不對”。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。程序中的oncircle函數(shù)的作用是判斷鼠標單擊的位置是否在圓的邊線上（判斷結(jié)果略有誤差），是則返回否則返回False。符號常量x0、y0是圓心距窗體左上角的距離；符號常量radius是圓的半徑。注意：不能修改程序中的其他部分和各控件的屬性。最后把修改后的文件按原文件名存盤。程序源碼：Consty0&=1110,x0&=1100,radius&=750PrivateFunctiononcircle(XAsSingle,_YAsSingle)AsBooleanprecision=55000IfAbs((X-x0)*(X-x0)+(y0－Y)_*(y0-Y)－radius*radius)＜_precisionThenoncircle=TrueElseoncircle＝FalseEndIfEndFunctionPrivateSubForm_MouseDown(ButtonAs_Integer,ShiftAsInteger,XAsSingle,_YAsSingle)ConstLEFT_BUTTON=1Ifoncircle(X,Y)ThenLine1.X1＝x0Line1.Y1＝y(tǒng)0IfButton＝LEFT_BUTTONThenLine1.X2＝X’Line1.Y2＝?Else’Line1.X2＝Line1.?’Line1.Y2＝y(tǒng)0-?EndIfLabel1.Caption＝""TrueElseEndIfEndSub（2）在考生文件夾下有一個工程文件vbsj4.vbp，其窗體如圖1－328所示。該程序用來對在上面的文本框中輸入的英文字母串（稱為“明文”）加密，加密結(jié)果（稱為“密文”）顯示在下面的文本框中。加密的方法是：選中一個單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n，把明文中的每個字母改為它后面的第n個字母（“z”后面的字母認為是“a”，“Z”后面的字母認為是“A”），如圖所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：不能修改程序中的其他部分和控件的屬性。最后把修改后的文件按原文件名存盤。程序源碼：PrivateSubCmd1_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,aAsStringFork＝0To2IfOpt1(k).ValueThen’n＝Val(Opt1(k).?)EndIfNextkm＝Len(Txt1.Text)a＝""’Fork＝1To?’c＝Mid$(Txt1.Text,?,1)c＝String(1,Asc(c)+n)Ifc>"z"Orc>"Z"Andc＜"a"Thenc＝String(1,Asc(c)－26)EndIf’?=a+cNextkTxt2.Text＝aEndSub標準答案：第1小題【操作步驟】步驟1：打開本題工程文件vbsj3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Line1.Y2=YLine1.X2=Line1.X1Line1.Y2=y0–radiusLabel1.Caption="鼠標位置不對"步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：n=Val(Opt1(k).Caption)Fork=1Tomc=Mid$(Txt1.Text,k,1)a=a+c步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件vbsj5.vbp，含三個窗體，標題分別為“啟動”、“注冊”、“登錄”，運行時顯示“啟動”窗體，如圖1－329所示，單擊其上按鈕時彈出對應窗體進行注冊或登錄。注冊信息放在全局數(shù)組users中，注冊用戶數(shù)（最多10個）放在全局變量n中（均已在標準模塊中定義）。注冊時用戶名不能重復，且“口令”與“驗證口令”須相同，如圖1－330所示，注冊成功則在“啟動”窗體的標簽中顯示“注冊成功”，否則顯示相應錯誤信息。登錄時，如圖1－331所示，檢驗用戶名和口令，若正確，則在“啟動”窗體的標簽上顯示“登錄成功”，否則顯示相應錯誤信息。標準模塊中函數(shù)finduser的功能是：在users數(shù)組中搜索用戶名（即參數(shù)ch），找到則返回該用戶名在users中的位置，否則返回0。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把Form2、Form3窗體文件中的“?”改為正確的內(nèi)容。注意：不得修改已經(jīng)存在的程序和控件的屬性；最后，程序按原文件名存盤。程序源碼：PrivateSubCommand1_Click()Form2.Text1＝""Form2.Text2＝""Form2.Text3＝""Label1.Caption＝""Form2.ShowEndSubPrivateSubCommand2_Click()Form3.Text2＝""Label1.Caption＝""Form3.ShowEndSubPrivateSubCommand1_Click()Text1＝""Text2＝""Text3＝""EndSubSubwriteusers()’n=n+?users(n,1)＝Text1users(n,2)＝Text2EndSubPrivateSubCommand2_Click()IfText1＝""ThenMsgBox("必須輸入用戶名！")Text1.SetFocus’ElseIffinduser(Trim$(Text1))>?ThenMsgBox("此用戶名已經(jīng)存在!")ElseIfText2＜＞Text3ThenMsgBox("口令驗證錯誤!")Elsewriteusers’?＝"注冊成功！"Form2.HideEndIfEndSubPrivateSubCommand1_Click()k＝finduser(Trim$(Text1))’Ifk＝?ThenMsgBox("沒有注冊！")’ElseIfTrim$(Text2)＜＞users(?)ThenMsgBox("口令錯誤！")ElseForm1.Label1.Caption＝"登錄成功！"Form3.HideEndIfEndSubOptionBase1Publicusers(10,2)AsStringPublicnAsIntegerPublicFunctionfinduser(chAsString)_AsIntegerFork＝1To10Ifusers(k,1)＝chThenfinduser＝kExitFunctionEndIfNextkfinduser＝0EndFunction標準答案：【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj5.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：’---注冊窗體Form2－n=n+1ElseIffinduser(Trim$(Text1))>0ThenForm1.Label1.Caption="注冊成功！"’---登錄窗體Form3－Ifk=0ThenElseIfTrim$(Text2)<>users(k,2)Then步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上畫兩個標簽（名稱分別為Label1和Label2，標題分別為“書名”和“作者”）、兩個文本框（名稱分別為Text1和Text2，Text屬性均為空白）和一個命令按鈕（名稱為Command1，標題為“顯示”），如圖1－268(a)所示。然后編寫命令按鈕的Click事件過程。程序運行后，在兩個文本框中分別輸入書名和作者，然后單擊“顯示”按鈕，則在窗體的標題欄上先后顯示兩個文本框中的內(nèi)容，如圖1－268(b)所示。要求程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上畫一個垂直滾動條（名稱為VScroll1）和一個水平滾動條（名稱為HScroll1），如圖1－269(a)所示。在屬性窗口中對兩個滾動條設置如下屬性：Min＝1500Max＝6000LargeChange＝200SmallChange＝50編寫適當?shù)氖录^程。程序運行后，如果改變滾動條上的滾動框的位置，則可擴大或縮小窗體。運行后的窗體如圖1－269(b)所示。要求程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表2－139在窗體中畫出控件并設置其相關屬性。步驟2：在代碼編輯窗口，編寫命令按鈕的Click事件過程。參考代碼：PrivateSubCommand1_Click()Form1.Caption=Text1.Text&",作者"&Text2.TextEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體Form1中加入一個水平滾動條和一個垂直滾動條，在屬性設置窗口中設置其相關屬性，其屬性及值如表2－140所示。步驟2：雙擊窗體Form1上的水平滾動條，打開代碼編輯窗口，輸入以下代碼：參考代碼：PrivateSubHScroll1_Change()Width=HScroll1.ValueEndSubPrivateSubVScroll1_Change()Height=VScroll1.ValueEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、（1）在窗體（名稱為Form1，KeyPreview屬性為True）上畫一個列表框（名稱為List1）和一個文本框（名稱為Text1），如圖1－270(a)所示。編寫窗體的KeyDown事件過程。程序運行后，如果按“A”鍵，則從鍵盤上輸入要添加到列表框中的項目（內(nèi)容任意，不少于三個）；如果按“D”鍵，則從鍵盤上輸入要刪除的項目，將其從列表框中刪除。程序的運行情況如圖1－270(b)所示。在考生文件夾下有一個工程文件sjt3.vbp（相應的窗體文件名為sjt3.frm），可以實現(xiàn)上述功能。但這個程序不完整，請把它補充完整。要求：去掉程序中的注釋符，把程序中的?改為適當?shù)膬?nèi)容，使其正確運行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp（相應的窗體文件名為sjt4.frm），其功能是通過調(diào)用過程Average求數(shù)組的平均值，請裝入該文件。程序運行后，在四個文本框中各輸入一個整數(shù)，然后單擊“求平均值”按鈕，即可求出數(shù)組的平均值，并在窗體上顯示出來（如圖1－271所示）。這個程序不完整，請把它補充完整，并能正確運行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3.vbp，如表2－141所列在窗體Form1中畫出控件并設置它們的屬性。步驟2：打開代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：List1.AddItemText1.TextFori=0ToList1.ListCount-1IfList1.List(i)=Text1.TextThenList1.RemoveItemi步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Start=LBound(a)Finish=UBound(a)Sum=0Sum=Sum+a(i)Average=Sum/FinishAver=Average(arr2())步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在窗體上建立三個菜單項（名稱分別為Read、Calc和Save，標題分別為“讀入數(shù)據(jù)”、“計算并輸出”和“存盤”），然后畫一個文本框（名稱為Text1，MultiLine屬性設置為True，ScrollBars屬性設置為2）（如圖1－272所示）。程序運行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入datain1.txt文件中的100個整數(shù)，放入一個數(shù)組中，數(shù)組的下界為1；如果單擊“計算并輸出”命令，則把該數(shù)組中可以被3整除的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來；如果單擊“存盤”命令，則把所求得的和存入考生文件夾下的dataout.txt文件中。在考生文件夾下有一個工程文件sjt5.vbp，考生可以裝入該文件。窗體文件中的ReadData過程可以把datain1.txt文件中的100個整數(shù)讀入Arr數(shù)組中；而WriteData過程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中（整數(shù)值通過計算求得，文件名為dataout.txt）。注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤時，工程文件名仍為sjt5.vbp，窗體文件名仍為sjt5.frm。標準答案：【操作步驟】步驟1：打開考生文件下的本題工程文件sjt5.vbp，利用菜單設計器，如表2－142中的設置建立菜單項。步驟2：在窗體Form1中畫一個文本框，其相關屬性及值如表2－143。步驟3：在代碼編輯窗口，分別編寫三個菜單項的Click事件過程。參考代碼：DimSumAsIntegerPrivateSubRead_Click()ReadDataEndSubPrivateSubCalc_Click()DimSAsStringSum=0Fori=1To100IfInt(Arr(i)/3)=Arr(i)／3ThenSum=Sum+Arr(i)S=S&Str(Arr(i))&""EndIfNextiText1.Text=SPrint"Sum=";SumEndSubPrivateSubSave_Click()WriteData"Dataout.txt",SumEndSub步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上畫兩個文本框，名稱分別為T1、T2，初始情況下都沒有內(nèi)容。請編寫適當?shù)氖录^程，使得在運行時，在T1中輸入的任何字符，立即顯示在T2中（如圖1－179所示）。程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上畫一個文本框，名稱為Text1；再畫一個命令按鈕，名稱為C1，標題為“移動”（如圖1－180所示）。請編寫適當?shù)氖录^程，使得在運行時，單擊“移動”按鈕，則文本框水平移動到窗體的最左端。程序中不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程。步驟2：在窗體Form1中加入兩個文本框，并分別設置它們的相關屬性，屬性及值如表2－83所示。步驟3：雙擊T1文本框，打開代碼編輯窗口，在T1的Change事件過程中輸入如下代碼：參考代碼：PrivateSubT1_Change()T2.Text=T1.TextEndSub步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表2－84在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫命令按鈕的Click事件過程。參考代碼：PrivateSubC1_Click()Text1.Left=0EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、（1）在考生文件夾下有一個工程文件sjt3.vbp，其窗體上有一個名稱為Text1的文本框；一個名稱為L1的列表框；一個命令按鈕，名稱為C1，標題為“添加”（如圖1－181所示）。程序的功能是，在運行時，如果在文本框中輸入一行內(nèi)容并單擊“添加”按鈕，則把文本框中的內(nèi)容作為列表項添加到列表中。如果單擊列表中的某一項，則立即從列表中刪除該項。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原來的文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp，請在窗體上畫一個文本框，名稱為Text1；畫一個命令按鈕，名稱為C1，標題為“確定”；再畫三個單選按鈕，名稱分別為Op1、Op2、Op3，標題分別為“飛機”、“火車”、“汽車”（如圖1－182所示）。請編寫適當?shù)氖录^程，使得在運行時，選中一個單選按鈕并單擊“確定”按鈕后，按照表1－9在文本框中顯示相應內(nèi)容。注意：不得修改已經(jīng)給出的程序。退出程序時必須通過單擊窗體右上角的關閉按鈕。在結(jié)束程序運行之前，必須選中一個單選按鈕，并單擊“確定”按鈕。否則無成績。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：PrivateSubC1_Click()L1.AddItemText1.TextEndSubPrivateSubL1_Click()L1.RemoveItemL1.ListIndexEndSub步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4.vbp，在名為Form1的窗體上畫一個文本框、一個命令按鈕和三個單選按鈕，并設置它們的相關屬性，其屬性及值如表2－85所示。步驟2：雙擊“確定”命令按鈕，打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PrivateSubC1_Click()IfOp1.ValueThenText1.Text="需要1小時"ElseIfOp2.ValueThenText1.Text="需要10小時"ElseIfOp3.ValueThenText1.Text="需要15小時"EndIfEndSub步驟3：按＜F5＞鍵鍵運行程序，選擇不同選項，單擊“確定”按鈕，然后單擊窗體右上角的關閉按鈕退出程序。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sjt5.vbp，其功能是：①單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下in5.dat文件中的100個0～999之間的整數(shù)讀入數(shù)組a中；②單擊“計算”按鈕，則對這100個整數(shù)中的所有水仙花數(shù)（當一個數(shù)的值等于該數(shù)中各位數(shù)字的立方和時，此數(shù)被稱為水仙花數(shù)。例如，153＝13＋53＋33，所以153就是一個水仙花數(shù)）求平均值，并對該平均值數(shù)尾取整后顯示在文本框Text1中。窗體中給出了所有控件（如圖1－183所示），已給“讀數(shù)據(jù)”按鈕的Click事件過程，請為“計算”按鈕編寫適當?shù)氖录^程實現(xiàn)上述功能。注意：不得修改已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須進行計算，且必須用窗體右上角的關閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5.vbp，在代碼編輯窗口的指定位置編寫“計算”按鈕的單擊事件過程。參考代碼：DimsAsLong,nAsIntegerFori=1To100Ifisnarc(a(i))Thens=s+a(i)n=n+1EndIfNextiText1.Text=Fix(s/n)步驟2：按要求將文件保存至考生文件夾中。步驟3：按＜F5＞鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，接著單擊“計算”按鈕，然后單擊窗體右上角的關閉按鈕結(jié)束程序。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。（1）在名稱為Form1，標題為“菜單練習”的窗體上，按下表的結(jié)構(gòu)建立一個下拉菜單，生成的菜單結(jié)構(gòu)如圖1－149所示。注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。（2）在名稱為Form1的窗體上畫一個名稱為Text1的文本框，其初始內(nèi)容為空；再畫兩個單選按鈕，名稱分別為Option1、Option2，標題分別為“參加”、“不參加”，Option1的標題在單選按鈕的左邊，如圖1－150所示。當程序運行時，在Text1中輸入一些文字（如“比賽”），單擊Option1時，則把其標題放在輸入文字的前面（如“參加比賽”），單擊Option2時，則把其標題放在輸入文字的后面（如“比賽不參加”）。請編寫適當?shù)氖录^程，完成上述功能。注意：存盤時，將文件保存至考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp。要求程序中不得使用變量，每個事件過程中只能寫一條語句。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，將窗體Form1Caption屬性值設置為“菜單練習”。步驟2：選擇【工具】→【菜單編輯器】命令，打開菜單設計器，如表2－60中的設置建立菜單項。步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表2－61在窗體中畫出控件并設置其相關屬性。步驟2：在代碼編輯窗口，編寫兩個單選按鈕的Click事件過程。參考代碼：PrivateSubOption1_Click()Text1.Text=Option1.Caption&Text1.TextEndSubPrivateSubOption2_Click()Text1.Text=Text1.Text&Option2.CaptionEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、（1）考生文件夾下有工程文件sjt3.vbp，請在窗體上畫一個名稱為Label1的標簽，它能根據(jù)標題內(nèi)容自動調(diào)整大小，外觀如圖1－151所示，程序要實現(xiàn)以下功能：每單擊按鈕一次，按鈕標題在“停止”、“開始”之間切換。若按鈕標題為“停止”，則標簽內(nèi)容每2秒變換一次，內(nèi)容依次是“歡迎您參加等級考試！”、“請您認真復習！”、“祝您獲得好成績！”，并循環(huán)變化。若按鈕標題為“開始”，則標簽內(nèi)容停止變化。已經(jīng)給出了所有事件過程，但不完整，請將其中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述功能。注意：不得修改窗體文件中已經(jīng)存在的程序、控件及其屬性，最后將修改后的文件按原文件名存盤。（2）考生文件夾下有工程文件sjt4.vbp。程序功能是：在Text1文本框內(nèi)輸入隨機數(shù)個數(shù)，單擊“產(chǎn)生隨機數(shù)”按鈕，則先將列表框中的內(nèi)容全部清除，再向列表框添加指定個數(shù)的隨機數(shù)，如圖1－152（a）所示。單擊“刪除奇數(shù)”按鈕，則刪除列表框中的所有奇數(shù)，并將奇數(shù)之和顯示在Text2文本框中，如圖1－152（b）所示。命令按鈕的Click事件過程已經(jīng)給出，但不完整，請將其中的注釋符去掉，把?改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3.vbp，如表2－62在窗體中畫出一個標簽并設置其相關屬性。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timer1.Enabled=NotTimer1.EnabledTimer1.Interval=2000SelectCaseaCase0步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：List1.ClearFork=List1.ListCount-1To0Step-1s=s+Val(List1.List(k))List1.RemoveItemkText2.Text=s步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、考生文件夾下有工程文件sjt5.vbp。程序運行時，外觀如圖1－153所示，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀入到5行40列的二維數(shù)組a中，并按5行顯示在Text1文本框內(nèi)；單擊“統(tǒng)計”按鈕，則找出每行中偶數(shù)的最大值，計算奇數(shù)的平均值（平均值保留2位小數(shù)，是否四舍五入不限），并將它們（共10個值）分別顯示在Label1數(shù)組中和Text2數(shù)組中。單擊“保存”按鈕，則保存計算結(jié)果?！帮@示數(shù)據(jù)”和“保存”按鈕的Click事件過程已經(jīng)給出，請編寫“統(tǒng)計”按鈕的Click事件過程實現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須用“統(tǒng)計”按鈕進行統(tǒng)計，且必須單擊“保存”按鈕保存結(jié)果，否則無成績。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件中的本題工程文件sjt5.vbp，打開代碼編輯窗口，在指定位置編寫以下代碼：參考代碼：Fori=1To5Sum=0Counter=0Max=0Forj=1To40Ifa(i,j)Mod2=1ThenSum=Sum+a(i,j)Counter=Counter+1ElseIfa(i,j)＞MaxThenMax=a(i,j)EndIfEndIfNextAvg=Sum/CounterLabel1(i-1).Caption=MaxText2(i-1).Text=Int(Avg*100)/100Next步驟2：按要求將文件保存至考生文件夾中。步驟3：按＜F5＞鍵運行程序，先單擊“顯示數(shù)據(jù)”按鈕，接著單擊“統(tǒng)計”按鈕，然后單擊“保存”按鈕保存結(jié)果。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序(包括界面和代碼)。(1)在名稱為Form1、標題為“鼠標光標形狀”的窗體上畫一個名稱為Text1的文本框。請通過屬性窗口設置適當屬性，使得程序運行時，鼠標在文本框中時，鼠標光標為箭頭(Arrow)形狀；在窗體中其他位置處，鼠標光標為十字(Cross)形狀。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱為Form1的窗體上畫兩個標簽，名稱分別為Label1、Label2，標題分別為“開始位置”、“選中的字符數(shù)”；畫三個文本框，名稱分別為Text1、Text2、Text3，再畫一個名稱為Command1，標題為“顯示選中信息”的命令按鈕。程序運行時，在Text1中輸入若干字符，并用鼠標選中一些字符后，單擊“顯示選中信息”按鈕，則把選中的第一個字符的順序號顯示在Text2中，選中的字符個數(shù)顯示在Text3中，如圖3－152所示。要求：畫出所有控件，編寫命令按鈕的Click事件過程。注意：要求程序中不得使用變量，事件過程中只能寫兩條語句，分別用于顯示第一個字符的順序號和顯示選中的字符個數(shù)。存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：第1小題【操作步驟】步驟1：新建“標準EXE”工程，按要求畫出控件并設置相應屬性。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，按要求畫出控件并設置屬性。步驟2：在代碼編輯窗口，編寫命令按鈕的單擊事件過程。參考代碼：PrivateSubCommand1_Click()Text2＝Text1．SelStart＋1Text3＝Text1．SelLengthEndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，窗體上有一個矩形和一個圓，還有垂直和水平滾動條各一個。程序運行時，移動某個滾動條的滾動塊，可使圓做相應方向的移動。滾動條刻度值的范圍是圓可以在矩形中移動的范圍。以水平滾動條為例，滾動塊在最左邊時，圓靠在矩形的左邊線上，如圖3－153(a)所示；滾動塊在最右邊時，圓靠在矩形的右邊線上，如圖3－153(b)所示。垂直滾動條的情況與此類似。文件中已經(jīng)給出了全部控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp。窗體中已經(jīng)給出了所有控件，如圖3－154所示。運行時，單擊“發(fā)射”按鈕，航天飛機圖標將向上運動，速度逐漸加快，全部進入云中后則停止，并把飛行距離(用坐標值表示)、所用時間(單位為秒)分別顯示在標簽Label1和Label2中；單擊“保存”按鈕，則把飛行距離、所用時間存入考生文件夾下的out4．txt文件中。文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：HScroll1．Max＝Shape2．Width＋Shape2．Left－Shape1．WidthVScroll1．Max＝Shape2．Height＋Shape2．Top－Shape1．HeightShape1．Left＝HSCroll1．ValueShape1．Top＝VScroll1步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Timer1．Enabled＝TrueTimer1．Enabled＝Falsed＝d－Image1．Topt＝t＋1步驟2：按＜F5＞鍵運行程序，先單擊“發(fā)射”按鈕，計算完畢后單擊“存盤”按鈕，最后單擊窗體右上角的關閉按鈕結(jié)束程序。步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sjt5．vbp，其窗體上有三個標簽、三個文本框和兩個命令按鈕，均使用默認名稱。程序的功能是：①如果單擊“讀數(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é)束程序運行之前，必須進行合并操作，且必須通過窗體右上角的“關閉”按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟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é)果，然后通過窗體右上角的“關閉”按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上用名稱為Shape1的形狀控件畫一個長、寬均為1200的正方形。請設置適當?shù)膶傩詽M足以下要求：①窗體的標題為“正方形”，窗體最小化按鈕不可用；②正方形的邊框為虛線（線型不限）。運行后的窗體如圖1－69所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1、標題為“標簽”的窗體上，畫一個名稱為Label1并可自動調(diào)整大小的標簽，其標題為“計算機等級考試”，字體大小為三號字；再畫兩個命令按鈕，標題分別是“宋體”和“黑體”，名稱分別為Command1、Command2。如圖1－70所示。要求：編寫兩個命令按鈕的Click事件過程。程序運行后，如果單擊“宋體”命令按鈕，則標簽內(nèi)容顯示為宋體字體；如果單擊“黑體”按鈕，則標簽內(nèi)容顯示為黑體字體。注意：程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體Form1中加入一個形狀控件，其相關屬性設置如表2－14所示。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表2－15在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫兩個命令按鈕的單擊事件過程。參考代碼：PrivateSubCommand1_Click()Label1.FontName="宋體"EndSubPrivateSubCommand2_Click()Label1.FontName="黑體"EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、（1）在考生文件夾下有一個工程文件sjt3.vbp，其窗體上有一個名稱為Label1的控件數(shù)組，含三個標簽，標題分別是“開始時間”、“結(jié)束時間”和“通話費用”；有一個名稱為Text1的控件數(shù)組，含三個初始值為空的文本框；此外還有兩個名稱分別為Cmd1和Cmd2的命令按鈕，標題分別是“通話開始”和“通話結(jié)束”。其中通過屬性窗口對“通話結(jié)束”命令按鈕的初始狀態(tài)設置為禁用，如圖1-71所示。該程序的功能是計算公用電話計時收費。計時收費標準為：通話時間在3分鐘以內(nèi)時，收費0.5元；3分鐘以上時，每超過1分鐘加收0.15元，不足1分鐘按1分鐘計算。程序執(zhí)行的操作如下：①如果單擊“通話開始”按鈕，則在“開始時間”右側(cè)的文本框中顯示開始時間，且“通話結(jié)束”命令按鈕變?yōu)榭捎脿顟B(tài)，“通話開始”命令按鈕不可用；②如果單擊“通話結(jié)束”按鈕，則“結(jié)束時間”右側(cè)的文本框中顯示結(jié)束時間，同時計算通話費用，并將其顯示在“通話費用”右側(cè)的文本框中，“通話開始”命令按鈕變?yōu)榭捎脿顟B(tài)，“通話結(jié)束”命令按鈕不可用。在窗體文件中已經(jīng)給出了全部控件（如圖1－71所示）和程序，但程序不完整，要求去掉程序中的注釋符，把?改為正確的內(nèi)容，以實現(xiàn)上述功能。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp，文件in4.txt中有5組數(shù)據(jù)，每組10個，依次代表語文、英語、數(shù)學、物理、化學這5門課程10個人的成績。程序運行時，單擊“讀入數(shù)據(jù)”按鈕，可從文件in4.txt中讀入數(shù)據(jù)放到數(shù)組a中。單擊“計算”按鈕，則計算5門課程的平均分（平均分取整），并依次放入Text1文本框數(shù)組中。單擊“顯示圖形”按鈕，則顯示平均分的直方圖，如圖1－72所示。窗體文件中已經(jīng)有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt3.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Text1(0).Text=Str(Time())s=s+(m-3)*0.15Cmd1.Enabled=TrueCmd2.Enabled=False步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件下的本題工程文件sjt4.vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：OpenApp.Path&"\in4.txt"ForInputAs#1s(i)=s(i)+a(i,j)s(i)=CInt(s(i)/10)Shape1(k-1).Top=m-Shape1(k–1)._HeightShape1(k-1).Visible=True步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sjt5.vbp，其窗體上有兩個標題分別是“讀數(shù)據(jù)”和“統(tǒng)計”的命令按鈕。請畫兩個標簽，其名稱分別是Label1和Label2，標題分別為“最長單詞的長度為”和“以該長度最后一次出現(xiàn)的單詞是”；再畫兩個名稱分別為Text1和Text2，初始值為空的文本框，如圖1－73所示。程序功能如下：①如果單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中（此過程已給出）；②如果單擊“統(tǒng)計”按鈕，則自動統(tǒng)計in5.dat文件（該文件中僅含有字母和空格，而空格是用來分隔不同單詞的）中最長單詞的長度，以及in5.dat中最后一個以該長度出現(xiàn)的單詞，并將該單詞的長度顯示在Text1文本框內(nèi)，將該單詞顯示在Text2文本框內(nèi)?！白x數(shù)據(jù)”命令按鈕的Click事件過程已經(jīng)給出，請為“統(tǒng)計”命令按鈕編寫適當?shù)氖录^程，實現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須進行統(tǒng)計，且必須通過單擊窗體右上角的關閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5.vbp，如表2－16所列在窗體上畫出控件并設置它們的相關屬性。步驟2：打開代碼編輯窗口，在指定位置編寫“統(tǒng)計”按鈕的單擊事件過程。參考代碼：PrivateSubCommand2_Click()’需考生編寫n=Len(s):t=""DimMax_lenAsIntegerFori=1Tonc=Mid(s,i,1)Ifc＜＞""Thent=t+cElseIfLen(t)>Max_lenThenMax_len=Len(t)Max_word=tEndIft=""EndIfNextiIfLen(t)＞Max_lenThenMax_len=Len(t)Max_word=tEndIfText1.Text=Max_lenText2.Text=Max_wordEndSub步驟3：按要求將文件保存至考生文件夾中。步驟4：按＜F5＞鍵運行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計”按鈕，最后單擊窗體右上角的關閉按鈕結(jié)束程序。知識點解析：暫無解析國家二級VB機試（上機操作）模擬試卷第7套一、基本操作題(本題共2題，每題1.0分，共2分。)1、在窗體上畫1個標題為“文字屬性”、名稱為FrameI的框架控件，在框架中畫一個名稱為Checkl的復選框數(shù)組，含2個數(shù)組元素。按下標的前后順序，其標題分別是“粗體”和“斜體”，并設置適當屬性，使得“粗體”被選中，界面如圖所示。存盤時，工程文件名為sjtl．vbp，窗體文件名為sjt1．frm。標準答案：【操作步驟】步驟1：新建一個窗體。步驟2：在窗體上添加一個框架控件，根據(jù)表5．1設置控件的Caption屬性，結(jié)果如圖5．1所示。步驟3：在框架控件上添加一個復選框控件，選中新增的復選框，復制并粘貼，創(chuàng)建一個復選框數(shù)組，根據(jù)表5．2設置控件的相關屬性，結(jié)果如圖5．2所示。步驟4：調(diào)試并運行程序，關閉程序后按題目要求存盤。知識點解析：新建一個窗體，在窗體上添加一個框架控件，設置框架控件的Caption屬性；冉在框架控件里添加一個復選框數(shù)組，該數(shù)組由兩個復選框控件組成，按照數(shù)組的下標順序設置下標為0的復選框的Caption屬性和Value屬性，設置下標為l的復選框的Caption屬性。2、在窗體上畫一個名稱為CD1的通用對話框，并設置屬性使得在打開文件對話框時，其標題為“文件操作”，默認路徑為C盤根目錄；再畫2個命令按鈕，名稱分別為Commandl、Command2，標題分別為“讀文件”、“選擇顏色”。請編寫適當?shù)氖录^程，使得程序運行時，單擊“讀文件”按鈕后，可以利用CDI彈出打開文件對話框，單擊“選擇顏色”按鈕，可以彈出顏色對話框。設計模式下的窗體外觀如圖所示。存盤時，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。注意：要求程序中不得使用變量，每個事件過程中只能寫一條語句。標準答案：【操作步驟】步驟1：新建一個窗體。步驟2：在窗體上添加一個通用對話框控件，根據(jù)表5．3設置控件的相關屬性，結(jié)果如圖5．3所示。步驟3：在窗體上添加兩個按鈕控件，根據(jù)表5．4分別設置兩個控件的Caption屬性，結(jié)果如圖5．4所示。步驟4：雙擊“讀文件”按鈕，在Commandl的Click事件中根據(jù)題目要求編寫代碼(劃線部分是需要填入的內(nèi)容)。PrivateSubCommandl_Click()CD1.ShowOpenEndSub步驟5：雙擊“選擇顏色”按鈕，在Command2的Click事件中根據(jù)題目要求編寫代碼(劃線部分是需要填入的內(nèi)容)。PrivateSubCommand2_Click()CD1.ShowColorEndSub步驟6：調(diào)試并運行程序，關閉程序后按題目要求存盤。知識點解析：新建一個窗體，在窗體上添加一個通用對話框控件，設置該控件的DialogTifle屬性和InitDir。屬性；再在窗體上添加兩個按鈕控件，分別設置按鈕控件的Caption屬性；最后分別在兩個按鈕的Click事件中編寫代碼實現(xiàn)題目要求。二、簡單應用題(本題共2題，每題1.0分，共2分。)3、在考生目錄下有一個工程文件sjt3．vbp。窗體上有一個名稱為List1的空列表框。程序運行時，單擊Commandl按鈕，則從鍵盤輸入10個任意字符串，并按字典順序添加到Listl中成為它的列表項。給出的程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標準答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋“′”，將問號改為正確的內(nèi)容。參考答案(劃線部分是需要填入的內(nèi)容)PrivateSubCommandl_Click()Dimst$(10)Fork=1To10st(k)=InputBox(”請輸入一個字符串”)NextkFori=lTo9k=iForj=i+lTo10Ifst(k)＞st(j)Thenk=1EndIfNextjList1．Addltemst(k)st(k)=st(j)NextiList1.AddItemst(10)EndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。知識點解析：題目要求按字典順序?qū)㈦S機輸入的10個任意字符串添加到Listl列表框中，使用List1的Addltem方法向列表框中插入列表項，若未指定索引值，則新插入的列表項排列在原有項目的下方，故本題中最先插入數(shù)組中最小的值。4、考生文件夾下有一個工程文件sjt4．vbp，窗體左端中有一個小的實心圓。程序運行時，單擊窗體，圓將沿著正弦曲線的軌跡向右運動，運動一個正弦周期后。再沿著原來的軌跡退回到原來的位置。然后再沿正弦曲線的軌跡向右運動，如此周而復始。給出的程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序。最后，程序按原文件名存盤。標準答案：【操作步驟】步驟l：打開本題工程文件。步驟2：打開代碼編輯窗口，去掉程序中的注釋“′”，將問號改為正確的內(nèi)容。參考答案(劃線部分是需要填入的內(nèi)容)Dimx0，y0，a，angleConstPI=3．1415926PrivateSubForm_Click()Timerl．Enabled=Truea=6x0=50y0=0EndSubPrivateSubForm_Load()Shapel．Top=1300Shapel．Left=200EndSubPrivateSubTimerl_Timet()angle=angle+ab=1000*Sin(angle*PI／180)y0=1300－b$hapel．Left=Shapel．Left+x0Shapel．Top=y0Ifangle=360Orangle=0Thena=－ax0=－x0EndIfEndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。知識點解析：sin(x)函數(shù)返回值為自變量x的正弦值；Shape控件的Top屬性為距容器頂部邊界的距離，Left屬性為距容器左邊界的距離。三、綜合應用題(本題共1題，每題1.0分，共1分。)5、在考生目錄下有一個工程文件sjt5．vbp和文本文件in5．dat，其中有若干個用一個空格符隔開的英文單詞。窗體上有2個命令按鈕，其功能是：單擊“讀數(shù)據(jù)”按鈕，可以讀入in5．dat文件中的所有內(nèi)容并顯示在文本框中。單擊“統(tǒng)計”按鈕，能夠統(tǒng)計長度為5的單詞的個數(shù)和含有小寫字母“a”的單詞的個數(shù)，并把統(tǒng)計結(jié)果依次顯示在Text2、Text3文本框中。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。編寫函數(shù)found的代碼。注意：不能修改程序的其他部分和控件屬性，必須通過單擊窗體右上角的“×”結(jié)束程序，否則無成績。最后把修改后的文件按原文件名存盤。標準答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，填入相應的代碼以實現(xiàn)題目的功能。參考答案(劃線部分是需要填入的內(nèi)容)OptionBase1DimsAsStringPrivateSubCommandl_Click()OpenApp．Path＆＂＼in5．dat＂ForInputAs#1LineInput#1．sClose#lTextl．Text=sEndSubPrivateSubCommand2_Click()Ifkn(s)=0ThenMsgBox＂請先使用“讀數(shù)據(jù)”功能!＂．Elsech$=＂＂Fork=lToLen(s)c=Mid(s，k，1)IfC＜＞＂＂Thench=ch+cElseIfLen(ch)=5Thenm=m+lEndIfIffound(ch，＂a＂)Thenn=n+1EndIfch=＂＂EndIfNextkText2．Text=mText3．Text=nEndIfEndSubPrivateFunctionfound(stAsString，chAsString)AsBoolean′*****************************考生編寫***********************************Fork=1ToLen(st)a=Mid(st,k,l)Ifa=chThenFound=TrueExitFunctionEndIfNxetkFound=False′*******************************考生編寫結(jié)束*********************************EndFunctionPrivateSubForm_Unload(CancelAsInteger)OpenApp．Path＆＂＼out5．dat＂ForOutputAs#1Prnt#1．Text2．Text，Text3．TextClose#lEndSub步驟3：調(diào)試并運行程序，單擊“讀數(shù)據(jù)”按鈕，再單擊“統(tǒng)計”按鈕，結(jié)果如圖5．5所示，最后關閉程序后按題目要求存盤。知識點解析：Mid()函數(shù)的作用是從一個字符串中截取出指定數(shù)量的字符。對取得的字符串s的每一個字符進行遍歷，若字符不為空格，則將遍歷的字符進行拼接；若字符為空格，則對拼接的字符長度進行判斷，若為5個字符，則長度為5的單詞個數(shù)加1；再對拼接的字符是否含有“a”進行判斷，若存在字符“a”，則含有字母“a”的單詞個數(shù)加1。國家二級VB機試（上機操作）模擬試卷第8套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設計VisualBasic應用程序(包括界面和代碼)。(1)在名稱為Form1的窗體上建立一個如下表所示的下拉菜單，其中“設置”菜單項為灰色(不可用)，如圖3－137所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱為Form1的窗體上畫一個名稱為Hscrolll的水平滾動條，其最大刻度為100，最小刻度為0；再畫兩個單選按鈕，名稱分別為Option1、option2，標題分別為“最大值”、“最小值”，且都未選中。再通過屬性窗口設置適當屬性使得程序剛運行時，焦點在滾動條上(如圖3－138所示)。請編寫適當?shù)氖录^程，使得程序運行時，單擊“最大值”單選按鈕，則滾動條上的滾動框移到最右端；單擊“最小值”單選按鈕，則滾動框移到最左端。注意：程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，利用菜單設計器按表4－81在窗體上建立一個二級菜單。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，按表4－82在窗體中畫出控件并設置其相關屬性。步驟2：打開代碼編輯窗口，編寫兩個單選按鈕的單擊事件過程。參考代碼：PrivateSubOption1_Click()HScroll1．Value＝100EndSubPrivateSubOption2Click()HSCroll1．Value＝0EndSub步驟3：按要求將文件保存至考生文件夾中。知識點解析：暫無解析二、簡單應用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個工程文件sjt3．vbp，已給出了所有控件和部分程序。程序運行時，請按以下順序操作：1)單擊“讀入數(shù)據(jù)”按鈕，可把考生目錄下的文件in3．dat中的100個整數(shù)讀到數(shù)組a中；2)從名稱為List1的列表框中選中一項(如圖3－139所示)。3)單擊“計算”按鈕，則可按該選項的要求計算出結(jié)果并放到文本框中。4)單擊窗體右上角的關閉按鈕結(jié)束程序?！白x入數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請為“計算”按鈕編寫適當?shù)氖录^程實現(xiàn)上述功能。注意：不得修改已經(jīng)存在的程序，在結(jié)束程序運行之前，必須進行一次計算，且必須用窗體右上角的關閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。(2)在考生文件夾下有一個工程文件sjt4．vbp。窗體中橫線(橫坐標)的名稱為Line1，豎線(縱坐標)的名稱為Line2：五個不同顏色的矩形是一個形狀控件數(shù)組，名稱為Shape1，它們的Visible屬性都為False；從左到右的兩個按鈕的名稱分別為Command1、Command2；另有一個有五個元素的標簽數(shù)組，名稱為Label1，其所有元素的Visible屬性都為False。如圖3－140(a)所示。程序運行時，單擊“輸入5個數(shù)據(jù)”按鈕，可輸入五個整數(shù)(最好在100～2000之間)，并作為刻度值顯示在縱坐標的左面；單擊“畫直方圖”按鈕，則按五個數(shù)的輸入順序顯示直方圖。例如若輸入的五個數(shù)是1200、500、800、1900、1500，則結(jié)果如圖3－140(b)所示。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和各控件的屬性。最后把修改后的文件按原文件名存盤。標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt3．vbp，雙擊窗體中的“計算”命令按鈕，在打開的代碼編輯窗口中編寫其單擊事件過程。參考代碼：PrivateSubCommand2_Click()DimkAsInteger，i1，i2AsIntegeri1＝a(1)：i2＝a(1)Fork＝2To100Ifa(k)＞i1Theni1＝a(k)EndIfIfa(k)＜i2Theni2＝a(k)EndIfNextkIfList1．Selected(0)＝TrueThenText1．Text＝i1－i2EndIfIfList1．Selected(1)＝TrueThenText1．Text＝i1＋i2EndIfIfList1．Selected(2)＝TrueThenText1．Text＝i1*i2EndIf步驟2：按＜F5＞鍵運行程序，單擊“讀入數(shù)據(jù)”按鈕，然后在列表框中選擇一項，并單擊“計算”按鈕，統(tǒng)計出結(jié)果。步驟3：單擊窗體右上角的關閉按鈕以結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”將問號“?”改為正確的內(nèi)容。參考代碼：Fork＝1To5Label1_1(k－1)．Visible＝TrueShapel(k－1)．Height＝s(k)a＝Line1．Y1步驟2：按要求將文件保存至考生文件夾中。知識點解析：暫無解析三、綜合應用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個工程文件sjt5．vbp，其中，已給出了所有控件(如圖3－141所示)和部分程序。程序運行時，請按以下順序操作：1)單擊“讀入文件”按鈕，把考生目錄下的文件in5．dat中的內(nèi)容讀入內(nèi)存并顯示在上面的文本框(Text1)中；2)單擊“加密”按鈕，則可對Text1中的內(nèi)容進行加密并顯示在下面的文本框(Text2)中。3)單擊“存結(jié)果”按鈕則把’Text2中的內(nèi)容存到out5．dat文件中。加密規(guī)則：對于第奇數(shù)個字符，若是字母，則把它變?yōu)樗竺娴淖址?若為“Z”則變?yōu)椤癆”)，不是字母則不變；對于第偶數(shù)個字符，若是字母，則把它變?yōu)樗懊娴淖址?若為“A”則變?yōu)椤癦”)，不是字母則不變。大小寫字母都遵循此規(guī)則。例如：若原有的字符是：AbbaZGHa－MnnKYzx則加密后的字符是：BaczAFGb－NmeiXaw已經(jīng)給出“存結(jié)果”按鈕的Click事件過程和函數(shù)isletter，函數(shù)isletter(aAsString)判斷變量a中是否為一個字母，若是則返回True，否則返回False，可以直接調(diào)用。請編寫“讀入文件”按鈕和“加密”按鈕的Click事件過程，以實現(xiàn)上述功能。(in5．dat文件中只含英文單詞和空格，不分段落和行)注意：考生不得修改已經(jīng)存在的程序，必須用“存結(jié)果”按鈕存儲加密結(jié)果，否則無成績。最后，按原文件名把程序存盤。標準答案：【操作步驟】步驟1：打開考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口指定位置編寫以下代碼。參考代碼：PrivateSubCommand1_Click()Open"n5．dat"ForInputAs1LineInput＃1，sClose＃1Text1．Text＝sEndSubPrivateSubCommand2Click()DimiAsInteger，ssAs