vb套題——矩陣

1、第38套：1. 基本操作（2小題，每小題15分，共計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為 Form1的窗體上畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)abel1，然后通過屬性窗 口設(shè)置窗體和標(biāo)簽的屬性，實(shí)現(xiàn)如下功能： 1）窗體標(biāo)題為“設(shè)置標(biāo)簽屬性” 2）標(biāo)簽的位置為：距窗體左邊界500，距窗體頂邊界300 3）標(biāo)簽的標(biāo)題為“等級(jí)考試” 4）標(biāo)簽可以根據(jù)標(biāo)題的內(nèi)容自動(dòng)調(diào)整其大小 5）標(biāo)簽帶有邊框 程序的運(yùn)行情況如圖所示。 要求： 不編寫任何代碼。 *注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為

2、sjt1.vbp，窗體文件 名為sjt1.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 該窗體上畫一個(gè)標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為L(zhǎng)abel1，距窗體左邊(Left屬性)設(shè)為500，距窗體頂部（Top屬性）設(shè)為300，標(biāo)題（Caption屬性）設(shè)為“等級(jí)考試”，標(biāo)簽大小自動(dòng)調(diào)整（AutoSize屬性）設(shè)為True，BorderStyle屬性設(shè)為1。激活Form1窗體，通過其屬性窗口將標(biāo)題（Caption屬性）設(shè)為“設(shè)置標(biāo)簽屬性”。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請(qǐng)把這些文件復(fù)

3、制到c:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。* （2）在名稱為 Form1的窗體上畫一個(gè)命令按鈕和一個(gè)水平滾動(dòng)條，其名稱分別 為Command1和HScroll1，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊命 令按鈕，則按如下要求設(shè)置水平滾動(dòng)條的屬性： Max = 窗體寬度 Min = 0 LargeChange = 50 SmallChange = 10 而如果移動(dòng)水平滾動(dòng)條的滾動(dòng)框，則在窗體上顯示滾動(dòng)框的位置值。 程序的運(yùn)行情況如圖所示。 要求： 不得使用任何變量。 *注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件 名為sjt2.f

4、rm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)命令按鈕控件，通過其屬性窗口將名稱設(shè)為Command1。畫一個(gè)水平滾動(dòng)條控件，通過其屬性窗口將名稱設(shè)為HScroll1。 單擊命令按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click() HScroll1.Max = Form1.Width HScroll1.Min = 0 HScroll1.LargeChange = 50 HScroll1.SmallChange = 10End Sub 移動(dòng)水平滾動(dòng)條的滾動(dòng)框（即運(yùn)行Change事

5、件過程），在該Change事件過程中加入語句：Private Sub HScroll1_Change() Print Me.HScroll1.ValueEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。2. 簡(jiǎn)單應(yīng)用（2小題，每題20分，計(jì)40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm。 其功能是產(chǎn)生20個(gè)01000的隨機(jī)整數(shù)，放入一個(gè)

6、數(shù)組中，然后輸出這20 個(gè)整數(shù)的平均值。程序運(yùn)行后，單擊命令按鈕（名稱為Command1，標(biāo)題為 “輸出平均值”），即可求出其平均值，并在窗體上顯示出來（如圖所示 ）。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。 要求： 去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功 能，但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存 盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。 由于所提供的窗體程序不完整，在“輸出平均值”按鈕的Private Sub Command1_Click()

7、事件過程中，有四處地方需要修改。1) 將語句 'arrN(i) = ? 改為 arrN(i) = Int(Rnd * 1000)2) 將語句 'Sum = ? 改為 Sum = 03) 將語句 'Sum = ? 改為 Sum = Sum + arrN(i)4) 將語句 'Aver = ? 改為 Aver = Sum / 20參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運(yùn)行。* （2）在考生文件夾下有一個(gè)工程文件sj

8、t4.vbp，相應(yīng)的窗體文件為sjt4.frm， 在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即 可計(jì)算出 0200范圍內(nèi)能被3整除的所有整數(shù)的和，并在文本框中顯示出 來。在窗體的代碼窗口中， 已給出了部分程序，其中計(jì)算能被3整除的整 數(shù)的和的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。 要求： 請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在Function Fun()和End Function之間 填入你編寫的若干語句。最后把修改后的文件按原文件名存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。

