vb套題——字母查找

1、第44套：1. 根本操作 2小題，每題 15分，共計(jì) 30分注意：下面出現(xiàn)的“考生文件夾均為 %USER%*請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì) Visual Basic 應(yīng)用程序包括界面和代碼。1在標(biāo)題為"列表框"、名稱(chēng)為Forml的窗體上畫(huà)一個(gè)名稱(chēng)為 Listl列表框,通過(guò)屬性窗口輸入四個(gè)列表項(xiàng)：“數(shù)學(xué)、“語(yǔ)文、“歷史、“地理 ，列表項(xiàng)采用“復(fù)選框形式，如下列圖。列表框的寬為 1100，高不限。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為 sjt1.vbp ，窗體文件名 為 sjt1.frm 。解題思路：?jiǎn)?dòng)Visual Basic 系統(tǒng)，創(chuàng)立一個(gè) Forml窗體。 在該窗體上畫(huà)一

2、個(gè)列表框控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為 List1 ，向列表框中添加項(xiàng)目List屬性，添加的工程分別為“數(shù)學(xué)、“語(yǔ)文、“歷史、“地理，每個(gè)工程 為一行，寬Width屬性設(shè)為1100, Style屬性設(shè)為1。參考文件：參考答案 sjt1.vbp 、 sjt1.frm 、 sjt1.vbw請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt1.vbp 文件并運(yùn)行。*2在名稱(chēng)為Form1的窗體上建立一個(gè)名稱(chēng)為“ menu1"、標(biāo)題為“文件"的彈 出式菜單，含有三個(gè)菜單項(xiàng)，它們的標(biāo)題分別為：“翻開(kāi)、“關(guān)閉、"保存"，名稱(chēng)分別為“ m1&quo

3、t;、“ m2'、“ m3'。再畫(huà)一個(gè)命令按鈕，名 稱(chēng)為“ Command1 、標(biāo)題為“彈出菜單。要求：編寫(xiě)命令按鈕的 Click 事件過(guò)程，使程序運(yùn)行時(shí)，單擊“彈出菜單按鈕可彈出“文件菜單 如下列圖。程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為 sjt2.vbp ，窗體文件名為 sjt2.frm 。解題思路：?jiǎn)?dòng)Visual Basic 系統(tǒng)，創(chuàng)立一個(gè) Form1窗體。在該窗體上通過(guò)菜單編輯器建立一個(gè)主菜單， 在菜單編輯器的標(biāo)題處輸入 “文件， 名 稱(chēng)處輸入menu1,將“可見(jiàn)"單項(xiàng)選擇按鈕設(shè)為不選狀態(tài)。在“文件"

4、;菜單下有三個(gè)子菜單，在菜單編輯器的標(biāo)題處分別輸入“翻開(kāi)'、“關(guān)閉'、“保存'，名稱(chēng)處分別輸入m1、 m2、m3畫(huà)一個(gè)命令按鈕控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為Command,1標(biāo)題Caption屬性設(shè)為“彈出菜單'。單擊“彈出菜單'按鈕即運(yùn)行 Click 事件過(guò)程，在該 Click 事件過(guò)程中參加語(yǔ)句：Private Sub Command1_Click()Form1.PopupMenu menu1' 或 PopupMenu menu1End Sub參考文件： 參考答案 sjt2.vbp 、 sjt2.frm 、 sjt2.vbw 請(qǐng)把這些文件復(fù)制

5、到 c:wexam26990001 中，然后翻開(kāi) sjt2.vbp 文件并運(yùn)行。2. 簡(jiǎn)單應(yīng)用 2小題，每題 20分，計(jì) 40分 注意：下面出現(xiàn)的“考生文件夾均為 %USER%*1在考生目錄下有一個(gè)工程文件 sjt3.vbp ， 包含了所有控件和局部程序。 程序運(yùn)行時(shí)，在文本框中每輸入一個(gè)字符，那么立即判斷：假設(shè)是小寫(xiě)字母， 那么把它的大寫(xiě)形式顯示在標(biāo)簽 Label1 中，假設(shè)是大寫(xiě)字母，那么把它的小寫(xiě) 形式顯示在 Label1 中，假設(shè)是其他字符，那么把該字符直接顯示在 Label1 中。 輸入的字母總數(shù)那么顯示在標(biāo)簽 Label2 中，如下列圖。要求：去掉程序中的注釋符，把程序中的 ？改為

6、正確的容。不得修改已經(jīng)存在的程序，最后把修改后的文件按原文件名存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt3.vbp ，相應(yīng)的窗體文 件名為 sjt3.frm 。由于所提供的窗體程序不完整， 在文本框輸入字符， 即運(yùn)行 Private Sub Text1_Change() 事件過(guò)程，在該事件過(guò)程中，有三處地方需要修改。1) 將語(yǔ)句'ch = Right$( ? )改為ch = Right$(Text1, 1)2) 將語(yǔ)句 'Label1.Caption = ?改為L(zhǎng)abel1.Caption = Right$(Text1, 1)

