VB程序設(shè)計上機題目.doc

演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案VB程序設(shè)計上機題目451. 基本操作（2小題，每小題15分，共計30分） 注意：下面出現(xiàn)的考生文件夾均為%USER%* 請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為Form1，標(biāo)題為圖片的窗體上畫1個名稱為Image1的圖像框，其 高為2500，寬為2000。請通過屬性窗口設(shè)置適當(dāng)屬性，裝入考生目錄下的 圖片文件pic1.jpg，并使圖片適應(yīng)圖像框的大?。ㄈ鐖D所示）。 注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名 為sjt1.frm。 * （2）在名稱為Form1的窗體上畫1個名稱為Text1的文本框，其初始內(nèi)容為空；再 畫2個單選按鈕，名稱分別為Option1、Option2，標(biāo)題分別為參加、不 參加，Option1的標(biāo)題在單選按鈕的左邊，如圖所示。當(dāng)程序運行時，在 Text1中輸入一些文字（例如比賽），單擊Option1時，則把其標(biāo)題放在 輸入文字的前面（例如參加比賽），單擊Option2時，則把其標(biāo)題放在輸 入文字的后面（例如比賽不參加）。請編寫適當(dāng)?shù)氖录^程，完成上述 功能。 注意： 存盤時，將文件保存至考生文件夾下，窗體文件名為sjt2.frm，工程文 件名為sjt2.vbp。要求程序中不得使用變量，每個事件過程中只能寫一條 語句。 評析第1小題：新建一個窗體Form1，通過屬性窗口設(shè)置窗體Form1的Caption屬性為圖片。點擊工具箱中的Image控件圖標(biāo)，然后在窗體上拖拉出一個圖像框Image1，通過屬性窗口設(shè)置其Height屬性為2500，Width屬性為2000，Stretch屬性為True，并通過Picture屬性添加考生文件夾下的圖片文件pic1.jpg。按要求保存文件即完成本題。第2小題：新建一個窗體Form1，點擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個文本框Text1，通過窗口設(shè)置其Text屬性為空。點擊工具箱中的OptionButton控件圖標(biāo)，然后在窗體上拖拉出兩個單選按鈕Option1、Option2，通過屬性窗口設(shè)置其Caption屬性分別為參加、不參加，并將單選按鈕Option1的Alignment屬性設(shè)置為1-Right Justify。打開代碼窗口，添加如下代碼Private Sub Option1_Click() Text1.Text = Option1.Caption & Text1.TextEnd SubPrivate Sub Option2_Click() Text1.Text = Text1.Text & Option2.CaptionEnd Sub按要求保存文件即完成本題。2. 簡單應(yīng)用（2小題，每題20分，計40分） 注意：下面出現(xiàn)的考生文件夾均為%USER%* （1）考生文件夾中有工程文件sjt3.vbp。窗體上有名稱為Label1、標(biāo)題為標(biāo)簽 控件的標(biāo)簽；有一個名稱為Command1、標(biāo)題為命令按鈕的命令按鈕。單 擊上述兩控件中任一控件，則在標(biāo)簽Label2中顯示所單擊控件的標(biāo)題內(nèi)容 （標(biāo)題內(nèi)容前有單擊二字），下圖是單擊命令按鈕后的窗體外觀。請去 掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。 注意： 考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名 存盤。 * （2）在考生文件夾下有一個工程文件sjt4.vbp。程序運行后，如果單擊開始 按鈕，則圖片自左向右移動，同時滾動條的滑塊隨之移動，每0.5秒移 動一次。當(dāng)圖片完全移出窗體的右邊界時，立即再從窗體的左邊界開始重 新移動，若單擊停止按鈕，則圖片停止移動，如圖所示。在窗體文件 中已經(jīng)給出了全部控件，但程序不完整。 要求： 請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實現(xiàn)上 述功能，但不能修改程序的其他部分和控件屬性。最后把修改后的文件 按原文件名存盤。 評析第1小題：本題主要考查了控件參數(shù)。在VB中也可以把對象作為參數(shù)向過程傳遞。在形參表中，把形參變量的類型聲明為Control，就可以向過程傳遞控件。對象的傳遞只能是按地址傳遞。在用控件作為參數(shù)時，必須考慮到作為實參的控件是否具有通用過程中所列的控件的屬性。為此，Visual Basic提供了一個TypeOf語句，其格式為：If|ElseIf TypeOf 控件名稱 Is 控件類型TypeOf語句放在通用過程中，控件名稱實際上指的控件參數(shù)（形參）的名字，即As Control前面的參數(shù)名。控件類型是代表各種不同控件的關(guān)鍵字。解題方法：應(yīng)用程序中的ShowName是以控件對象為參數(shù)的通用過程。若單擊命令按鈕Command1，調(diào)用執(zhí)行事件過程Command1_Click，該過程以命令按鈕名Command1為實參調(diào)用通用過程ShowName，執(zhí)行ShowName后，在窗體中的Label2標(biāo)簽內(nèi)顯示單擊命令按鈕；若單擊命令按鈕Command2，調(diào)用執(zhí)行事件過程Command2_Click，該過程以標(biāo)簽Label1為實參調(diào)用通用過程ShowName，執(zhí)行ShowName后，在窗體中的Label2標(biāo)簽內(nèi)顯示單擊標(biāo)簽控件。打開代碼窗口，修改后的代碼如下：Private Sub Command1_Click() Call ShowName(Command1)End SubPrivate Sub Label1_Click() Call ShowName(Label1)End SubPrivate Sub ShowName(c As Control) If TypeOf c Is CommandButton Then Label2.Caption = 單擊 & Command1.Caption End If If TypeOf c Is Label Then Label2.Caption = 單擊 & Label1.Caption End IfEnd Sub按要求保存文件即可完成本題。第2小題：本題主要考查了計時器和水平滾動條控件。計時器的Enabled屬性設(shè)置為True時，可使計時器按Interval屬性在指定的時間間隔發(fā)生計時器事件。本題中每隔0.5秒發(fā)生一次計時器事件，因此計時器控件的Interval屬性應(yīng)設(shè)置為500。Top、Left（頂邊、左邊位置）這兩個屬性用來設(shè)置對象的頂邊和左邊的坐標(biāo)值，用以控制對象的位置。這里的對象可以是窗體和絕大多數(shù)控件。當(dāng)對象為窗體時，Left指的是窗體的左邊界與屏幕左邊界的相對距離，Top指的是窗體的頂邊與屏幕頂邊的相對距離；而當(dāng)對象為控件時Left和Top分別指控件的左邊和頂邊與窗體的左邊和頂邊的相對距離。解題方法：事件過程Form_Load為計時器控件的Interval屬性設(shè)置初值500；事件過程Command1_Click用來啟動計時器控件Timer1；事件過程Command2_Click用來停止計時器控件Timer1；事件過程Timer1_Timer用來控制圖片的移動。每執(zhí)行一次計時器事件，圖片自左向右移動200，同時滾動條的滑塊隨之移動，也就是說圖片和滾動條保持同步運動。If語句判斷圖片左邊界是否完全移出窗體的右邊界，如果是，圖片左邊界大于窗體的寬度，即If Picture1.LeftForm1.Width Then，圖片再回到窗體左邊界，此時圖片左邊距窗體左邊界的距離為0。打開代碼窗口，修改后的代碼如下：Private Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() Timer1.Interval = 500End SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 200 If Picture1.Left Form1.Width Then Picture1.Left = 0 End If HScroll1.Value = Picture1.LeftEnd Sub按要求保存文件即可完成本題。3. 綜合應(yīng)用（1小題，計30分） 注意：下面出現(xiàn)的考生文件夾均為%USER% 在窗體上畫1個文本框，名稱為Text1（可顯示多行），然后再畫三個命令按 鈕，名稱分別為Command1，Command2和Command3，標(biāo)題分別為讀數(shù)，統(tǒng) 計和存盤，如圖所示。程序的其功能是：單擊讀數(shù)按鈕，則把考生目 錄下的in5.txt文件中的所有英文字符放入Text1（可多行顯示）；單擊統(tǒng) 計按鈕，找出并統(tǒng)計英文字母i，j，k，l，m，n（不區(qū)分大小寫）各自出 現(xiàn)的次數(shù)；單擊存盤按鈕，將字母i到n出現(xiàn)次數(shù)的統(tǒng)計結(jié)果依次存到考生 目錄下的順序文件out5.txt中。 *注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt5.vbp，窗體文件名 為sjt5.frm。 評析本題主要考查了文件的操作和字符串的處理。1、Open語句Open語句用來打開或建立一個文件，其語法為：Open 文件名 for 存取方式 Access 操作方式 鎖定 As #文件號 Len=記錄長度參數(shù)說明：存取方式指文件的輸入輸出方式，可以是以下操作之一：Output指定順序輸出方式Input指定順序輸入方式2、Input$函數(shù)：格式：Input$(n,#文件號)Input$函數(shù)返回從指定的文件中讀出的n個字符的字符串。也就是說，它可以從數(shù)據(jù)文件中讀取指定數(shù)目的字符。3、LOF函數(shù)LOF函數(shù)返回給文件分配的字節(jié)數(shù)（即文件的長度）。4、Print #語句用來把數(shù)據(jù)寫入順序文件。語法為：Print #文件號，Spc(n)|Tab(n) 表達(dá)式列表 ;|,Spc(n)函數(shù)用來在當(dāng)前的輸出位置加入n個空白；Tab(n)函數(shù)用來設(shè)置在第n個位置寫入數(shù)據(jù)。分號表示后續(xù)寫入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫入；逗號表示在當(dāng)前寫入的數(shù)據(jù)后換行。5、Close語句 用來關(guān)閉一個被打開的文件。語法為：Close #文件號打開代碼窗口，讀數(shù)、統(tǒng)計、存盤按鈕的代碼如下：Option Base 1Dim a(6) As IntegerPrivate Sub Command1_Click() Open App.Path & & in5.txt For Input As #1 s = Input(LOF(1), #1) Text1.Text = s Close #1End SubPrivate Sub Command2_Click() For i = 1 To Len(Text1) str1 = Mid(Text1, i, 1) Select Case LCase(str1) Case Is = i a(1) = a(1) + 1 Case Is = j a(2) = a(2) + 1 Case Is = k a(3) = a(3) + 1 Case Is = l a(4) = a(4) + 1 Ca