9、由于提供的Fun()函數(shù)不完整，需添加語句，具體內(nèi)容：Function Fun() Sum = 0 For i = 0 To 200 If i Mod 3 = 0 Then Sum = Sum + i End If Next i Fun = SumEnd Function參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw、outtxt.txt請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運(yùn)行。*3. 綜合應(yīng)用（1小題，計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% 在考生文件夾下有一個(gè)

10、工程文件sjt5.vbp，界面如圖所示，其功能如下： 1）單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下文件in5.dat中的12組整數(shù)（ 其中每組含有10個(gè)數(shù)，共計(jì)120個(gè)整數(shù)）讀到數(shù)組a 中； 2）單擊“計(jì)算”按鈕，則對(duì)每組數(shù)求平均值，并將所求各組數(shù)的平均值截 尾取整后存入s 數(shù)組中； 3）單擊“顯示”按鈕，則將所求各組數(shù)的平均值顯示在文本框Text1中； 4）單擊“存盤”按鈕則把計(jì)算結(jié)果存盤。 在給出的窗體文件中已經(jīng)有了全部控件，且“讀數(shù)據(jù)”、“顯示”和“存 盤”按鈕的Click事件過程已經(jīng)給出，請(qǐng)為“計(jì)算”按鈕編寫適當(dāng)?shù)氖录^ 程以實(shí)現(xiàn)上述功能。 注意： 不得修改已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之

11、前，必須用“存盤”按鈕 存儲(chǔ)計(jì)算結(jié)果，否則無成績(jī)。最后，程序按原文件名存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 由于所提供的窗體程序不完整，需添加事件過程。 單擊“計(jì)算”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Command2_Click()'考生編寫 For i = 1 To 12 Sum = a(i, 1) For j = 2 To 10 Sum = Sum + a(i, j) Next j s(i) = Int(Sum / 10)

12、Next iEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運(yùn)行。第41套：1. 基本操作（2小題，每小題15分，共計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為Form1的窗體上畫一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，標(biāo)簽的長(zhǎng)和高分別 為2000、300，有邊框，并利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使其居中顯示 “等級(jí)考試

13、”，并使標(biāo)簽的外觀如圖所示。運(yùn)行后的窗體見下圖。 注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件 名為sjt1.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為L(zhǎng)abel1，高（Min屬性）設(shè)為300，寬（Width屬性）設(shè)為2000，BorderStyle屬性設(shè)為1，對(duì)齊格式（Alignment屬性）設(shè)為2，標(biāo)題（Caption屬性）設(shè)為“等級(jí)考試”。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請(qǐng)把這些文件復(fù)制到c

14、:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。* （2）在名稱為Form1的窗體上畫一個(gè)名稱為Image1的圖像框，有邊框，并可以 自動(dòng)調(diào)整裝入圖片的大小以適應(yīng)圖像框的尺寸； 再畫三個(gè)命令按鈕，名 稱分別為Command1、Command2、Command3，標(biāo)題分別為“紅桃”、 “黑 桃”、“清除”。在考生目錄下有二個(gè)圖標(biāo)文件，其名稱分別為“ Misc34.ico”和“Misc37.ico”。程序運(yùn)行時(shí)，單擊“紅桃”按鈕，則 在圖像框中顯示紅桃圖案（即Misc34.ico文件，如圖所示）；單擊“黑 桃”按鈕，則在圖像框中顯示黑桃圖案（即Misc37.ico文件）；單擊“

15、 清除”按鈕則清除圖像框中的圖案。請(qǐng)編寫相應(yīng)控件的Click事件過程， 實(shí)現(xiàn)上述功能。 注意： 要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。存盤時(shí) 必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為 sjt2.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)圖像框控件，通過其屬性窗口將名稱設(shè)為Image1，BorderStyle屬性設(shè)為1，Stretch屬性設(shè)為True。畫三個(gè)命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2、Command3，標(biāo)題（Caption屬性）分別設(shè)為“紅桃”、 “黑

16、桃”、“清除”。 單擊“紅桃”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path & "Misc34.ico")End Sub 單擊“黑桃”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Command2_Click() Image1.Picture = LoadPicture(App.Path & "Misc37.ico")End Sub 單擊“