7、3) 將語(yǔ)句 'Label2.Caption = ?改為L(zhǎng)abel2.Caption = n參考文件： 參考答案 sjt3.vbp 、 sjt3.frm 、 sjt3.vbw 請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt3.vbp 文件并運(yùn)行。*2在考生文件夾下有一個(gè)工程文件sjt4.vbp 。窗體中有一個(gè)圖片框，圖片框中有一個(gè)名稱(chēng)為 Shapel的藍(lán)色圓，如下列圖。程序運(yùn)行時(shí)，單擊“開(kāi)始按鈕，圓逐漸變大圓心位置不變，當(dāng)圓充滿(mǎn)圖片框時(shí)那么變?yōu)榧t色，并開(kāi)始逐漸縮小，當(dāng)縮小到初始大小時(shí)又變?yōu)樗{(lán)色，并再次逐漸變大，如此往復(fù)。單擊“停止按鈕，那么停止變化。 文件中已

8、經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ？改為正確的容。提示：程序中的符號(hào)常量bule_color 表示藍(lán)色的值,red_color表示紅色的值。注意:不能修改程序的其他局部和各控件的屬性。最后把修改后的文件按原文件名存盤(pán)。解題思路：?jiǎn)?dòng)Visual Basic系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件sjt4.vbp ，相應(yīng)的窗體文件名為sjt4.frm 。由于所提供的窗體程序不完整，在“開(kāi)始"按鈕的Private Sub Command1_Click()事件過(guò)程中，有一處地方需要修改。1) 將語(yǔ)句'Timer1.E nabled = ?改為T(mén)i

9、merl.E nabled = True在計(jì)時(shí)器的Private Sub Timer1_Timer()事件過(guò)程中，有四處地方需要修改。1) 將語(yǔ)句'Shapel.FillColor = ?改為Shapel.FillColor = red_color2) 將語(yǔ)句'? = Shapel.Left + 50改為Shapel.Left = Shapel.Left + 503) 將語(yǔ)句'? = Shapel.Top + 50改為Shape1.Top = Shape1.Top + 504) 將語(yǔ)句'Shape1.FillColor = ?改為Shape1.FillColor

10、 = blue_color參考文件： 參考答案 sjt4.vbp 、 sjt4.frm 、 sjt4.vbw 請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt4.vbp 文件并運(yùn)行。*3. 綜合應(yīng)用 1小題，計(jì) 30分注意：下面出現(xiàn)的“考生文件夾均為 %USER%在考生目錄下有一個(gè)工程文件 sjt5.vbp ，包含了所有控件和局部程序。程序 運(yùn)行時(shí)，單擊“翻開(kāi)文件按鈕，那么彈出“翻開(kāi)對(duì)話(huà)框，默認(rèn)文件類(lèi)型為 “文本文件，默認(rèn)目錄為考生目錄。選中 in5.txt 文件如圖 1所示，單擊“翻開(kāi)按鈕， 那么把文件中的容讀入并顯示在文本框 Text1 中；單 擊“修改容'

11、按鈕，那么可把 Textl中的大寫(xiě)字母“ E"、“ N、“ T"改為 小寫(xiě)，把小寫(xiě)字母“ e、“ n"、“ t 改為大寫(xiě)；單擊“保存文件按鈕， 那么彈出“另存為對(duì)話(huà)框，默認(rèn)文件類(lèi)型為“文本文件，默認(rèn)目錄為考生 目錄，默認(rèn)文件為“ out5.txt "如圖 2 所示，單擊“保存"按鈕，那么把Text1 中修改后的容存到 out5.txt 文件中。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，去掉程序中的注釋符，把程序中的 ？ 改為正確的容，并編寫(xiě)“修改容"按鈕的 Click 事件過(guò) 程。考生不得修改已經(jīng)存在的程序。必須把 Text1 中

12、修改后的容用“保存文件"按鈕存儲(chǔ)結(jié)果，否那么無(wú)成績(jī)。最后，按原文件名把程序存盤(pán)。M I解題思路：?jiǎn)?dòng)Visual Basic系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件sjt5.vbp ，相應(yīng)的窗體文件名為sjt5.frm 。由于所提供的窗體程序不完整，需添加事件過(guò)程。單擊“修改容"按鈕即運(yùn)行Click事件過(guò)程，在該 Click事件過(guò)程中參加語(yǔ)句：Private Sub Comma nd2_Click()s =""str_le n = Len( Text1)For k = 1 To str_le nch = Mid$(Text1, k, 1)If ch = &

13、quot;E" Or ch = "N" Or ch = "T" The ns = s & LCase(ch)ElseIf ch = "e" Or ch = "n" Or ch = "t" Thens = s & UCase(ch)Elses = s & chEnd IfNext kText1 = sEnd Sub在"翻開(kāi)文件"按鈕的 Private Sub Command1_Click()事件過(guò)程中，有三處地方需要修 改。1) 將語(yǔ)句'

14、;CommonDialog1.FilterIndex = ?改為CommonDialog1.FilterIndex = 22) 將語(yǔ)句'Open ? For Input As #1 改為Open CommonDialog1.FileName For Input As #13) 將語(yǔ)句 'Text1.Text = ?改為T(mén)ext1.Text = s在“翻開(kāi)文件按鈕的 Private Sub Command3_Click() 事件過(guò)程中，有三處地方需要修 改。1) 將語(yǔ)句'CommonDialog1.Action = ?改為CommonDialog1.Action = 2參

