全國(guó)vb上機(jī)題參考答案

1、<p>　　全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)題參考答案（70）</p><p><b>　　第1套</b></p><p><b>　　一、基本操作</b></p><p><b>　　第1小題:</b></p><p>　　新建一個(gè)名為Form1的窗體，單擊工具箱中的

2、TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框；單擊"工具"菜單中的"菜單編輯器"命令，打開(kāi)菜單編輯器。在"標(biāo)題"欄中輸入"操作"，在"名稱"欄中輸入"Op"；點(diǎn)擊"下一個(gè)"按鈕，再點(diǎn)擊編輯區(qū)的"→"按鈕，在"標(biāo)題"欄中輸入"顯示"，

3、在"名稱"欄中輸入"Dis"；點(diǎn)擊"下一個(gè)"按鈕，在"標(biāo)題"欄中輸入"退出"，在"名稱"欄中輸入"Exit"。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：sjt3.frm</p><p>　　Private Sub Dis_Click()<

4、;/p><p>　　Text1.Text = "等級(jí)考試" '單擊"操作"菜單中的"顯示"命令，在文本框Text1中顯示等級(jí)考試</p><p><b>　　End Sub</b></p><p>　　-------------------------------

5、-------------</p><p>　　Private Sub Exit_Click()</p><p>　　End '單擊"操作"菜單中的"退出"命令，結(jié)束程序</p><p><b>　　End Sub</b></p>&l

6、t;p>　　按要求保存文件即完成本題。</p><p><b>　　第2小題： </b></p><p>　　新建一個(gè)窗體，點(diǎn)擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)列表框，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為"L1"，通過(guò)設(shè)置List屬性為列表框添加"AAAA"、"BBBB"、"

7、;CCCC"和"DDDD"四個(gè)列表項(xiàng)。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：sjt4.frm</p><p>　　Private Sub L1_Click()</p><p>　　L1.RemoveItem ListIndex '單擊列表框L1中的某一項(xiàng)，將此項(xiàng)從列表框L1中刪除</p

8、><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　二、簡(jiǎn)單應(yīng)用</b></p><p><b>　　第1小題:</b></p><p>　　本題主要考查了計(jì)時(shí)器控件的屬性、滾動(dòng)條控件的屬

9、性和LoadPicture函數(shù)。</p><p>　　1、計(jì)時(shí)器控件的Interval屬性</p><p>　　返回或設(shè)置對(duì)Timer控件的計(jì)時(shí)事件各調(diào)用間的毫秒數(shù)。</p><p>　　2、滾動(dòng)條控件的Value屬性</p><p>　　該屬性值表示滾動(dòng)框在滾動(dòng)條上的當(dāng)前位置。如果在程序中設(shè)置該值，則把滾動(dòng)框移到相應(yīng)的位置。</p&g

10、t;<p>　　3、LoadPicture函數(shù)</p><p>　　用來(lái)將圖形載入到窗體的Picture屬性、PictureBox 控件或Image控件。其語(yǔ)法為：</p><p>　　對(duì)象名.Pictuer=LoadPictuer("文件名")</p><p><b>　　解題方法：</b></p>

11、;<p>　　本題中滾動(dòng)條的HScroll1的Change事件控制當(dāng)滾動(dòng)框的位置改變后，計(jì)時(shí)器的時(shí)間間隔也發(fā)生變化；計(jì)時(shí)器Timer1的Timer事件控制圖像框中的圖片的交替變更。</p><p>　　修改后的代碼如下：按要求保存文件即完成本題。</p><p>　　（1）wy5.frm</p><p><b>　　第2小題： </b&

12、gt;</p><p>　　本題主要考查了圖像框控件的屬性。</p><p>　　Height屬性：用來(lái)指定圖像框的高度。 Width屬性：用來(lái)指定圖像框的寬度。</p><p><b>　　解題方法：</b></p><p>　　命令按鈕C1（即放大按鈕）的Click事件用來(lái)控制當(dāng)圖像框的寬和高都小于3000時(shí)，圖像框

13、的寬和高各增加500；命令按鈕C2（即縮小按鈕）的Click事件用來(lái)控制當(dāng)圖像框的寬和高都大于1000時(shí)，圖像框的寬和高各減少500。</p><p><b>　　修改后的代碼如下：</b></p><p>　?。?）wy6.frm</p><p><b>　　三、綜合應(yīng)用</b></p><p>

