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

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