15、考文件： 參考答案 sjt5.vbp 、 sjt5.frm 、 sjt5.vbw out5.dat請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt5.vbp 文件并運(yùn)行。 第48套：1. 根本操作 2小題，每題 15分，共計(jì) 30分 注意：下面出現(xiàn)的“考生文件夾均為 %USER%*請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì) Visual Basic 應(yīng)用程序包括界面和代碼。1在名稱(chēng)為Forml，標(biāo)題為"框架"的窗體上畫(huà)一個(gè)名稱(chēng)為Framel，且沒(méi)有標(biāo)題的框架?？蚣芎卸€(gè)單項(xiàng)選擇按鈕，名稱(chēng)分別為Opt1和0 pt2、標(biāo)題分別為“字體、“大小。存盤(pán)時(shí)必須存放在考生文件

16、夾下，工程文件名為 sjt1.vbp ，窗體文件名為 sjt1.frm 。解題思路：?jiǎn)?dòng)Visual Basic 系統(tǒng)，創(chuàng)立一個(gè) Forml窗體。在該窗體上畫(huà)一個(gè)框架控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為Framel。在框架畫(huà)二個(gè)單項(xiàng)選擇按鈕控件，通過(guò)其屬性窗口將名稱(chēng)分別為Opt1和0pt2、標(biāo)題Caption屬性分別設(shè)為"字體'和"大小"。激活 Forml窗體，通過(guò)其屬性窗口將標(biāo)題 Caption屬性設(shè)為"框架"。參考文件：參考答案 sjt1.vbp 、 sjt1.frm 、 sjt1.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001

17、中，然后翻開(kāi) sjt1.vbp 文件并運(yùn)行。*2考生文件夾下的工程文件 sjt2.vbp 中有一個(gè)由直線(xiàn) Line1 、 Line2 和 Line3 組成的三角形，直線(xiàn) Line1 、 Line2 和 Line3 的坐標(biāo)值如下所示：名稱(chēng)X1Y1 X2 Y2Line160012001600 300Line260012002600 1200Line316003002600 1200要求畫(huà)一條直線(xiàn)Line4 以構(gòu)成三角形的高，且該直線(xiàn)的初始狀態(tài)為不可見(jiàn)。再畫(huà)二個(gè)命令按鈕，名稱(chēng)分別是 Cmd1 Cmd2標(biāo)題分別為"顯示高"、 隱藏高，如下列圖。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程使得在運(yùn)行時(shí)，單擊

18、“顯示高按鈕，那么顯示三角 形的高；單擊“隱藏高按鈕，那么隱藏三角形的高。要求程序中不得使用變量，每個(gè)事件過(guò)程只能寫(xiě)一條語(yǔ)句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt2.vbp ，相應(yīng)的窗體文 件名為 sjt2.frm 。由于所提供的窗體控件不完整， 需在該窗體上畫(huà)一根直線(xiàn)控件， 通過(guò)其屬性窗口將名稱(chēng) 設(shè)為L(zhǎng)ine4，點(diǎn)X1屬性設(shè)為1600 ,點(diǎn)X2屬性分別設(shè)為1600,點(diǎn)Y1屬性設(shè)為300,點(diǎn)丫2屬性設(shè)為 1200， Visible 屬性設(shè)為 False 。畫(huà)二個(gè)命令按鈕控件， 通過(guò)其屬

19、性窗口將名稱(chēng)分別設(shè)為 Cmd1 和Cmd2標(biāo)題Caption屬性分別設(shè)為“顯示高'和“隱藏高"。單擊“顯示高按鈕即運(yùn)行 Click 事件過(guò)程，在該 Private Sub Cmd1_Click() 事件 過(guò)程中參加語(yǔ)句： Private Sub Cmd1_Click()Line4.Visible = TrueEnd Sub單擊“隱藏高按鈕即運(yùn)行 Click 事件過(guò)程，在該 Private Sub Cmd2_Click() 事件 過(guò)程中參加語(yǔ)句：Private Sub Cmd2_Click()Line4.Visible = FalseEnd Sub參考文件：請(qǐng)把這些文件復(fù)制到

20、c:wexam269900012. 簡(jiǎn)單應(yīng)用 2小題，每題 20分，計(jì) 40分注意：下面出現(xiàn)的“考生文件夾均為參考答案 sjt2.vbp 、 sjt2.frm 、 sjt2.vbw 中，然后翻開(kāi) sjt2.vbp 文件并運(yùn)行。%USER%*1在考生文件夾下有一個(gè)工程文件sjt3.vbp ，在Forml的窗體中有一個(gè)文本框，二個(gè)命令按鈕和一個(gè)計(jì)時(shí)器。程序的功能是在運(yùn)行時(shí)，單擊“開(kāi)始計(jì) 數(shù)按鈕，就開(kāi)始計(jì)數(shù)，每隔 1秒，文本框中的數(shù)加 1 ；單擊“停止計(jì)數(shù) 按鈕，那么停止計(jì)數(shù)如下列圖。要求：修改適當(dāng)?shù)目丶膶傩?，并去?程序中的注釋符，把程序中的？改為正確的容，使其實(shí)現(xiàn)上述功能，但 不能修改程序中的

21、其他局部。最后把修改后的文件以原來(lái)的文件名存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt3.vbp ，相應(yīng)的窗體文 件名為 sjt3.frm 。由于所提供的窗體控件屬性不完整，通過(guò)屬性窗口將計(jì)時(shí)器的Enabled屬性設(shè)為False ,Interval 屬性設(shè)為 1000。由于所提供的窗體程序不完整， 在命令按鈕的 Private Sub C1_Click(Index As Integer) 事件過(guò)程中，有二處地方需要修改。1) 將語(yǔ)句'Select Case ?改為Select Case Index2) 將語(yǔ)句'Case ?改為C