14、　　本題主要考查了文件的輸入輸出和列表框的屬性。</p><p><b>　　1、Open語(yǔ)句</b></p><p>　　Open語(yǔ)句用來(lái)打開(kāi)或建立一個(gè)文件，其語(yǔ)法為：</p><p>　　Open 文件名 [for 存取方式] [Access 操作方式] [鎖定] As [#]文件號(hào) [Len=記錄長(zhǎng)度]</p><p&

15、gt;<b>　　參數(shù)說(shuō)明：</b></p><p>　　"存取方式"指文件的輸入輸出方式，可以是以下操作之一：</p><p>　　Output指定順序輸出方式</p><p>　　Input指定順序輸入方式</p><p>　　Append指定順序輸出方式,與Output不同的是，用Append方

16、式打開(kāi)文件時(shí)，文件指針定位于文件尾部，如對(duì)文件執(zhí)行寫(xiě)操作，則寫(xiě)入數(shù)據(jù)附加到原來(lái)文件的后面。</p><p>　　2、Input #語(yǔ)句</p><p>　　用來(lái)讀取順序文件的數(shù)據(jù)。語(yǔ)法為：</p><p>　　Input #文件號(hào)，變量列表</p><p>　　3、Print #語(yǔ)句</p><p>　　用來(lái)把數(shù)據(jù)寫(xiě)入

17、順序文件。語(yǔ)法為：</p><p>　　Print #文件號(hào)，[[Spc(n)|Tab(n)] [表達(dá)式列表] [;|,]]</p><p>　　Spc(n)函數(shù)用來(lái)在當(dāng)前的輸出位置加入n個(gè)空白；Tab(n)函數(shù)用來(lái)設(shè)置在第n個(gè)位置寫(xiě)入數(shù)據(jù)。</p><p>　　分號(hào)表示后續(xù)寫(xiě)入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫(xiě)入；逗號(hào)表示在當(dāng)前寫(xiě)入的數(shù)據(jù)后換行。</p>

18、<p>　　4、Close語(yǔ)句 </p><p>　　用來(lái)關(guān)閉一個(gè)被打開(kāi)的文件。語(yǔ)法為：</p><p>　　Close #文件號(hào)</p><p>　　5、列表框的Selected屬性</p><p>　　在程序運(yùn)行期間返回或設(shè)置在ListBox控件中的一個(gè)項(xiàng)的選擇狀態(tài)。該屬性是一個(gè)與List 屬性一樣、有相同項(xiàng)數(shù)的布爾值數(shù)組。&l

19、t;/p><p>　　6、列表框的ListIndex屬性</p><p>　　在程序運(yùn)行期間返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目的索引。</p><p><b>　　修改后的代碼如下：</b></p><p>　　按照題目要求保存文件即完成本題。</p><p><b>　　第2套</b>

20、;</p><p><b>　　一、基本操作</b></p><p><b>　　第1小題:</b></p><p>　　新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框；執(zhí)行"工具"菜單中的"菜單編輯器"命令，打開(kāi)菜單編輯器。在&qu

21、ot;標(biāo)題"欄中輸入"操作"，在"名稱"欄中輸入"Op"；點(diǎn)擊"下一個(gè)"按鈕，再點(diǎn)擊編輯區(qū)的"→"按鈕，在"標(biāo)題"欄中輸入"顯示"，在"名稱"欄中輸入"Dis"；點(diǎn)擊"下一個(gè)"按鈕，在"標(biāo)題"欄中輸入"

22、;清除"，在"名稱"欄中輸入"Clea"。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：Sjt1.frm</p><p>　　Private Sub Clea_Click()</p><p>　　Text1.Text = "" '單擊"操作"菜單中的&

23、quot;清除"命令，清空文本框Text1</p><p><b>　　End Sub</b></p><p>　　Private Sub Dis_Click()</p><p>　　Text1.Text = "等級(jí)考試" '單擊"操作"菜單中的"顯示"命令，文

24、本框Text1中顯示等級(jí)考試</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　第2小題： </b></p><p>　　新建一個(gè)窗體，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框，并設(shè)置其初始內(nèi)容為

25、空白；點(diǎn)擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)列表框，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為"L1"，通過(guò)設(shè)置List屬性為列表框添加"AAAA"、"BBBB"、"CCCC"和"DDDD"四個(gè)列表項(xiàng)。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：Sjt2.frm</p><p

26、>　　Private Sub L1_DblClick()</p><p>　　L1.AddItem Text1.Text '當(dāng)雙擊列表框L1時(shí)，在列表框L1中加載文本框Text1中的內(nèi)容</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><

27、p><b>　　二、簡(jiǎn)單應(yīng)用</b></p><p><b>　　第1小題:</b></p><p>　　本題主要考查了RichTextBox（多格式文本框）控件。</p><p>　　LoadFile()函數(shù)：將rtf格式文件或標(biāo)準(zhǔn)ASCII文本文件加載到RichTextBox控件中。</p><

28、;p>　　Len()函數(shù)：返回字符串的長(zhǎng)度。</p><p><b>　　解題方法：</b></p><p>　　命令按鈕Command1的Click事件控制將當(dāng)前路徑下的文本文件wy01.txt加載到多格式文本框rtx1中；命令按鈕Command2的Click事件控制當(dāng)多格式文本框rtx的內(nèi)容不為空時(shí)，統(tǒng)計(jì)多格式文本框rtx中文本的長(zhǎng)度。</p>

29、<p><b>　　修改后的代碼如下：</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　第2小題： </b></p><p>　　本題主要考查了鼠標(biāo)的事件。</p><p>　　MouseUp事件：當(dāng)按下的鼠標(biāo)釋放時(shí)發(fā)生。</p><

30、;p>　　參數(shù)Button用來(lái)標(biāo)識(shí)釋放的鼠標(biāo)按鈕，Button為1，表示鼠標(biāo)左鍵；Button為2，表示鼠標(biāo)右鍵；Button為4，表示鼠標(biāo)中間鍵。</p><p><b>　　解題方法：</b></p><p>　　圖像框Image1的MouseUp事件控制當(dāng)釋放按下的鼠標(biāo)左鍵，且圖像框的高和寬都小于4000時(shí)，圖像寬的高和寬各增加500。當(dāng)釋放按下的鼠標(biāo)右鍵