17、清除”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Command3_Click() Image1.Picture = LoadPicture()End Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運(yùn)行。2. 簡(jiǎn)單應(yīng)用（2小題，每題20分，計(jì)40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾下有一個(gè)工程文件sjt3.vbp。窗體上有一個(gè)標(biāo)題為“得分” 的框架，在框架中

18、有一個(gè)名稱為Text1的文本框數(shù)組，含六個(gè)元素； 文本 框Text2用來輸入難度系數(shù)。程序運(yùn)行時(shí)，在左邊的六個(gè)文本框中輸入6個(gè) 得分，輸入難度系數(shù)后，單擊“計(jì)算分?jǐn)?shù)”按鈕，則可計(jì)算出最后得分并 在文本框Text3中顯示（如圖所示）。 計(jì)算方法： 去掉1個(gè)最高得分和1個(gè)最低得分，求剩下得分的平均分，再乘以3， 再 乘以難度系數(shù)。最后結(jié)果保留到第2位小數(shù)，不四舍五入。 注意： 文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注 釋符，把程序中的 ？ 改為正確的內(nèi)容?？忌荒苄薷某绦蛑械钠渌?分和各控件的屬性。最后把修改后的文件按原文件名存盤。解題思路： 啟動(dòng)Visual Basic系

19、統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。 由于所提供的窗體程序不完整，在“計(jì)算分?jǐn)?shù)”按鈕的Private Sub Command1_Click()事件過程中，有四處地方需要修改。1) 將語句 'For k = 1 To ? 改為 For k = 1 To 52) 將語句 'If ? < Val(Text1(k).Text) Then 改為 If a < Val(Text1(k).Text) Then3) 將語句 's = (s - a - b) / ? 改為 s = (s - a - b) / 44) 將語句

20、 's = ? * 3 * Val(Text2.Text) 改為 s = s * 3 * Val(Text2.Text)5) 將語句 '? = Int(s * 100) / 100 改為 Text3 = Int(s * 100) / 100參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運(yùn)行。* （2）在考生目錄下有一個(gè)工程文件sjt4.vbp。 窗體上的控件如圖所示。程序 運(yùn)行時(shí)，若選中“階乘”單選按鈕，則“1000”、“2000”

21、菜單項(xiàng)不可用 （如圖所示），若選中“累加”單選按鈕，則“10”、“12”菜單項(xiàng)不可 用。選中菜單中的一個(gè)菜單項(xiàng)后，單擊“計(jì)算”按鈕，則相應(yīng)的計(jì)算結(jié)果 顯示在文本框中（例如：選中“階乘”和“10”，則計(jì)算10！，選中“累 加”和“2000”，則計(jì)算1+2+3+ +2000）。 單擊“存盤”按鈕則把文 本框中的結(jié)果保存到考生目錄下的out4.dat文件中。 要求： 編寫“計(jì)算”按鈕的Click事件過程。 注意： 不得修改已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須用“存盤”按鈕 存儲(chǔ)計(jì)算結(jié)果，否則無成績(jī)。最后，程序按原文件名存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工

22、程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。 由于所提供的窗體程序不完整，需添加事件過程。 單擊“計(jì)算”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click() If Option1.Value = True Then s = 1 For k = 1 To n s = s * k Next End If If Option2.Value = True Then s = 0 For k = 1 To n s = s + k Next End If Text1 = sEnd Sub參考文件：c:wexam26990

23、001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運(yùn)行。*3. 綜合應(yīng)用（1小題，計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% 在考生目錄下有一個(gè)工程文件sjt5.vbp。其功能是產(chǎn)生并顯示一個(gè)數(shù)列的前 n項(xiàng)。 數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項(xiàng)是小于10的正整數(shù)，將此2數(shù)相乘， 若乘積<10，則以此乘積作為數(shù)列的第3項(xiàng)；若乘積>=10，則以乘積的十位數(shù) 為數(shù)列的第3項(xiàng)，以乘積的個(gè)位數(shù)為數(shù)列的第4項(xiàng)。再用數(shù)列的最后2項(xiàng)相乘， 用上述規(guī)則形成后面的

24、項(xiàng)，直至產(chǎn)生了第n項(xiàng)。窗體上部從左到右3個(gè)文本框 的名稱分別為：Text1、Text2、Text3，窗體下部的文本框名稱為Text4。程 序運(yùn)行時(shí)， 在Text1、Text2中輸入數(shù)列的前兩項(xiàng)，Text3中輸入要產(chǎn)生的項(xiàng) 數(shù)n， 單擊“計(jì)算”按鈕則產(chǎn)生此數(shù)列的前n項(xiàng)，并顯示在Text4中。如圖所 示。 已經(jīng)給出了全部控件，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。 注意： 不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 由