22、ase 0由于所提供的窗體程序不完整，在計(jì)時(shí)器的 Private Sub Timer1_Timer() 事件過(guò)程中，有一 處地方需要修改。1) 將語(yǔ)句'Text1.Text = Text1.Text ?改為T(mén)ext1.Text = Text1.Text + 1參考文件：參考答案 sjt3.vbp 、 sjt3.frm 、sjt3.vbw請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt3.vbp 文件并運(yùn)行。*2出租車(chē)行駛不超過(guò) 4公里時(shí)一律收費(fèi) 10元。超過(guò) 4公里時(shí)分段處理，具 體處理方式為： 1 5公里以每公里加收 1.2 元， 15公里以上每公里收 1.8

23、 元。在考生文件夾下有一個(gè)工程文件 sjt4.vbp 。程序的功能是：?jiǎn)螕簟拜斎?按鈕，將彈出一個(gè)輸入對(duì)話(huà)框，接收出租車(chē)行駛的里程數(shù)；單擊“計(jì)算 按鈕，那么可根據(jù)輸入的里程數(shù)計(jì)算應(yīng)付的出租車(chē)費(fèi)，并將計(jì)算結(jié)果顯示在 名稱(chēng)為 Text1 的文本框。在窗體文件中已經(jīng)給出了全部控件如下列圖，但程序不完整，要求去 掉程序中的注釋符，把程序中的 ？改為正確的容。不得修改已經(jīng)存在的容和控件屬性，最后將修改后的文件按原文件名 存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt4.vbp ，相應(yīng)的窗體文 件名為 sjt4.frm 。由于所提供的窗體程序不完整，在 Pr

24、ivate Sub Command2_Click() 事件過(guò)程中，有五處 地方需要修改。1) 將語(yǔ)句'Select Case ?改為Select Case s2) 將語(yǔ)句'?改為f = 103) 將語(yǔ)句'f = 10 + ?改為f = 10 + (s - 4) * 1.24) 將語(yǔ)句'?改為Case Else5) 將語(yǔ)句'f = 10 + ? + (s - 15) * 1.8改為f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8參考文件： 參考答案 sjt4.vbp 、 sjt4.frm 、 sjt4.vbw 請(qǐng)把這些文件復(fù)

25、制到 c:wexam26990001 中，然后翻開(kāi) sjt4.vbp 文件并運(yùn)行。*3. 綜合應(yīng)用 1小題，計(jì) 30分 注意：下面出現(xiàn)的“考生文件夾均為 %USER%在考生文件夾下有一個(gè)工程文件 sjt5.vbp ，窗體上有二個(gè)標(biāo)題分別是“讀數(shù) 據(jù)和“統(tǒng)計(jì)的命令按鈕。請(qǐng)畫(huà)二個(gè)標(biāo)簽，名稱(chēng)分別為L(zhǎng)abel1 和 Label2 ，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是和“它出現(xiàn)的次數(shù)為；再畫(huà)二個(gè)名稱(chēng)分別為T(mén)extl和Text2，初始值為空的文本框，如下列圖。程序功能如下：1 單擊“讀數(shù)據(jù)按鈕，那么將考生文件夾下 in5.dat 文件的容讀到變量 s中此過(guò)程已給出；2 單擊“統(tǒng)計(jì)按鈕，那么自動(dòng)統(tǒng)計(jì) in5.

26、dat 文件中所含各字母不區(qū)分大小 寫(xiě)出現(xiàn)的次數(shù)，并將出現(xiàn)次數(shù)最多的字母顯示在 Text1 文本框，它所 出現(xiàn)的次數(shù)顯示在 Text2 文本框。讀數(shù)據(jù)按鈕的 Click 事件過(guò)程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)按鈕編寫(xiě)適當(dāng)?shù)?事件過(guò)程實(shí)現(xiàn)上述功能?？忌坏眯薷拇绑w文件中已經(jīng)存在的控件和程序，在完畢程序運(yùn)行之前， 必須進(jìn)展統(tǒng)計(jì)，且必須用窗體右上角的關(guān)閉按鈕完畢程序，否那么無(wú)成績(jī)。 最后，程序按原文件名存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt5.vbp ，相應(yīng)的窗體文 件名為 sjt5.frm 。由于所提供的窗體控件不完整，需畫(huà)二個(gè)標(biāo)簽控件，通過(guò)其屬性窗口

27、將名稱(chēng)分別設(shè)為 Label1 和 Label2 ，標(biāo)題 Caption 屬性分別設(shè)為“出現(xiàn)次數(shù)最多的字母是和“它出現(xiàn)的 次數(shù)為"。畫(huà)二個(gè)文本框控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為T(mén)extl和Text2，初始容Text屬性均設(shè)為空。由于所提供的窗體程序不完整，需在“統(tǒng)計(jì)命令按鈕的 Click 事件過(guò)程中參加語(yǔ)句： Private Sub Command2_Click()' 考生編寫(xiě)Dim a(26) As Integern = Len(s)For i = 1 To nc = UCase(Mid(s, i, 1)If c >= "A" And c <