31、，且圖像框的高和寬都大于1000時(shí)，圖像框的高和寬各減少500。</p><p><b>　　修改后的代碼如下：</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　三、綜合應(yīng)用</b></p><p>　　本題主要考查了用戶自定義類(lèi)型和文件的打開(kāi)、輸入輸出。<

32、/p><p><b>　　1、用戶自定義類(lèi)型</b></p><p>　　用戶可以利用Type語(yǔ)句定義自己的數(shù)據(jù)類(lèi)型，其格式如下：</p><p>　　Type 數(shù)據(jù)類(lèi)型名</p><p>　　數(shù)據(jù)類(lèi)型元素名 As 類(lèi)型名</p><p>　　數(shù)據(jù)類(lèi)型元素名 As 類(lèi)型名</p><

33、;p><b>　　......</b></p><p><b>　　End Type</b></p><p>　　其中"數(shù)據(jù)類(lèi)型名"是要定義的的數(shù)據(jù)類(lèi)型的名字，其命名規(guī)則與變量的命名規(guī)則相同。</p><p><b>　　2、文件</b></p><p&g

34、t;　　Open 文件說(shuō)明 [For 方式] [Access 存取類(lèi)型] [鎖定] As [#]文件號(hào) [Len=記錄長(zhǎng)度]</p><p>　　Open語(yǔ)句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。</p><p>　　3、Input #語(yǔ)句</p><p>　　格式：Input #文件號(hào),變量表</p><p>

35、　　Input #語(yǔ)句從一個(gè)順序文件中讀出數(shù)據(jù)項(xiàng)，并把這些數(shù)據(jù)項(xiàng)賦給程序變量。</p><p>　　4、Write #語(yǔ)句</p><p>　　Write #文件號(hào), 表達(dá)式表</p><p>　　Write #語(yǔ)句把數(shù)據(jù)寫(xiě)入順序文件中</p><p><b>　　修改后的代碼如下：</b></p><

36、;p>　　按要求保存文件即完成本題。</p><p>　　Private Type stu</p><p>　　num As Long</p><p>　　' nam As String ?‘Key：* 10</p><p>　　score As Single</p><p>　　'End ?

37、‘Key：Type</p><p>　　---------------------------------------------------</p><p>　　Private Sub COMEXIT_Click()</p><p><b>　　End</b></p><p><b>　　End Sub&l

38、t;/b></p><p>　　---------------------------------------------------</p><p>　　Private Sub COMSTART_Click()</p><p>　　'Dim rec As ?‘Key：stu</p><p>　　Dim i As Intege

39、r</p><p>　　' myfile1 = App.Path & "\" & ? ‘Key："stud1.dat"</p><p>　　' myfile2 = App.Path & "\" & ? ‘Key："stud.

40、dat"</p><p>　　Open myfile1 For Input As #1</p><p>　　Open myfile2 For Output As #2</p><p>　　For i = 1 To 8</p><p>　　' Input ?, rec.num, rec.nam, rec.score‘Key

41、：#1</p><p>　　' Write ?, rec.num, rec.nam, rec.score‘Key：#2</p><p><b>　　Next i</b></p><p><b>　　Close</b></p><p>　　'COMSTART.Caption = ?

42、 ‘Key："完成"</p><p>　　'COMSTART.Enabled = ? ‘Key：False</p><p><b>　　End Sub</b></p><p><b>　　第3套</b></p><p><b>　　一、基本操作<

43、/b></p><p><b>　　第1小題:</b></p><p>　　新建一個(gè)名為Form1的窗體，單擊"工具"菜單中的"菜單編輯器"命令，打開(kāi)菜單編輯器。在"標(biāo)題"欄中輸入"操作"，在"名稱"欄中輸入"Op"；點(diǎn)擊"下一個(gè)&q

44、uot;按鈕，再點(diǎn)擊編輯區(qū)的"→"按鈕，在"標(biāo)題"欄中輸入"顯示"，在"名稱"欄中輸入"Dis"；點(diǎn)擊"下一個(gè)"按鈕，在"標(biāo)題"欄中輸入"清除"，在"名稱"欄中輸入"Clea"。</p><p>　　打開(kāi)代碼窗口，輸

45、入如下的代碼：sjt3.frm</p><p>　　Private Sub Clea_Click()</p><p>　　Cls '清除窗體Form1上的內(nèi)容</p><p><b>　　End Sub</b></p><p>　　--------------------

46、---------------------</p><p>　　Private Sub Dis_Click()</p><p>　　Print "等級(jí)考試" '在窗體Form1顯示等級(jí)考試</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即

47、完成本題。</p><p><b>　　第2小題： </b></p><p>　　新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的Label控件圖標(biāo)，然后在窗體上拖拉出一個(gè)標(biāo)簽控件，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為"Lab1"。點(diǎn)擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)列表框，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為"L1"

48、;，通過(guò)設(shè)置List屬性為列表框添加若干列表項(xiàng)。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：</p><p><b>　　Sjt4.frm</b></p><p>　　Private Sub L1_DblClick()</p><p>　　Lab1.Caption = L1.ListCount &