25、于所提供的窗體控件不完整，在“計(jì)算”按鈕的Private Sub Command1_Click()事件過程中，有四處地方需要修改。1) 將語句 'Text4 = Text4 & a & " " & ? 改為 Text4 = Text4 & a & " " & b2) 將語句 'a = ? 改為 a = b3) 將語句 'If k <= ? Then 改為 If k <= n Then4) 將語句 '? = d 改為 b = d參考文件：c:wexam2699000

26、1hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運(yùn)行。第46套：1. 基本操作（2小題，每小題15分，共計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為Form1 的窗體上畫一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為“設(shè)置速度”的 標(biāo)簽，通過屬性窗口把標(biāo)簽的大小設(shè)置為自動(dòng)調(diào)整。畫一個(gè)名稱為 HScroll1的水平滾動(dòng)條，通過屬性窗口設(shè)置適當(dāng)屬性使?jié)L動(dòng)條的最大值 為80 ，最小值為1，單擊滾動(dòng)條

27、兩端的箭頭時(shí)， 滾動(dòng)框移動(dòng)2，滾動(dòng)框 的初始值為30。程序運(yùn)行后的窗體如圖所示。 注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件 名為sjt1.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為L(zhǎng)abel1，標(biāo)題（Caption屬性）設(shè)為“設(shè)置速度”，AutoSize屬性設(shè)為True。畫一個(gè)水平滾動(dòng)條控件，通過其屬性窗口將名稱設(shè)為HScroll1，最大值（Max屬性）設(shè)為80，最小值（Min屬性）設(shè)為1，最小移動(dòng)（SmallChange屬性）設(shè)為2，初始值（Value屬性）設(shè)為30。參

28、考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。* （2）在名稱為Form1的窗體上畫一個(gè)名稱為Shape1的形狀控件，畫兩個(gè)名稱分 別為Command1、Command2，標(biāo)題分別為“圓形”、 “紅色邊框”的命令 按鈕。將窗體的標(biāo)題設(shè)置為“圖形控件”，如圖1所示。請(qǐng)編寫適當(dāng)?shù)氖?件過程使得在運(yùn)行時(shí)，單擊“圓形”按鈕將形狀控件設(shè)為圓形。單擊“ 紅色邊框”按鈕， 將形狀控件的邊框顏色設(shè)為紅色（&HFF&），如圖2所 示。 注意： 要

29、求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。 存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件 名為sjt2.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)形狀控件，通過其屬性窗口將名稱設(shè)為Shape1。畫一個(gè)目錄列表框控件，通過其屬性窗口將名稱設(shè)為Dir1。畫二個(gè)命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1和Command2，標(biāo)題（Caption屬性）分別設(shè)為“圓形”和“紅色邊框”。 單擊“圓形”按鈕（即運(yùn)行Click事件過程），在該P(yáng)rivate Sub Command1_Click()事件過程中加

30、入語句：Private Sub Command1_Click() Shape1.Shape = 3End Sub 單擊“紅色邊框”按鈕（即運(yùn)行Click事件過程），在該P(yáng)rivate Sub Command2_Click()事件過程中加入語句：Private Sub Command2_Click() Shape1.BorderColor = &HFF&End Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運(yùn)行。2. 簡(jiǎn)單應(yīng)用（

31、2小題，每題20分，計(jì)40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，含有名稱分別為Form1、Form2 的兩個(gè)窗體。 其中Form1上有兩個(gè)控件（圖像框和計(jì)時(shí)器）和一個(gè)菜單項(xiàng) “操作”，含有三個(gè)菜單命令（ 如圖 1所示 ）。Form2 上有一個(gè)名稱為 Command1、標(biāo)題為“返回”的命令按鈕（如圖 2所示）。要求當(dāng)單擊“窗 體2”菜單命令時(shí)，隱藏Form1，顯示Form2。 單擊“動(dòng)畫”菜單命令時(shí)， 使小汽車開始移動(dòng)，一旦移到窗口的右邊界時(shí)自動(dòng)跳到窗體的左邊界重新 移動(dòng)。單擊“退出”菜單命令時(shí)，結(jié)束程序運(yùn)行。請(qǐng)去掉程序中的注