28、= "Z" Thenj = Asc(c) - Asc("A") + 1a(j) = a(j) + 1End IfNext iMax = a(1) t = Chr(Asc("A") For i = 2 To 26 If a(i) > Max ThenMax = a(i)t = Chr(Asc("A") + i - 1)End IfNext iText1.Text = tText2.Text = MaxEnd Sub參考文件：參考答案 sjt5.vbp 、 sjt5.frm 、 sjt5.vbwout5.dat請(qǐng)

29、把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt5.vbp 文件并運(yùn)行。第51套：1. 根本操作 2小題，每題 15分，共計(jì) 30分注意：下面出現(xiàn)的“考生文件夾均為 %USER%*請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì) Visual Basic 應(yīng)用程序包括界面和代碼。1在名稱(chēng)為Forml，標(biāo)題為"測(cè)試"的窗體上畫(huà)一個(gè)名稱(chēng)為Framel、標(biāo)題為“字體"的框架。在框架畫(huà)二個(gè)單項(xiàng)選擇按鈕，其名稱(chēng)分別為Opt1和0 pt2、標(biāo)題分別為“隸書(shū)和“宋體。程序運(yùn)行后的窗體如下列圖。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為 sjt1.vbp ，窗體文件名 為 sjt

30、1.frm 。解題思路：?jiǎn)?dòng)Visual Basic 系統(tǒng)，創(chuàng)立一個(gè) Forml窗體。在該窗體上畫(huà)一個(gè)框架控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為 Framel,標(biāo)題Caption屬性設(shè)為“字體。在框架畫(huà)二個(gè)單項(xiàng)選擇按鈕控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Opt1 和Opt2，標(biāo)題Caption屬性分別設(shè)為“隸書(shū)'和“宋體。激活Forml窗體，通過(guò)其屬性窗口將標(biāo)題 Caption 屬性設(shè)為“測(cè)試。參考文件：參考答案 sjt1.vbp 、 sjt1.frm 、 sjt1.vbw請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中,然后翻開(kāi) sjt1.vbp 文件并運(yùn)行。*2在名稱(chēng)為Forml的窗體

31、上用名稱(chēng)為shapel的形狀控件畫(huà)一個(gè)圓，其直徑為1000 高、寬均為 1000 ；再畫(huà)二個(gè)命令按鈕,標(biāo)題分別是“垂直線(xiàn) 和“水平線(xiàn),名稱(chēng)分別為Command1、 Command,2 如下列圖。然后編寫(xiě)兩個(gè)命令按鈕的 Click 事件過(guò)程。程序運(yùn)行后,如果單擊“垂直線(xiàn)命令 按鈕,那么圓的部用垂直線(xiàn)填充；如果單擊“水平線(xiàn)命令按鈕,那么圓的部用水平線(xiàn)填充。程序中不得使用變量,每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在考生文件夾下,工程文件名為 sjt2.vbp ,窗體文件名為 sjt2.frm解題思路：?jiǎn)?dòng)Visual Basic 系統(tǒng)，創(chuàng)立一個(gè) Form1窗體。在該窗體上畫(huà)一個(gè)形狀控件,通過(guò)

32、其屬性窗口將名稱(chēng)設(shè)為 Shape1 ,高 Height 屬性設(shè) 為1000、寬Width屬性設(shè)為1000, Shape屬性設(shè)為3。畫(huà)二個(gè)命令按鈕控件，通過(guò)其屬性 窗口將名稱(chēng)分別設(shè)為 Command、1 Command2 標(biāo)題 Caption 屬性 分別設(shè)為 “垂直線(xiàn)和 “水 平線(xiàn)。單擊“垂直線(xiàn)按鈕即運(yùn)行 Click 事件過(guò)程,在該 Click 事件過(guò)程中參加語(yǔ)句： Private Sub Command1_Click()Shape1.FillStyle = 3 End Sub 單擊“水平線(xiàn)按鈕即運(yùn)行 Click 事件過(guò)程，在該 Click 事件過(guò)程中參加語(yǔ)句： Private Sub Comm

33、and2_Click()Shape1.FillStyle = 2 End Sub參考文件：請(qǐng)把這些文件復(fù)制到 c:wexam269900012. 簡(jiǎn)單應(yīng)用 2小題，每題 20分，計(jì) 40分 注意：下面出現(xiàn)的“考生文件夾均為參考答案 sjt2.vbp 、 sjt2.frm 、 sjt2.vbw 中，然后翻開(kāi) sjt2.vbp 文件并運(yùn)行。%USER%*1在考生文件夾下有一個(gè)工程文件sjt3.vbp ，請(qǐng)?jiān)诿Q(chēng)為Forml的窗體上畫(huà)一個(gè)名稱(chēng)為 Text1 的文本框和一個(gè)名稱(chēng)為 C1 ，標(biāo)題為“轉(zhuǎn)換的命令按 鈕，如下列圖。在程序運(yùn)行時(shí)，單擊“轉(zhuǎn)換 按鈕，可以把 Text1 中的 大寫(xiě)字母轉(zhuǎn)換為小寫(xiě)，