49、#39;在標(biāo)簽Lab1顯示列表框中的項(xiàng)目數(shù)</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　二、簡(jiǎn)單應(yīng)用</b></p><p><b>　　第1小題:</b></p><p&g

50、t;　　本題主要考查了通用對(duì)話框控件的屬性。</p><p>　　Filter(過(guò)濾器)屬性：用于確定文件列表框中所顯示文件的類(lèi)型。該屬性值可以由一組元素或用"|"符號(hào)分開(kāi)的分別表示不同類(lèi)型文件的多組元素組成。該屬性在"文件類(lèi)型"列表框中。</p><p>　　FilterIndex屬性：是指定默認(rèn)情況下要打開(kāi)或保存為的文件類(lèi)型。</p>

51、<p>　　Action屬性：用于指定對(duì)話框的操作，1為顯示"打開(kāi)"對(duì)話框，2為顯示"另存為"對(duì)話框，3為顯示"顏色"對(duì)話框，4為顯示"字體"對(duì)話框，5為顯示"打印"對(duì)話框，6為顯示幫助文件。</p><p>　　Shell函數(shù)：凡是能在Windows下運(yùn)行的應(yīng)用程序，基本上都可以在VB中調(diào)用。這一功

52、能通過(guò)Shell函數(shù)來(lái)實(shí)現(xiàn)。Shell函數(shù)的格式為</p><p>　　Shell(命令字符串[,窗口類(lèi)型])</p><p>　　其中"命令字符串"是要執(zhí)行的應(yīng)用程序的的文件名（包括路徑），它必須是可執(zhí)行文件，其擴(kuò)展名為.COM、.EXE、.BAT或.PIF，其它文件不能用Shell函數(shù)執(zhí)行。"窗口類(lèi)型"是執(zhí)行應(yīng)用程序時(shí)窗口的大小，有6種選擇，分別

53、為0、1、2、3、4和6。</p><p><b>　　解題方法：</b></p><p>　　命令按鈕Command6的Click事件控制打開(kāi)默認(rèn)文件類(lèi)型為.exe的"打開(kāi)"對(duì)話框，并通過(guò)Shell函數(shù)調(diào)用通用對(duì)話框CommonDialog1。</p><p>　　修改后的命令按鈕Command6的代碼如下：</p&

54、gt;<p>　　Private Sub Command6_Click()</p><p>　　CommonDialog1.CancelError = True</p><p>　　On Error GoTo Cancel</p><p>　　CommonDialog1.Filter = "(可執(zhí)行文件*.exe)*.exe|?|(可執(zhí)行文件

55、*.com)*.com|*.com"</p><p>　　'設(shè)置通用對(duì)話框CommonDialog1可顯示的文件類(lèi)型為*.exe和*.com</p><p>　　CommonDialog1.FilterIndex = 1 '設(shè)置通用對(duì)話框CommonDialog1默認(rèn)的文件類(lèi)型為*.exe</p><p>　　CommonDialog1.

56、Action = 1 '設(shè)置通用對(duì)話框CommonDialog1顯示為打開(kāi)對(duì)話框</p><p>　　Shell CommonDialog1.filename, 1 '用Shell函數(shù)調(diào)用通用對(duì)話框CommonDialog1，并設(shè)置窗口的顯示類(lèi)型為1</p><p><b>　　Cancel:</b></p><p>

57、;<b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　第2小題： </b></p><p>　　本題主要考查了圖片框的屬性和畫(huà)Circle和Line的圖形方法。</p><p>　　1、圖片框的FillStyle屬性</p>

58、<p>　　返回或設(shè)置用來(lái)填充PictureBox控件、以及由Circle和Line圖形方法生成的圓和方框的模式。FillStyle的值為0，則生成的圖形為實(shí)線模式。</p><p>　　2、Circle方法</p><p>　　用來(lái)在對(duì)象上畫(huà)圓、橢圓或弧。語(yǔ)法為：</p><p>　　對(duì)象名.Circle(x, y),radius,[color,star

59、t,end,aspect]</p><p>　　參數(shù)x和y表示所畫(huà)圖形的中心；參數(shù)radius為所畫(huà)圖形的半徑；參數(shù)color是所畫(huà)圖形的輪廓顏色；參數(shù)start和end指定所畫(huà)弧的起始位置和終止位置；參數(shù)aspect是所畫(huà)圓的縱橫尺寸比。缺省值為1.0，此時(shí)所畫(huà)出的是一個(gè)標(biāo)準(zhǔn)圓（非橢圓）。</p><p><b>　　3、Line方法</b></p>

60、<p>　　用來(lái)在對(duì)象上畫(huà)直線和矩形。語(yǔ)法為：</p><p>　　object.Line(x1,y1)-(x2,y2),[color],[B][F]</p><p>　　參數(shù)x1、y1、x2和y2表示所畫(huà)直線的起點(diǎn)坐標(biāo)和終點(diǎn)坐標(biāo)，或者所畫(huà)矩形的對(duì)角線的起點(diǎn)和終點(diǎn)坐標(biāo)。參數(shù)Color為所畫(huà)直線的顏色或所畫(huà)矩形的邊框顏色。參數(shù)B表示要畫(huà)的是矩形不是直線；F表示所畫(huà)矩形的內(nèi)部將用矩形

