名稱為Op在Form1上畫一個(gè)p1的圖片框,然后建立一個(gè)主菜單,標(biāo)題為“操作”,名稱為OP,

1、基礎(chǔ)題1【考點(diǎn)分析】此題考點(diǎn)有：菜單編輯器的使用名稱，標(biāo)題，內(nèi)縮符號(hào)和圖片框的Name屬性和Print、Cls方法?！窘忸}思路】用菜單編輯器來設(shè)置菜單的名稱，標(biāo)題，內(nèi)縮符號(hào)。另外，在圖片框中顯示"等級(jí)考試"的信息通過圖片框的Print方法實(shí)現(xiàn)，清除圖片框信息通過圖片框的Cls屬性實(shí)現(xiàn)。【操作步驟】步驟1：建立界面，添加一個(gè)名稱為P1的圖片框，然后用菜單編輯器建立如下表3.226所示的菜單。表3.226標(biāo)題操作顯示清除名稱OpDisClea內(nèi)縮符號(hào)011步驟2：編寫程序代碼。參考答案Private Sub Clea_Click() P1.ClsEnd SubPrivate S

2、ub Dis_Click() P1.Print "等級(jí)考試"End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。基礎(chǔ)題2【考點(diǎn)分析】此題考點(diǎn)有：列表框的的Name、List、Text屬性，AddItem方法和DblClick事件?！窘忸}思路】在列表框的DblClick事件中，通過AddItem方法將列表框中選中的文本添加到列表框中。【操作步驟】步驟1：建立界面，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.227。步驟2：編寫程序代碼。參考答案Private Sub L1_DblClick() L1.AddItem L1.TextEnd Sub步驟3：

3、調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。簡單題1【考點(diǎn)分析】此題考點(diǎn)有：文本框的Name屬性，框架的Name、Caption屬性，單項(xiàng)選擇按鈕的Name、Caption、Value屬性，窗體的Click事件以及If判斷語句?！窘忸}思路】在窗體上添加相應(yīng)的控件并通過屬性窗口設(shè)置其屬性。通過If語句判斷單項(xiàng)選擇按鈕的Value屬性是否為True，即某個(gè)單項(xiàng)選擇按鈕是否被選中來顯示標(biāo)簽的內(nèi)容。一般地，我們認(rèn)為Value屬性是單項(xiàng)選擇按鈕的默認(rèn)屬性。【操作步驟】步驟1：打開此題工程文件，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.228和3.229。 表3.228控件框架1框架2文本框?qū)?/p>

4、性NameCaptionNameCaptionName設(shè)置值F1交通工具F2到達(dá)目標(biāo)Text1 表3.229控件單項(xiàng)選擇按鈕1單項(xiàng)選擇按鈕2單項(xiàng)選擇按鈕3單項(xiàng)選擇按鈕4屬性NameCaptionNameCaptionNameCaptionNameCaption設(shè)置值Op1飛機(jī)Op2火車Op3廣州Op4昆明步驟2：分析并編寫程序代碼。程序提供代碼Private Sub Form_Click()'需要考生編寫的內(nèi)容End SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & "out3.txt"

5、; For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1End Sub程序結(jié)束參考答案 If Op1 And Op3 Then Text1.Text = "坐飛機(jī)去廣州" ElseIf Op1 And Op4 Then Text1.Text = "坐飛機(jī)去昆明" ElseIf Op2 And Op3 Then Text1.Text = "坐火車去廣州" ElseIf Op2 And Op4 Then Text

6、1.Text = "坐火車去昆明" End If步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。簡單題2【考點(diǎn)分析】此題考點(diǎn)有：文本框的Name、Text屬性，單項(xiàng)選擇按鈕的Name、Caption、Value屬性，"&"連接符以及If判斷語句?！窘忸}思路】在窗體上添加相應(yīng)的控件并通過屬性窗口設(shè)置其屬性。選擇"交換"單項(xiàng)選擇按鈕并單擊窗體時(shí)，通過一個(gè)文本框的Caption屬性作為中間變量將文本框1和文本框2的內(nèi)容交換，并將文本框的Caption屬性設(shè)為"交換成功"；選擇"連接"單項(xiàng)選擇

7、按鈕并單擊窗體時(shí)，用"&"連接符將文本框1和文本框2中的內(nèi)容順序連接起來?！静僮鞑襟E】步驟1：打開此題工程文件，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.230。步驟2：分析并編寫程序代碼。程序提供代碼Private Sub Text3_Click()'需要考生編寫的內(nèi)容End SubPrivate Sub Form_Unload(Cancel As Integer) Open "out4.txt" For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Te

8、xt2.Text, Lab1.Caption Close #1End Sub程序結(jié)束參考答案 If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = "交換成功" ElseIf Op2 Then Text3.Text = Text1.Text & Text2.Text End If步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。綜合題【考點(diǎn)分析】此題考點(diǎn)有：Sub( )函數(shù)，Int( )函數(shù)，文件操作，App.Path相對路徑，

9、數(shù)組的定義和應(yīng)用，窗體的Print方法和For循環(huán)語句。 【解題思路】在"讀入數(shù)據(jù)"命令按鈕中，通過調(diào)用Sub過程來實(shí)現(xiàn)對"datain1.txt"和"datain2.txt"文件的讀數(shù)據(jù)操作。單擊"計(jì)算"按鈕，利用For循環(huán)實(shí)現(xiàn)將把一個(gè)數(shù)組的元素的第n個(gè)元素除以第二個(gè)數(shù)組的第n個(gè)元素，結(jié)果截尾取整后作為第三個(gè)數(shù)組的第n個(gè)元素，數(shù)字的截尾取整用Int( )函數(shù)來實(shí)現(xiàn)；并用窗體的Print方法將結(jié)果顯示在窗體上。單擊"存盤"按鈕，將結(jié)果存在"Dataout.txt"文件中。【操

10、作步驟】步驟1：打開此題工程文件，添加控件并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.231。步驟2：分析并編寫程序代碼。程序提供代碼Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1() Open App.Path & "" & "datain1.txt" For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1End SubSub

11、 ReadData2() Open App.Path & "" & "datain2.txt" For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1End SubSub WriteData(Filename As String, Num As Integer) Open App.Path & "" & Filename For Output As #1 Print #1, Num Close #1End SubPrivate Sub C1_Click()' 要求考生編寫的內(nèi)容End SubPrivate Sub C2_Click()' 要求考生編寫的內(nèi)容End SubPrivate Sub C3_Click()' 要求考生編寫的內(nèi)容End Sub程序結(jié)束參考答案Private Sub C1_Click() ReadData1 ReadData2End SubPrivate Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) =