34、把小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)。 窗體文件中已經(jīng)給出了 轉(zhuǎn)換按鈕的 Click 事件過(guò)程，但不完整，請(qǐng)去掉程序中的注釋符，把 程序中的 ？改為正確的容。不能修改程序中的其他局部。最后把修改后的文件按原文件名存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt3.vbp ，相應(yīng)的窗體文 件名為 sjt3.frm 。由于所提供的窗體控件不完整， 需在該窗體上畫(huà)一個(gè)文本框控件， 通過(guò)其屬性窗口將名 稱(chēng)設(shè)為T(mén)extl。畫(huà)一個(gè)命令按鈕控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為C1,標(biāo)題Caption屬性設(shè)為“轉(zhuǎn)換。由于所提供的窗體程序不完整，在命令按鈕的 Private Sub C1

35、_Click() 事件過(guò)程中，有 三處地方需要修改。1) 將語(yǔ)句'n% = Asc("a") - Asc( ? )改為n% = Asc("a") - Asc("A")2) 將語(yǔ)句'b$ = String(1, Asc(b$) ? )改為b$ = String(1, Asc(b$) + 32)3) 將語(yǔ)句'Text1.Text = ?改為T(mén)ext1.Text = a參考文件： 參考答案 sjt3.vbp 、 sjt3.frm 、 sjt3.vbw 請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi)

36、sjt3.vbp 文件并運(yùn)行。* 2在考生文件夾下有一個(gè)工程文件sjt4.vbp ，其功能是：1 單擊“讀數(shù)據(jù)命令按鈕，把考生文件夾下 in4.dat 文件中已按升序方 式排列的60個(gè)數(shù)讀入數(shù)組A,并顯示在Textl中；2 單擊“輸入按鈕，彈出一個(gè)輸入對(duì)話(huà)框，接收用戶(hù)輸入的任意一個(gè)整數(shù)；3 丨單擊“插入"按鈕，將輸入的數(shù)插入A數(shù)組中適宜的位置，使其仍保持A 數(shù)組的升序排列，最后將 A數(shù)組的容重新顯示在 Textl中。在窗體文件中已經(jīng)給出了全部控件如下列圖和程序，但程序不完整， 要求去掉程序中的注釋符，把程序中的 ？改為正確的容。 本程序只考 慮插入一個(gè)整數(shù)的情況。不得修改已經(jīng)存在的容

37、和控件屬性，最后將修改后的文件按原文件名 存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt4.vbp ，相應(yīng)的窗體文 件名為 sjt4.frm 。由于所提供的窗體程序不完整，在“插入按鈕的 Private Sub Command3_Click() 事件 過(guò)程中，有五處地方需要修改。1) 將語(yǔ)句'If num < a(i) Then ?改為If num < a(i) Then Exit For2) 將語(yǔ)句'For j = 60 To i ?改為For j = 60 To i Step -13) 將語(yǔ)句'a(j +

38、1) = ?改為a(j + 1) = a(j)4) 將語(yǔ)句'? = num改為a(i) = num5) 將語(yǔ)句'For k = 1 To ?改為For k = 1 To 61參考文件： 參考答案 sjt4.vbp 、 sjt4.frm 、 sjt4.vbw 請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中，然后翻開(kāi) sjt4.vbp 文件并運(yùn)行。*3. 綜合應(yīng)用 1小題，計(jì) 30分 注意：下面出現(xiàn)的“考生文件夾均為 %USER%在考生文件夾下有一個(gè)工程文件 sjt5.vbp ， 其窗體上有二個(gè)標(biāo)題分別為“ 讀數(shù)據(jù)和“統(tǒng)計(jì)的命令按鈕。請(qǐng)畫(huà)二個(gè)標(biāo)簽，其名稱(chēng)分別是 Label1

39、 和 Label2 ， 標(biāo)題分別為“單詞的平均長(zhǎng)度為和“最長(zhǎng)單詞的長(zhǎng)度為；再畫(huà)二個(gè)名稱(chēng)分別為 Textl和Text2，初始容為空的文本框，如下列圖。程 序功能如下：1 如果單擊“讀數(shù)據(jù)命令按鈕，那么將考生文件夾下 in5.dat 文件的容 讀到變量s中此過(guò)程已給出；2丨如果單擊"統(tǒng)計(jì)"按鈕，那么自動(dòng)統(tǒng)計(jì)變量ss中僅含有字母和空格，而空格是用來(lái)分隔不同單詞的中每個(gè)單詞的長(zhǎng)度，并將所有單詞的平均 長(zhǎng)度四舍五入取整顯示在 Text1 文本框，將最長(zhǎng)單詞的長(zhǎng)度顯示 在Text2文本框?！白x數(shù)據(jù)命令按鈕的 Click 事件過(guò)程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)命令按鈕編 寫(xiě)適當(dāng)?shù)氖录^(guò)程，實(shí)現(xiàn)上述

40、功能?？忌坏眯薷拇绑w文件中已經(jīng)存在的控件和程序，在完畢程序之前，必須進(jìn)展統(tǒng)計(jì)， 且必須通過(guò)單擊窗體右上角的“關(guān)閉按鈕完畢程序，否 那么無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。解題思路：?jiǎn)?dòng) Visual Basic 系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件 sjt5.vbp ，相應(yīng)的窗體文 件名為 sjt5.frm 。由于所提供的窗體控件不完整，需畫(huà)二個(gè)標(biāo)簽控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為L(zhǎng)abell和Label2，標(biāo)題Caption屬性分別設(shè)為"單詞的平均長(zhǎng)度為"和"最長(zhǎng)單詞的長(zhǎng) 度為"。畫(huà)二個(gè)文本框控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為T(mén)extl和Text2

