1、 打造最大的國內(nèi)教育平臺更多試題請?jiān)L問下載1. 基本操作（2小題，每小題15分，共計(jì)30分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% * 請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。 （1）在名稱為 Form1的窗體上畫一個文本框，其名稱為T1，寬度和高度分別為1400為400； 再畫兩個命令按鈕，其名稱分別為C1和C2，標(biāo)題分別為“顯示”和“擴(kuò)大”，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊C1命令按鈕，則在文本框中顯示“等級考試”，如圖1所示；如果單擊C2命令按鈕，則使文本框在高、寬方向上各增加一倍，文本框中的字體大小擴(kuò)大到原來的3倍，如圖2所示。

2、注意： 要求程序中不得使用變量。 存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。 解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為T1，高（Height屬性）設(shè)為400，寬（Width屬性）設(shè)為1400。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為C1、C2，標(biāo)題（Caption屬性）分別設(shè)為“顯示”、“擴(kuò)大”。 單擊“顯示”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句： Private Sub C1_Click() T1 = "等級考試&

3、quot; End Sub 單擊“擴(kuò)大”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句： Private Sub C2_Click() T1.Height = 2 * Me.T1.Height T1.Width = 2 * T1.Width T1.FontSize = 3 * Form1.T1.FontSize End Sub 參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw 請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。 * （2）在名稱為Form1的窗體上畫一個命令

4、按鈕，其名稱為C1，標(biāo)題為“轉(zhuǎn)換”；然后再畫兩個文本框，其名稱分別為Text1和Text2，初始內(nèi)容均為空白，編寫適當(dāng)?shù)氖录^程。 程序運(yùn)行后，在Text1中輸入一行英文字符串，如果單擊命令按鈕，則Text1文本框中的字母都變?yōu)樾?，而Text2中的字母都變?yōu)榇髮憽?例如，在Text1中輸入Visual Basic Programming，則單擊命令按鈕后，結(jié)果如圖所示。 要求： 不得使用任何變量。 *注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。 解題思路： 啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。 在該窗體上畫一個命令按

5、鈕控件，通過其屬性窗口將名稱設(shè)為C1，標(biāo)題（Caption屬性）設(shè)為“轉(zhuǎn)換”。畫二個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1、Text2，Text屬性均設(shè)為空。 單擊“轉(zhuǎn)換”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句： Private Sub C1_Click() Text1.Text = LCase(Text1.Text) Text2.Text = UCase(Text1.Text) End Sub 參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw 請把這些文件復(fù)制到c:wexam2699000

6、1中，然后打開sjt2.vbp文件并運(yùn)行。2. 簡單應(yīng)用（2小題，每題20分，計(jì)40分） 注意：下面出現(xiàn)的“考生文件夾”均為%USER% （1）在考生文件夾下有一個工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm，包含了所有控件和部分程序，如圖所示。 要求： 1）利用屬性窗口向列表框添加四個項(xiàng)目： Visual Basic，Turbo C，C+，Java； 2）請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽寒?dāng)選擇列表框中的一項(xiàng)和單選按鈕Option1，然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”； 當(dāng)選擇列表框中的一項(xiàng)和單選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中顯示“XX

7、X上機(jī)”。其中“XXX”是在列表框中所選擇的項(xiàng)目。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一次選擇操作（包括列表框和單選按鈕），否則不得分。最后把修改后的文件按原文件名存盤。 解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，向列表框控件添加項(xiàng)目（List屬性），添加的項(xiàng)目分別為Visual Basic，Turbo C，C+，Java，每個項(xiàng)目為一行。 由于所提供的窗體程序不完整，單擊“確定”命令按鈕

8、（即運(yùn)行Click事件過程），在該Click事件過程中 加入語句： Private Sub Command1_Click() If Option1.Value And List1.Text <> "" Then Text1.Text = List1.Text & Option1.Caption Else If Option2.Value And List1.Text <> "" Then Text1.Text = List1.Text & Option2.Caption End If End If End Sub