32、釋符 ，把程序中的 ？改為正確的內(nèi)容。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt31.frm和sjt32.frm。 由于sjt31.frm所提供的窗體程序不完整，單擊子菜單命令，即運(yùn)行Private Sub mnuOper_Click(Index As Integer)事件過程，在該事件過程中，有二處地方需要修改。1) 將語句 'Select Case ? 改為 Select Case Index2) 將語句 'Timer1.En

33、abled =? 改為 Timer1.Enabled = True 在計(jì)時(shí)器的Private Sub Timer1_Timer()事件過程中，有二處地方需要修改。1) 將語句 'If Picture1.Left + Picture1.Width >= ? Then 改為 If Picture1.Left + Picture1.Width >= Width Then2) 將語句 'Picture1.Left = ? 改為 Picture1.Left = 0參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt31.frm、sjt31.fr

34、x、sjt32.frm、sjt3.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運(yùn)行。* （2）在考生文件夾下有一個(gè)工程文件sjt4.vbp。其窗體上已有部分控件，請(qǐng)按 照如圖 1所示添加框架和單選按鈕。 要求： 畫二個(gè)框架， 名稱分別為 Frame1、Frame2，在Frame1 中添加一個(gè)名為Option1的單選按鈕數(shù)組，含 二個(gè)單選鈕，標(biāo)題分別為“古典音樂”、“流行音樂”，在名稱為Frame2 中添加二個(gè)單選按鈕，名稱分別為Option2、Option3，標(biāo)題分別為“籃球 ”、“羽毛球”。剛運(yùn)行程序時(shí)，“古典音樂”和“籃球”單選鈕為選中 狀態(tài)。單

35、擊 “選擇” 按鈕，將把選中的單選鈕的標(biāo)題顯示在標(biāo)簽Label2 中，如圖 2所示。如果“音樂”或“體育”未被選中，相應(yīng)的單選鈕不可 選。 要求： 按照題目要求添加控件，去掉程序中的注釋符，把程序中的 ？ 改為正 確的內(nèi)容。 注意： 不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名 存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。 由于所提供的窗體控件不完整，需畫二個(gè)框架控件，通過其屬性窗口將名稱分別設(shè)為Frame1和Frame2。在Frame1中畫一個(gè)單選按鈕數(shù)組控件，含有二個(gè)單選鈕，通過

36、其屬性窗口將名稱設(shè)為Option1，標(biāo)題（Caption屬性）分別設(shè)為“古典音樂”和“流行音樂”。在Frame1中畫二個(gè)單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Option2和Option3，標(biāo)題（Caption屬性）分別設(shè)為“籃球”和“羽毛球”。 由于所提供的窗體程序不完整，在Private Sub Command1_Click()事件過程中，有三處地方需要修改。1) 將語句 'If ? = True Then 改為 If Option1(0).Value = True Then2) 將語句 'If ? = True Then 改為 If Option2.Value = T

37、rue Then3) 將語句 'Label2.Caption = ? 改為 Label2.Caption = s參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運(yùn)行。*3. 綜合應(yīng)用（1小題，計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% 在考生文件夾中有一個(gè)工程文件sjt5.vbp，其功能是：找出矩陣元素的最大 值，并求出矩陣對(duì)角線元素之和，窗體外觀如圖所示。程序運(yùn)行時(shí)，矩陣數(shù) 據(jù)被放入二維數(shù)組a 中。當(dāng)單擊“找矩陣元素最大值”

38、命令按鈕時(shí)，找出矩 陣中最大的數(shù)，并顯示在標(biāo)簽Label3中。當(dāng)單擊“對(duì)角線元素之和”命令按 鈕時(shí)，計(jì)算矩陣主對(duì)角線元素之和，并顯示在標(biāo)簽Label4中。文件中已給出 部分程序，請(qǐng)編寫“找矩陣元素最大值”及“對(duì)角線元素之和”兩個(gè)命令按 鈕的事件過程中的部分程序代碼。 注意： 不得修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存 盤。程序調(diào)試通過后，兩個(gè)命令按鈕的事件過程必須至少各執(zhí)行一次。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 由于所提供的窗體程序不完整，需在“找矩陣元素最大值”命令按鈕的