41、，初始容Text屬性均設(shè)為空。由于所提供的窗體程序不完整，需在“統(tǒng)計(jì)命令按鈕的 Click 事件過(guò)程中參加語(yǔ)句：Private Sub Command2_Click()' 需考生編寫(xiě)n = Len(s): t = ""Dim word_max As Integer, word_num As Integer, word_len As IntegerFor i = 1 To nc = Mid(s, i, 1)If c <> " " Thent = t + cElseword_len = word_len + Len(t)word_num

42、= word_num + 1If Len(t) > word_max Thenword_max = Len(t)End Ift = ""End IfNext iText1.Text = CInt(word_len + Len(t) / (word_num + 1)If Len(t) > word_max Thenword_max = Len(t)End IfText2.Text = word_maxEnd Sub參考文件： 參考答案 sjt5.vbp 、 sjt5.frm 、 sjt5.vbw out5.dat請(qǐng)把這些文件復(fù)制到 c:wexam26990001

43、中，然后翻開(kāi) sjt5.vbp 文件并運(yùn)行。 第52套：1. 根本操作 2小題，每題 15分，共計(jì) 30分 注意：下面出現(xiàn)的“考生文件夾均為 %USER%*請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì) Visual Basic 應(yīng)用程序包括界面和代碼。1在名稱(chēng)為Forml的窗體上用名稱(chēng)為shapel的形狀控件畫(huà)一個(gè)長(zhǎng)、寬都為1200的正方形。請(qǐng)?jiān)O(shè)置適當(dāng)?shù)膶傩詽M(mǎn)足以下要求：1 窗體的標(biāo)題為“正方形，窗體的最小化按鈕不可用；2 正方形的邊框?yàn)樘摼€(xiàn)線(xiàn)型不限。運(yùn)行后的窗體如下列圖。存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為 sjt1.vbp ，窗體文件名 為 sjt1.frm 。解題思路：?jiǎn)?dòng)Visual Basic

44、系統(tǒng)，創(chuàng)立一個(gè) Forml窗體。在該窗體上畫(huà)一個(gè)形狀控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為shapel，高Height屬性設(shè)為1200，寬Width屬性設(shè)為1200, Borderstyle屬性設(shè)為2。激活Form1窗體，通過(guò)其屬性 窗口將標(biāo)題 Caption 屬性設(shè)為“正方形，最小化按鈕 MinButton 屬性設(shè)為 False 。參考文件：參考答案 sjt1.vbp 、 sjt1.frm 、 sjt1.vbw請(qǐng)把這些文件復(fù)制到 c:wexam26990001 中,然后翻開(kāi) sjt1.vbp 文件并運(yùn)行。*2在名稱(chēng)為Forml、標(biāo)題為"標(biāo)簽"的窗體上，畫(huà)一個(gè)名稱(chēng)為L(zhǎng)abell，并

45、可自動(dòng)調(diào)整大小的標(biāo)簽， 其標(biāo)題為“計(jì)算機(jī)等級(jí)考試，字體大小為三號(hào) 字；再畫(huà)二個(gè)命令按鈕， 標(biāo)題分別是“宋體和“黑體，名稱(chēng)分別為 Comma nd1 、Comma nd。如下列圖。要求： 編寫(xiě)兩個(gè)命令按鈕的 Click 事件過(guò)程。 程序運(yùn)行后，如果單擊“宋體 命令按鈕，那么標(biāo)簽容顯示為宋體字體；如果單擊“黑體按鈕，那么標(biāo) 簽容顯示為黑體字體。程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句。存盤(pán)時(shí)必須存放在 考生文件夾下，工程文件名為 sjt2.vbp ，窗體文件名為 sjt2.frm解題思路：?jiǎn)?dòng)Visual Basic 系統(tǒng)，創(chuàng)立一個(gè) Forml窗體。在該窗體上畫(huà)一個(gè)標(biāo)簽控件，通過(guò)其屬性窗口將名

46、稱(chēng)設(shè)為 Label1 ， AutoSize 屬性設(shè)為 True，標(biāo)題Caption屬性設(shè)為"計(jì)算機(jī)等級(jí)考試"，點(diǎn)擊Font屬性在彈出的字體對(duì)話(huà)框中將大小設(shè)為“三號(hào)。畫(huà)二個(gè)命令按鈕控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Command、1Command，2 標(biāo)題 Caption 屬性分別設(shè)為“宋體"、“黑體"。單擊“宋體"按鈕即運(yùn)行 Click 事件過(guò)程，在該 Click 事件過(guò)程中參加語(yǔ)句：Private Sub Command1_Click()Label1.FontName = " 宋體 "End Sub單擊“黑體"按

47、鈕即運(yùn)行 Click 事件過(guò)程，在該 Click 事件過(guò)程中參加語(yǔ)句：Private Sub Command2_Click()Label1.FontName = " 黑體 "End Sub參考文件：請(qǐng)把這些文件復(fù)制到 c:wexam269900012. 簡(jiǎn)單應(yīng)用 2小題，每題 20分，計(jì) 40分 注意：下面出現(xiàn)的“考生文件夾"均為參考答案 sjt2.vbp 、 sjt2.frm 、 sjt2.vbw 中，然后翻開(kāi) sjt2.vbp 文件并運(yùn)行。%USER%*1 在考生文件夾下有一個(gè)工程文件 sjt3.vbp ，其窗體上有一個(gè)名稱(chēng)為 Label1 的控件數(shù)組，含三個(gè)