61、的邊框顏色來(lái)填充。</p><p><b>　　解題方法：</b></p><p>　　命令按鈕C1的Click事件控制當(dāng)單選按鈕Op1被選中時(shí)畫(huà)一個(gè)圓環(huán)，首先以以中心點(diǎn)坐標(biāo)為(1500,1000)，半徑為變量b畫(huà)圓環(huán)的外圓，再以中心點(diǎn)坐標(biāo)為(1500,1000)，半徑為變量a畫(huà)圓環(huán)的內(nèi)圓；當(dāng)單選按鈕Op2被選中時(shí)畫(huà)一個(gè)矩形，以起點(diǎn)坐標(biāo)為(100,100)，終點(diǎn)坐標(biāo)為

62、(100+a,100+b)，畫(huà)一個(gè)邊框顏色和內(nèi)部顏色相同的矩形。</p><p><b>　　修改后的代碼如下：</b></p><p><b>　　wy6.frm</b></p><p>　　Private Sub C1_Click()</p><p>　　Dim a As Single</

63、p><p>　　Dim b As Single</p><p>　　Dim t As Single</p><p>　　On Error Resume Next</p><p>　　If Op1.Value = True Then</p><p>　　a = InputBox("輸入圓環(huán)的內(nèi)徑（輸入值必須大于0且

64、小于800）", "輸入?yún)?shù)", 100)</p><p>　　b = InputBox("輸入圓環(huán)的外徑（輸入值必須大于0且小于900）", "輸入?yún)?shù)", 200)</p><p>　　If a > b Then</p><p>　　' t = ? ‘Key：a

65、 '如果變量a的值大于變量b的值，a和b的值交換，</p><p>　　始終保持變量b的值大于變量a的值</p><p><b>　　a = b</b></p><p><b>　　b = t</b></p><p><b>　　End If</b></

66、p><p><b>　　P1.Cls</b></p><p>　　'P1.FillStyle = ? ‘Key：0 '用實(shí)線模式來(lái)填充圖片框P1</p><p>　　P1.FillColor = vbBlack</p><p>　　'P1.Circle (1500, 1000), ?

67、 ‘Key：a 以中心點(diǎn)坐標(biāo)為(1500, 1000)，半徑為變量b畫(huà)圓</p><p>　　P1.FillColor = vbButtonFace</p><p>　　P1.Circle (1500, 1000), a</p><p><b>　　End If</b></p><p>　　If Op2.Value

68、 = True Then</p><p>　　a = InputBox("輸入方框的長(zhǎng)度（輸入值必須大于0且小于3000）", "輸入?yún)?shù)", 100)</p><p>　　b = InputBox("輸入方框的寬度（輸入值必須大于0且小于1800）", "輸入?yún)?shù)", 200)</p><

69、p><b>　　P1.Cls</b></p><p>　　'P1.Line (100, 100)-(100 + a, 100 + b), , ?F‘Key：B</p><p>　　'畫(huà)一個(gè)起點(diǎn)坐標(biāo)為(100,100)，終點(diǎn)坐標(biāo)為(100 + a, 100 + b)，邊框顏色和內(nèi)部顏色相同的矩形</p><p><b

70、>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　三、綜合應(yīng)用</b></p><p>　　本題主要考查了文件的打開(kāi)和輸入輸出。</p><p><b>　　1、文件</b></p>&l

71、t;p>　　Open 文件說(shuō)明 [For 方式] [Access 存取類(lèi)型] [鎖定] As [#]文件號(hào) [Len=記錄長(zhǎng)度]</p><p>　　Open語(yǔ)句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。</p><p>　　2、Input #語(yǔ)句</p><p>　　格式：Input #文件號(hào),變量表</p><

72、p>　　Input #語(yǔ)句從一個(gè)順序文件中讀出數(shù)據(jù)項(xiàng)，并把這些數(shù)據(jù)項(xiàng)賦給程序變量。</p><p>　　3、Write #語(yǔ)句</p><p>　　Write #文件號(hào), 表達(dá)式表</p><p>　　Write #語(yǔ)句把數(shù)據(jù)寫(xiě)入順序文件中</p><p><b>　　修改后的代碼如下：</b></p>

73、<p>　　Private Sub COMSTART_Click()</p><p>　　Dim i As Integer</p><p>　　Dim total As Integer</p><p>　　Dim aver As Single</p><p>　　Dim num(10), namstring(10), sexst

74、ring(10), wages(10)</p><p>　　MyFile1 = App.Path & "\" & ? Key： "worker.dat"</p><p>　　'將變量myfile1設(shè)置為考生文件夾下的worker.dat文件的路徑</p><p>　　MyFile2 =

75、 App.Path & "\" & ? Key："worker1.dat"</p><p>　　'將變量myfile2設(shè)置為考生文件夾下的worker1.dat文件的路徑</p><p>　　Open MyFile1 For Input As #1</p><p>　　'打開(kāi)已

76、經(jīng)存在的文件worker.dat，以便從文件中讀出記錄，并設(shè)置其文件號(hào)為1</p><p>　　Open MyFile2 For Output As #2</p><p>　　'建立并打開(kāi)文件worker1.dat，以便可以將記錄寫(xiě)入文件中，并設(shè)置其文件號(hào)為2</p><p>　　For i = 1 To 10</p><p>　　I

77、nput ？, num(i), namstring(i), sexstring(i), wages(i) Key：#1</p><p>　　'從文件worker.dat中讀出四個(gè)數(shù)據(jù)項(xiàng)，分別賦給四個(gè)數(shù)組num、namstring、sexstring和wages</p><p>　　total = total + wages(i)</p><p><

78、;b>　　Next i</b></p><p>　　aver = ? / 10 Key：total</p><p>　　For i = 1 To 10</p><p>　　If ? Then Write #2, num(i), namstring(i), sexstring(i), wages(i)

79、 Key：wages(i) > aver</p><p>　　'如果數(shù)組wages中某個(gè)工人的體重大于平均體重，將這個(gè)工人的所有數(shù)據(jù)寫(xiě)入考生文件夾下的worker1.dat文件中</p><p><b>　　Next i</b></p><p>　　COMSTART.Caption = ? Key：

80、"完成"</p><p>　　'將命令按鈕COMSTART的標(biāo)題設(shè)置為"完成"</p><p>　　COMSTART.Enabled = ? Key：False</p><p>　　'將命令按鈕COMSTART設(shè)置為無(wú)效</p><p><b>　　End Sub

81、</b></p><p><b>　　第4套</b></p><p><b>　　一、基本操作</b></p><p><b>　　第1小題:</b></p><p>　　新建一個(gè)名為Form1的窗體，單擊工具箱中的DriveListBox控件圖標(biāo)，然后在窗體上拖拉

82、出一個(gè)驅(qū)動(dòng)器列表框；單擊工具箱中的DirListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)目錄列表框；單擊工具箱中的FileListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文件列表框。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：</p><p>　　Private Sub Dir1_Change()</p><p>　　File1.Path = Dir1.Path