39、Click事件過程中加入語句：Private Sub Command1_Click() '=考生編寫程序開始= Max = a(1, 1) For i = 1 To 4 For j = 1 To 4 If a(i, j) > Max Then Max = a(i, j) End If Next j Next i Label3.Caption = Max '=考生編寫程序結(jié)束= '不得修改以下部分 save Label3End Sub 在“對(duì)角線元素之和”命令按鈕的Click事件過程中加入語句：Private Sub Command2_Click() '=考

40、生編寫程序開始= Sum = 0 For i = 1 To 4 Sum = Sum + a(i, i) Next i Label4.Caption = Sum '=考生編寫程序結(jié)束= '不得修改以下部分 save Label4End Sub參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運(yùn)行。第67套：1. 基本操作（2小題，每小題15分，共計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* 請(qǐng)根據(jù)以下各小

41、題的要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為 Form1的窗體上畫一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為“滾動(dòng)條控件”的 標(biāo)簽，一個(gè)名稱為 HScroll1 的水平滾動(dòng)條。請(qǐng)通過屬性窗口設(shè)置屬性使 水平滾動(dòng)條取值范圍的最小值為1，最大值為100，滾動(dòng)條的寬度為3000， 高度為300，滾動(dòng)塊的初始位置為20。程序運(yùn)行后的窗體如圖所示。 注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名 為sjt1.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為L(zhǎng)abel1

42、，標(biāo)題（Caption屬性）設(shè)為“滾動(dòng)條控件”。畫一個(gè)水平滾動(dòng)條控件，通過其屬性窗口將名稱設(shè)為 HScroll1，最大值（Max屬性）設(shè)為100，最小值（Min屬性）設(shè)為1，寬度（Width屬性）設(shè)為3000，高度（Height屬性）設(shè)為300，Value屬性設(shè)為20。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。* （2）在名稱為Form1的窗體上畫一個(gè)名稱為Shape1的形狀控件，位置在窗體的頂 部，在屬性窗口中將其設(shè)置為圓形。畫一個(gè)名稱

43、為 Timer1的計(jì)時(shí)器，在屬 性窗口中將其設(shè)置為不可用，時(shí)間間隔為0.5秒，窗體如圖所示。請(qǐng)編寫窗 體的 Load事件過程和計(jì)時(shí)器的事件過程，使得程序一開始運(yùn)行，計(jì)時(shí)器即 變?yōu)榭捎?，且每?.5秒形狀控件向下移動(dòng)100。 注意： 要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。存盤時(shí)必須 存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。 在該窗體上畫一個(gè)形狀控件，通過其屬性窗口將名稱設(shè)為Shape1，Shape屬性設(shè)為Circle。畫一個(gè)計(jì)時(shí)器控件，通過其屬性窗口將名稱設(shè)為Timer1

44、，Enabled屬性設(shè)為False，Interval屬性設(shè)為500。 在Private Sub Form_Load()事件過程中加入語句：Private Sub Form_Load() Timer1.Enabled = TrueEnd Sub 在Private Sub Timer1_Timer()事件過程中加入語句：Private Sub Timer1_Timer() Shape1.Top = Shape1.Top + 100End Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請(qǐng)把這些文件復(fù)制到c:wexam269900

45、01中，然后打開sjt2.vbp文件并運(yùn)行。2. 簡(jiǎn)單應(yīng)用（2小題，每題20分，計(jì)40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER%* （1）在考生文件夾中有一個(gè)工程文件 sjt3.vbp。程序的功能是輸入用戶名和密 碼。程序運(yùn)行時(shí)，當(dāng)向文本框Text2中輸入密碼時(shí)，若“顯示密碼”復(fù)選框 沒有被選中，則在文本框 Text3中同時(shí)顯示“#”（如圖所示）；若“顯示 密碼”復(fù)選框被選中，再重新輸入密碼時(shí)，則在Text3中同時(shí)顯示的是密碼 字符本身。 在給出的窗體文件中已經(jīng)添加了全部控件，但程序不完整。 要求：去掉程 序中的注釋符，把程序中的 ？改為正確的內(nèi)容。 注意： 不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名 存盤。解題思路： 啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。 由于所提供的窗體程序不完整，在Private Sub Text2_Change事件過程中，有四處地方需要修改。1) 將語句 'If ? = 1 Then 改為 If