48、標(biāo)簽，標(biāo)題分別是“開(kāi)始時(shí)間"、“完畢時(shí)間"和“ 通話(huà)費(fèi)用"；有一個(gè)名稱(chēng)為 Text1 的控件數(shù)組，含三個(gè)初始值為空的文本 框；此外還有二個(gè)名稱(chēng)分別為 Cmd和Cmd2勺命令按鈕，標(biāo)題分別是"通話(huà) 開(kāi)始"和“通話(huà)完畢"。其過(guò)屬性窗口對(duì)“通話(huà)完畢"命令按鈕的初 始狀態(tài)設(shè)置為禁用，如下列圖。該程序的功能是計(jì)算公用計(jì)時(shí)收費(fèi)。 計(jì)時(shí)收費(fèi)標(biāo)準(zhǔn)為：通話(huà)時(shí)間在 3分鐘以時(shí)，收費(fèi) 0.5元； 3 分鐘以上時(shí)， 每超過(guò) 1分鐘加收 0.15 元，缺乏 1分鐘按 1分鐘計(jì)算。程序執(zhí)行的操作如下：1 丨如果單擊“通話(huà)開(kāi)始按鈕， 那么在“開(kāi)始時(shí)間右側(cè)

49、的文本框中顯示開(kāi)始時(shí)間， 且“通話(huà)完畢'命令按鈕變?yōu)榭捎脿顟B(tài)，“通話(huà)開(kāi)始'命 令按鈕不可用；2 如果單擊“通話(huà)完畢"按鈕,束時(shí)間，同時(shí)計(jì)算通話(huà)費(fèi)用,那么“完畢時(shí)間"右側(cè)的文本框中顯示結(jié) 并將其顯示在“通話(huà)費(fèi)用右側(cè)的文本框中，“通話(huà)開(kāi)始命令按鈕變?yōu)榭捎脿顟B(tài),“通話(huà)完畢'命令按鈕不可用。在窗體文件中已經(jīng)給出了全部控件如下列圖和程序，但程序不完整， 要求去掉程序中的注釋符，把 ？改為正確的容，以實(shí)現(xiàn)上述功能。不得修改已經(jīng)存在的容和控件屬性，最后將修改后的文件按原文件名 存盤(pán)。解題思路：?jiǎn)?dòng)Visual Basic系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件sjt

50、3.vbp ，相應(yīng)的窗體文件名為sjt3.frm 。由于所提供的窗體控件不完整，通過(guò)“通話(huà)完畢的屬性窗口將En abled屬性設(shè)為False。由于所提供的窗體程序不完整，在“通話(huà)開(kāi)始"按鈕的 Private Sub Cmd1_Click()事件 過(guò)程中，有一處地方需要修改。1)將語(yǔ)句'? = Str(Time()改為T(mén)ext1(O).Text = Str(Time()在“通話(huà)完畢"按鈕的 Private Sub Cmd2_Click()事件過(guò)程中，有三處地方需要修改。1) 將語(yǔ)句's = ? + (m - 3) * 0.15改為s = s + (m - 3)

51、 * 0.152) 將語(yǔ)句'? = True改為Cmd1.E nabled = True3) 將語(yǔ)句'? = False改為Cmd2.E nabled = False參考文件：參考答案 sjt3.vbp 、sjt3.frm 、sjt3.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后翻開(kāi)sjt3.vbp文件并運(yùn)行。*2在考生文件夾下有一個(gè)工程文件sjt4.vbp ，文件in4.txt中有5組數(shù)據(jù)，每組10個(gè)，依次代表語(yǔ)文、英語(yǔ)、數(shù)學(xué)、物理、化學(xué)這5門(mén)課程10個(gè)人的成績(jī)。程序運(yùn)行時(shí)，單擊“讀入數(shù)據(jù)按鈕，可從文件in4.txt中讀入數(shù)據(jù)放到數(shù)組a中。單擊“計(jì)算按鈕，那

52、么計(jì)算5門(mén)課程的平均分平均分取整，并依次放入Text1文本框數(shù)組中。單擊“顯示圖形'按鈕，那么顯示平 均分的直方圖，如下列圖。窗體文件中已經(jīng)有了全部控件，但程序不完整 ，要求去掉程序中的注釋符，把程序中的？改為正確的容。不能修改程序的其他局部和控件屬性。最后把修改后的文件按原文件名存 盤(pán)。解題思路：?jiǎn)?dòng)Visual Basic系統(tǒng)，翻開(kāi)考生文件夾下需編輯的工程文件sjt4.vbp ，并翻開(kāi)窗體文件 sjt4.frm 。由于所提供的窗體控件不完整，在"讀入數(shù)據(jù)"按鈕的Private Sub Command1_Click()事件過(guò)程中，有一處地方需要修改。1)將語(yǔ)句'Ope n App.Path & "i n5.txt" For ? As #1改為Ope n App.Path & "in 5.txt" For In put As #1在計(jì)算按鈕的Private Sub Command2_Click()事件過(guò)程中，有二處地方需要修改。1)將語(yǔ)句's(i) = ?改為s(i) = a(i, j) + s(i)2) 將語(yǔ)句 '? = CInt(s(i) / 10) 改為s(i) = CInt(s(i) / 10)在"