9、另外需注意：在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一次選擇操作（包括列表框和單選按鈕），退出程序時需單擊窗體右上角的關(guān)閉按鈕，這樣就運(yùn)行了Private Sub Form_Unload(Cancel As Integer)事件過程。 參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw、out3.txt 請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運(yùn)行。 * （2）在考生文件夾下有一個工程文件sjt4.vbp，相應(yīng)的窗體文件為sjt4.frm。 在窗體上有一個命令按鈕，其名稱為Com

10、mand1，標(biāo)題為“計(jì)算并輸出”。程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒂?jì)算500以內(nèi)兩個數(shù)之間（包括開頭和結(jié)尾的數(shù)）所有連續(xù)數(shù)的和為1250的正整數(shù)， 并在窗體上顯示出來。這樣的數(shù)有多組， 程序輸出每組開頭和結(jié)尾的正整數(shù)，并用“”連接起來，如圖所示。該程序不完整，請把它補(bǔ)充完整。 要求： 去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容， 使其能正確運(yùn)行，但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。 解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整，在窗體的P

11、rivate Sub Command1_Click()事件過程中，有三處地方需要修改。 1) 將語句 'iSum = ? 改為 iSum = 0 2) 將語句 'iSum = ? 改為 iSum = iSum + j 3) 將語句 'If iSum = ? Then 改為 If iSum = 1250 Then 參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw 請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運(yùn)行。 3. 綜合應(yīng)用（1小題，計(jì)30分） 注意：下面出現(xiàn)的“考生

12、文件夾”均為%USER% 在窗體上畫一個文本框，其名稱為Text1，初始內(nèi)容為空白， 并設(shè)置成多行顯示格式；然后再畫兩個命令按鈕，其名稱分別為Command1和Command2，標(biāo)題分別為“顯示”和“保存”，如圖所示，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“顯示”命令按鈕，則讀取考生文件夾下的in5.txt文件， 并在文本框中顯示出來， 該文件是一個用隨機(jī)存取方式建立的文件，共有5個記錄，要求按記錄號順序顯示全部記錄，每個記錄一行；如果單擊“保存”命令按鈕，則把所有記錄保存到考生文件夾下的順序文件out5.txt中。 隨機(jī)文件in5.txt中的每個記錄包括3個字段，分別為姓名、性別和年齡，其

13、名稱和長度分別為： Name 字符串 8 Sex 字符串 4 Age Integer 其類型定義為： Private Type StudInfo Name As String * 8 Sex As String * 4 Age As Integer End Type 要求： 1）文件out5.txt以順序存取方式建立和保存。 2）存盤時必須存放在考生文件夾下，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。 解題思路： 啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。 在該窗體上畫一個文本框控件，通過其屬性窗口

14、將名稱設(shè)為Text1，文本內(nèi)容（Text屬性）設(shè)為空，多行（MultiLine屬性）設(shè)為True。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標(biāo)題（Caption屬性）分別設(shè)為“顯示”、“保存”。 單擊“顯示”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句： Private Sub Command1_Click() Dim RecNum As Long Open App.Path & "in5.txt" For Random As #1 Len = Len(Stud) RecNum = 1 Do While

15、 Not EOF(1) Get #1, RecNum, Stud Text1.Text = Text1.Text & Stud.Name Text1.Text = Text1.Text & Stud.Sex Text1.Text = Text1.Text & Str(Stud.Age) Text1.Text = Text1.Text + vbCrLf RecNum = RecNum + 1 Loop Close 1 End Sub 單擊“保存”按鈕（即運(yùn)行Click事件過程），在該Click事件過程中加入語句： Private Sub Command2_Click() Open App.Path & "out5.txt" For Output As #1 Print #1, Text1.Text Close 1 End Sub 聲明部分定義一個存放“姓名”、“性別”和“年齡”紀(jì)錄的結(jié)構(gòu)，具體內(nèi)容： Private Type StudInfo Name As Stri