83、 '當(dāng)目錄列表框Dir1的Path屬性改變時(shí)，文件列表框File1的目錄變?yōu)槟夸浟斜砜駾ir1的目錄</p><p><b>　　End Sub</b></p><p>　　-------------------------------------------------</p><p>　　Private Sub Drive1_

84、Change()</p><p>　　Dir1.Path = Drive1.Drive '當(dāng)驅(qū)動(dòng)器列表框Drive1的Drive屬性改變時(shí)，目錄列表框Dir1的目錄變?yōu)轵?qū)動(dòng)器Drive1的目錄</p><p><b>　　End Sub</b></p><p>　　-----------------------------------

85、</p><p>　　Private Sub Form_Load()</p><p>　　Dir1.Path = Drive1.Drive '窗體Form1加載時(shí)，目錄列表框Dir1的目錄變?yōu)轵?qū)動(dòng)器Drive1的目錄</p><p>　　File1.Path = Dir1.Path '窗體Form1加載時(shí)，文件列表框File1的目錄變?yōu)槟?/p>

86、錄列表框Dir1的目錄</p><p><b>　　End Sub</b></p><p>　　------------------------------------------------</p><p>　　Private Sub File1_dblClick()</p><p>　　MsgBox File1.fi

87、lename '當(dāng)雙擊文件列表框File1的文件名時(shí)，在信息框MsgBox中顯示雙擊的文件名</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　第2小題： </b></p><p>　　新建一個(gè)名為Fo

88、rm1的窗體，單擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框；單擊工具箱中的Timer控件圖標(biāo)，然后在窗體上拖拉出一個(gè)計(jì)時(shí)器，設(shè)置其Interval屬性為1000。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：</p><p>　　Private Sub Form_Load()</p><p>　　Text1.Text = Str(Time

89、) '窗體Form1加載時(shí)，在文本框Text1中顯示當(dāng)前時(shí)間</p><p><b>　　End Sub</b></p><p>　　-------------------------------------</p><p>　　Private Sub Timer1_Timer()</p><p>　

90、　Text1.Text = Str(Time) '當(dāng)觸發(fā)計(jì)時(shí)器Timer1的Timer事件時(shí)，在文本框Text1中顯示當(dāng)前時(shí)間</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　二、簡(jiǎn)單應(yīng)用</b></p><

