vb模擬試題絕對

VB操作第三套卷基本操作1、在名稱為Forml,標題為“標簽”的窗體上，添加一個名稱為Lablel,內(nèi)容為“計算機等級考試。字型為四號字的標簽。請設(shè)置適當?shù)膶傩砸詽M足下述要求：(1)窗體不帶有最大化、最小化及關(guān)閉按鈕；(2)標簽帶有邊框；(3)標簽可依據(jù)標題指定的內(nèi)容自動調(diào)整其大小。運行后的窗體如圖所示：注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjtl.vbp,窗體文件名保存為stjl.frmo2、在名稱為Forml的窗體上添加一個名稱為Textl,內(nèi)容為“程序設(shè)計”的文本框，且顯示為三號字、居中；再添加兩個命令按鈕，標題分別是“粗體”和“斜體”，名稱分別為Command1、Command2o如圖所示。要求：編寫兩個命令按鈕的Click事件過程，使得單擊“斜體”按鈕時，文本框的內(nèi)容顯示為斜體格式；單擊“粗體”按鈕時，文本框的內(nèi)容顯示為粗體格式。注意：程序中不得使用變量，每個事件過程只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名保存為stj2.vbp,窗體文件名保存為stj2.frmo簡單應(yīng)用題1、在考生文件夾有一個工程文件stj3.vbp,其中的窗體中有一個名為Textl的文本框,初始文本為0;一個計時器；一個標簽；一個有兩個元素的單選按鈕數(shù)組，名稱為Opl,標題依次為“1秒”、“3秒”；兩個命令按鈕，名稱分別為Cl、C2,標題分別為“開始計數(shù)”、“停止計數(shù)”，同時給出了兩個事件過程，但并不完整。在運行時要完成下面的功能；單擊一個單選按鈕，可以設(shè)置計時間隔為1秒或3秒；若單擊“開始計數(shù)”，則Textl中的數(shù)按設(shè)定的時間間隔每次加1;若單擊“停止計數(shù)。則Textl中的數(shù)不再變化。請按下述要求設(shè)置屬性和編寫程序，以便實現(xiàn)上述功能；（1）設(shè)置計時器的屬性，使其在初始狀態(tài)下不計時。（2）去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。（3）為兩個命令按鈕編寫適當?shù)氖录^程，每個事件過程中只能有一條語句，不能使用變量。注意：不能修改已有程序的其他部分和控件的其他屬性。最后將修改后的文件按原文件名存盤。程序代碼：PrivateSubCl_Click（）EndSubPrivateSubOpl_Click（IndexAsInteger）'SelectCase?Case0Timer1.Interval=1000Case1Timerl.Interval=3000EndSelectEndSubPrivateSubTimerl_Timer（）'Textl.Text=?.Text+1EndSub2、在考生文件夾有一個工程文件stj4.vbp,其功能如下：（1）單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下in4.dat文件中已按升序方式排列的60個數(shù)讀入數(shù)組A,并在Textl中顯示；（2）單擊“輸入”按鈕將彈出輸入框，供接收用戶輸入的任意一個數(shù)；（3）單擊“刪除”按鈕，則首先判斷“輸入”的數(shù)是否存在于A數(shù)組中，若存在，則將該數(shù)從數(shù)組A中刪除，并將刪除后A數(shù)組的內(nèi)容重新顯示在Textl中，若不存在，則給出相應(yīng)提示。在給出的窗體文件中已經(jīng)有了全部控件（如圖所示），但程序不完整，要求：去掉“刪除"按鈕Click事件過程中的注釋符，把？改為正確的內(nèi)容，以實現(xiàn)上述程序功能。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。程序代碼：Dima(100)AsInteger,numAsInteger,nAsIntegerPrivateSubCommandl_Click()DimkAsIntegern=60OpenApp.Path&"\in4.dat”ForInputAs#1Fork=1TonInput#1,a(k)Textl=Textl+Str(a(k))+Space(2)NextkClose#1EndSubPrivateSubCommand2_Click()num=InputBox("請輸入一個數(shù)”)EndSubPrivateSubCommand3_Click()Fori=ITon ，“讀數(shù)據(jù)”事件過程中已給出n的初值'Ifnum=?ThenExitForNexti'If?ThenMsgBox”該數(shù)不存在于數(shù)組中，不能執(zhí)行刪除操作！”Elsen=n-1'Forj=iTo?' a(j)=?NextEndIfTextl="，以下程序段將執(zhí)行刪除操作后的數(shù)組a重新顯示在Textl中'Fork=1To?Textl=Textl+Str(a(k))+Space(2)NextkEndSub綜合應(yīng)用題在考生文件夾下有一個工程文件stj5.vbp,窗體上有兩個標題分別為“讀數(shù)據(jù)”、“統(tǒng)計”的按鈕和初始文本為空，名稱分別為Textl和Text2的兩個文本框，如圖所示：程序功能如下：①單擊“讀數(shù)據(jù)”按鈕，將考生文件夾下的“in5.dat”文件（該文件僅含字母和空格）顯示在Textl中（該過程已給出）②在Textl中選中內(nèi)容后，點擊“統(tǒng)計按鈕”，統(tǒng)計選中文字中出現(xiàn)次數(shù)最多的字母（不分大小寫），以大寫形式將該字母顯示在Text2中。要求：去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。讀數(shù)據(jù)選中文本中程序代碼:OptionBase1DimxAsString,max_nAsIntegerPrivateSubCommandl_Click()OpenApp.Path&"\in5.dat”ForInputAs#1s=Input(LOF(l),#l)Close#lTextl.Text=sEndSubPrivateSubCommand2_Click()Dima(26)AsInteger'sl=?st=Textl.SelTextText2二心Ifsi=0ThenMsgBox”請先選擇文本”ElseFori=1Tosic=Mid(st,i,1)Ifc<>"”Thenn=Asc(UCase(c))-Asc(nAn)+1a(n)=?EndIfNextimax_n=a(l):n=1'Forj=?T