91、;p><b>　　第1小題:</b></p><p>　　本題主要考查了文件的打開(kāi)和輸出。</p><p><b>　　1、文件</b></p><p>　　Open 文件說(shuō)明 [For 方式] [Access 存取類(lèi)型] [鎖定] As [#]文件號(hào) [Len=記錄長(zhǎng)度]</p><p>　

92、　Open語(yǔ)句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。</p><p>　　方式：指定文件的輸入輸出方式，可以使用下述操作之一：</p><p>　　Output：指定順序輸出方式。</p><p>　　Input：指定順序輸入方式。</p><p>　　Append：指定順序輸出方式。與Output不同的是，當(dāng)A

93、ppend打開(kāi)文件時(shí)，文件指針被定位在文件的末尾。如果對(duì)文件執(zhí)行寫(xiě)操作，則寫(xiě)入的數(shù)據(jù)附加在原文件的后面。</p><p>　　2、Write #語(yǔ)句</p><p>　　Write #文件號(hào), 表達(dá)式表</p><p>　　Write #語(yǔ)句把數(shù)據(jù)寫(xiě)入順序文件中</p><p><b>　　解題方法：</b></p

94、><p>　　命令按鈕CMDstart的click事件利用For循環(huán)計(jì)算1+1/2+1/3+...+1/10的結(jié)果，并將結(jié)果寫(xiě)入到考生文件夾下的result.dat文件中；同時(shí)將命令按鈕CMDSTART的標(biāo)題設(shè)置為"完成"，將命令按鈕CMDSTART設(shè)置為無(wú)效。</p><p><b>　　修改后的代碼如下：</b></p><p&

95、gt;<b>　　wy5.frm</b></p><p>　　Private Sub CMDstart_click()</p><p>　　Dim E As Single, J As Integer</p><p>　　Dim T As Single</p><p>　　'Open App.Path &

96、? For ? As ? ‘Key："result.dat" output #1</p><p>　　'建立并打開(kāi)文件worker1.dat，以便可以將記錄寫(xiě)入文件中，并設(shè)置其文件號(hào)為1</p><p>　　'E = ?‘Key：1 '為變量E賦初值</p><p><b>

97、;　　T = 1</b></p><p>　　For J = 2 To 10 Step 1</p><p><b>　　T = 1 / J</b></p><p><b>　　E = E + T</b></p><p>　　Debug.Print T, E</p><

98、p><b>　　Next J</b></p><p>　　'Write #1, ? ‘Key：E '把變量E寫(xiě)入文件號(hào)為1的result.dat文件中</p><p><b>　　Print E</b></p><p><b>　　Close #

99、1</b></p><p>　　'CMDSTART.Caption =? ‘Key："完成" '將命令按鈕CMDSTART的標(biāo)題設(shè)置為"完成"</p><p>　　'CMDSTART.Enabled = ? ‘Key：False '將命令按鈕CMDSTART設(shè)置為無(wú)

100、效</p><p><b>　　End Sub</b></p><p>　　按要求保存文件即完成本題。</p><p><b>　　第2小題： </b></p><p>　　本題主要考查了單文本框的屬性。</p><p>　　Text屬性：該屬性用來(lái)設(shè)置文本框中顯示的內(nèi)容。&

101、lt;/p><p>　　FontName屬性：用來(lái)返回或設(shè)置控件中的文本所用字體。</p><p>　　FontSize屬性：用來(lái)返回或設(shè)置控件中的文本所用字體的大小。</p><p><b>　　修改后的代碼如下：</b></p><p><b>　　wy6.frm</b></p>&l

102、t;p>　　Option Explicit</p><p>　　---------------------------------------------------</p><p>　　Private Sub Command1_Click()</p><p>　　Option1.Value = True</p><p>　　Optio

103、n6.Value = True</p><p>　　Text1.Text = "請(qǐng)輸入您要設(shè)置的文本"</p><p><b>　　End Sub</b></p><p>　　---------------------------------------------------</p><p>　　P

104、rivate Sub Command2_Click()</p><p>　　Option1.Value = True</p><p>　　Option6.Value = True</p><p>　　'Text1.Text = ? ‘Key："" '將文本框Text1的內(nèi)容清空</p><p&

105、gt;<b>　　End Sub</b></p><p>　　---------------------------------------------------</p><p>　　Private Sub Command3_Click()</p><p><b>　　End</b></p><p&g

106、t;<b>　　End Sub</b></p><p>　　---------------------------------------------------</p><p>　　Private Sub Form_Load()</p><p>　　Option1.Value = True</p><p>　　Opti

107、on6.Value = True</p><p>　　Text1.Text = "請(qǐng)輸入您要設(shè)置的文本"</p><p><b>　　End Sub</b></p><p>　　---------------------------------------------------</p><p>　　

108、Private Sub Option1_Click()</p><p>　　Text1.FontName = "仿宋_GB2312"</p><p><b>　　End Sub</b></p><p>　　---------------------------------------------------</p>

109、;<p>　　Private Sub Option2_Click()</p><p>　　'Text1.FontName = ? ‘Key："楷體_GB2312" 將文本框Text1的字體設(shè)置為"楷體_GB2312"</p><p><b>　　End Sub</b></p><p

110、>　　---------------------------------------------------</p><p>　　Private Sub Option3_Click()</p><p>　　Text1.FontName = "隸書(shū)"</p><p><b>　　End Sub</b></p>

111、<p>　　---------------------------------------------------</p><p>　　Private Sub Option4_Click()</p><p>　　Text1.FontName = "黑體"</p><p><b>　　End Sub</b><

112、;/p><p>　　---------------------------------------------------</p><p>　　Private Sub Option5_Click()</p><p>　　Text1.FontSize = "5.5"</p><p><b>　　End Sub</

113、b></p><p>　　Private Sub Option6_Click()</p><p>　　'Text1.FontSize = ? ‘Key："10.5" 將文本框Text1字體的大小設(shè)置為"10.5"</p><p><b>　　End Sub</b></p&

114、gt;<p>　　---------------------------------------------------</p><p>　　Private Sub Option7_Click()</p><p>　　Text1.FontSize = "16"</p><p><b>　　End Sub</b>

115、</p><p>　　---------------------------------------------------</p><p>　　Private Sub Option8_Click()</p><p>　　Text1.FontSize = "42"</p><p><b>　　End Sub<

116、;/b></p><p><b>　　三、綜合應(yīng)用</b></p><p>　　本題主要考查了文件的打開(kāi)和輸入輸出。</p><p><b>　　1、文件</b></p><p>　　Open 文件說(shuō)明 [For 方式] [Access 存取類(lèi)型] [鎖定] As [#]文件號(hào) [Len=記錄

117、長(zhǎng)度]</p><p>　　Open語(yǔ)句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。</p><p>　　方式：指定文件的輸入輸出方式，可以使用下述操作之一：</p><p>　　Output：指定順序輸出方式。</p><p>　　Input：指定順序輸入方式。</p><p>　　Appen

118、d：指定順序輸出方式。與Output不同的是，當(dāng)Append打開(kāi)文件時(shí)，文件指針被定位在文件的末尾。如果對(duì)文件執(zhí)行寫(xiě)操作，則寫(xiě)入的數(shù)據(jù)附加在原文件的后面。</p><p>　　2、Input #語(yǔ)句</p><p>　　格式：Input #文件號(hào),變量表</p><p>　　Input #語(yǔ)句從一個(gè)順序文件中讀出數(shù)據(jù)項(xiàng)，并把這些數(shù)據(jù)項(xiàng)賦給程序變量。</p>

119、;<p>　　3、Print #語(yǔ)句</p><p>　　Print #文件號(hào), 表達(dá)式表</p><p>　　Print #語(yǔ)句把數(shù)據(jù)寫(xiě)入順序文件中</p><p>　　命令按鈕"打開(kāi)"修改后的代碼如下：</p><p><b>　　wy7.frm</b></p><

120、;p>　　Private Sub COMEXIT_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　-----------------------------------------</p><p>　　Priv

121、ate Sub COMSTART_Click()</p><p>　　Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer</p><p>　　myfile1 = App.Path & "\" & "prog8a.dat"

122、; '將變量myfile1設(shè)置為考生文件夾下的prog8a.dat文件的路徑</p><p>　　myfile2 = App.Path & "\" & "prog8b.dat" '將變量myfile2設(shè)置為考生文件夾下的prog8b.dat文件的路徑</p><p>　　'Open myfile1

123、 For ? As #1 ‘Key："prog8a.dat" '打開(kāi)已經(jīng)存在的文件prog8a.dat，以便從文件中</p><p>　　讀出記錄，并設(shè)置其文件號(hào)為1</p><p>　　'Open myfile2 For ? As #2‘Key："prog8b.dat" '建立并打開(kāi)文件prog8b.dat，

124、以便可以將記錄</p><p>　　寫(xiě)入文件中，并設(shè)置其文件號(hào)為2</p><p>　　While Not EOF(1)</p><p>　　' Input ?, Ch$ ‘Key：#1 '從文件prog8a.dat中讀出一個(gè)數(shù)據(jù)項(xiàng)，賦給字符串變量Ch</p><p>　　If Asc(Ch$)

125、>= 48 And Asc(Ch$) <= 57 Then</p><p>　　Number = Number + 1</p><p>　　ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 Then</p><p>　　Cp = Cp + 1</p><p>　　ElseIf Asc(C

126、h$) >= 97 And Asc(Ch$) <= 122 Then</p><p>　　Lp = Lp + 1</p><p><b>　　Else</b></p><p>　　' Others = ? ‘Key：Others + 1 '如果不是數(shù)字、字母，是其它類(lèi)型的字符，Others加1&l

127、t;/p><p><b>　　End If</b></p><p><b>　　Wend</b></p><p>　　' Print ? Number, Cp, Lp, Others ‘Key：#2 '把變量Number、Cp、Lp和Others寫(xiě)入文件號(hào)為2的prog8b.dat文件中</

128、p><p><b>　　Close</b></p><p>　　' COMSTART.Caption = ? ‘Key："完成" '將命令按鈕COMSTART的標(biāo)題設(shè)置為"完成"</p><p>　　' COMSTART.Enabled = ? ‘Key：Fa

129、lse '將命令按鈕COMSTART設(shè)置為無(wú)效</p><p><b>　　End Sub</b></p><p><b>　　第5套</b></p><p><b>　　一、基本操作</b></p><p><b>　　第1小題:</b><

130、/p><p>　　新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)列表框，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為L(zhǎng)ist1，MultiSelect屬性為2，并在List屬性中添加列表項(xiàng)"第一題"、"第二題"…"第八題"；點(diǎn)擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)列表框，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為L(zhǎng)i

131、st2；點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為Cmd1，Caption屬性為復(fù)制。</p><p>　　打開(kāi)代碼窗口，輸入如下的代碼：</p><p>　　Private Sub Cmd1_Click()</p><p>　　Dim i As Integer, j As Integer<

132、;/p><p>　　Dim a(8) As String</p><p>　　For i = 0 To List1.ListCount - 1</p><p>　　If List1.Selected(i) Then</p><p>　　a(i) = List1.List(i) '將列表框List1中選中的列表項(xiàng)放進(jìn)數(shù)組a中

133、</p><p><b>　　j = j + 1</b></p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>　　If j < 2 Then</p><p>　　MsgBox &quo

134、t;請(qǐng)選擇至少兩項(xiàng)" '如果列表框List1中選中的列表項(xiàng)少于2項(xiàng)，以信息框提示</p><p><b>　　Else</b></p><p>　　List2.Clear</p><p>　　For i = 0 To List1.ListCount - 1</p><p>　　If a(i