【正文】 p。 \ amp。 Filename For Output As 1Print 1, Num Close 1End Sub程序結(jié)束參考答案Private Sub C1_Click() Call ReadData1 Call ReadData2End SubPrivate Sub C2_Click() Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) Arr2(i) sum = sum + Arr3(i) Next i Print sum=。 sum WriteData , sum End Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。 【舉一反三】可以通過第15套第三大題來進(jìn)行同類知識(shí)點(diǎn)練習(xí)。第7套題解析題目一：基本操作題(1)【解題思路】復(fù)選框的一個(gè)特殊屬性是Value屬性，它的取值和用法與單選按鈕有所差別。若Value屬性的值取為0，代表復(fù)選框處于未選中狀態(tài)，此時(shí)復(fù)選框的選項(xiàng)部分是一個(gè)空白的小方塊；若Value屬性的值取為1，代表復(fù)選框處于選中狀態(tài)，此時(shí)復(fù)選框的選項(xiàng)部分是一個(gè)帶有√標(biāo)記的小方塊；若Value屬性的值取為2，代表復(fù)選框處于禁止選擇狀態(tài)。系統(tǒng)默認(rèn)值為0，即未選中狀態(tài)。復(fù)選框是否可用通過其Enabled屬性設(shè)置。【操作步驟】步驟1：建立界面，在窗體中創(chuàng)建一個(gè)標(biāo)簽和一個(gè)復(fù)選框數(shù)組Ch1，數(shù)組中包含3個(gè)復(fù)選框。步驟2：按照步驟1設(shè)置窗體中各個(gè)控件的屬性。 控件標(biāo)簽復(fù)選框1屬性Name Caption Caption Index Value設(shè)置值 L1控件 復(fù)選框2業(yè)余愛好 體育 01復(fù)選框3屬性Caption IndexEnabledCaptionIndex設(shè)置值 音樂1False美術(shù)2步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過第41套第二大題第二小題來進(jìn)行同類知識(shí)點(diǎn)練習(xí)。 (2)【解題思路】文本框的Visible屬性用于設(shè)置其在運(yùn)行時(shí)是否可見。通過菜單編輯器窗口建立菜單項(xiàng)。【操作步驟】步驟1：新建一個(gè)標(biāo)準(zhǔn)EXE工程，在窗體中添加個(gè)文本框，在屬性設(shè)置窗口中將其Name屬性值設(shè)置為Text1。打開菜單設(shè)計(jì)器。 標(biāo)題操作 顯示隱藏名稱M1Show Hide內(nèi)縮符號(hào)步驟2：編寫程序代碼。參考答案Private Sub Hide_Click() = FalseEnd SubPrivate Sub Show_Click() = TrueEnd Sub011步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過第45套第一大題第二小題來進(jìn)行同類知識(shí)點(diǎn)練習(xí)。題目二：簡(jiǎn)單應(yīng)用題(1)【解題思路】PasswordChar屬性用于屏蔽文本框中內(nèi)容的字符，如果要去掉對(duì)文本框中輸入內(nèi)容的屏蔽，需將其PasswordChar屬性值清空?！静僮鞑襟E】步驟1：新建一個(gè)窗體，在窗體中添加兩個(gè)文本框，三個(gè)命令按鈕和一個(gè)標(biāo)簽。步驟2：在窗體中設(shè)置各個(gè)控件的屬性。 步驟3：編寫程序代碼。參考答案Private Sub C1_Click() = End SubPrivate Sub C2_Click() = ? End SubPrivate Sub C3_Click() = End Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過第42套第二大題第一小題來進(jìn)行同類知識(shí)點(diǎn)練習(xí)。(2)【解題思路】通用對(duì)話框Action屬性用于設(shè)置被打開對(duì)話的類型。當(dāng)通用對(duì)話框顯示為打開或另存為類型時(shí)，其FileName屬性用于返回或設(shè)置所選文件的路徑和文件名。Filter(過濾器)屬性用于指定在對(duì)話框的文件列表中顯示文件的類型。例如，過濾器為 *.txt，表示顯示所有的文本文件。語法為：對(duì)象名．Filter ＝描述|文件擴(kuò)展名。通用對(duì)話框的InitDir屬性用于為打開或另存為對(duì)話框指定初始的目錄，如果此屬性沒有指定，則使用當(dāng)前目錄。【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立圖片框及通用對(duì)話框控件，設(shè)置圖片框及通用對(duì)話框相應(yīng)屬性。 控件屬性通用對(duì)話框FliterFliterIndexInitDir設(shè)置值Word文檔| *.doc 1C:步驟2：分析并編寫程序代碼。參考答案Private Sub P1_Click() End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。 【舉一反三】可以通過第32套第二大題第二小題來進(jìn)行同類知識(shí)點(diǎn)的練習(xí)。題目三：綜合應(yīng)用題【解題思路】StrReverse函數(shù)用于返回一個(gè)字符串，其中一個(gè)指定子字符串的字符順序是反向的。語法：StrReverse(string1) 參數(shù)string1是一個(gè)字符串，它的字符順序要被反向。如果string1是一個(gè)長(zhǎng)度為零的字符串()，則返回一個(gè)長(zhǎng)度為零的字符串。如果string1為Null，則產(chǎn)生一個(gè)錯(cuò)誤。Mid函數(shù)用于取字符子串。語法：Mid(stringvar, start[, length]) ＝ string在stringvar中從start位置開始向右取length個(gè)字符。Input(LOF(1),1) Input 是一個(gè)函數(shù)，返回指定文件中的指定字符。LOF 函數(shù)返回文件長(zhǎng)度，參數(shù)為文件號(hào)。Input 函數(shù)，第一參數(shù)為返回字符數(shù)，第二參數(shù)為文件號(hào)，兩個(gè)1都指第1號(hào)文件。這條語句的用來讀取1號(hào)文件的所有內(nèi)容。【操作步驟】步驟1：打開本題工程文件，按照題目要求建立標(biāo)簽控件并設(shè)置標(biāo)簽的Caption屬性為回文個(gè)數(shù)為，再添加一個(gè)文本框Text1，并設(shè)置文本框的初始內(nèi)容為空。步驟2：分析并編寫程序代碼。程序提供代碼Option Base 1 Dim s As String Private Sub Command1_Click()Open amp。 \ For Input As 1s = Input(LOF(1), 1)Close 1End SubPrivate Sub Command2_Click()Dim n As Integer, t As String, word num As Integern = Len(s): t = For i = 1 To n c = Mid(s, i, 1) If c Then t = t + c Else If foundhuiwen(t) Thenword num = word num + 1 End If t = End If Next i = word num End Sub39。以下Function 過程用于判斷字符串是否為回文Function foundhuiwen(p As String)39?？忌帉慐nd Function Private Sub Form_Unload(Cancel As Integer)Open amp。 \ For Output As 1 Print 1, Close 1End Sub程序結(jié)束參考答案Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function 步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。 【舉一反三】可以通過第35套第二大題第二小題來進(jìn)行同類知識(shí)點(diǎn)練習(xí)。第8套題解析題目一：基本操作題(1) 【解題思路】復(fù)選框(CheckBox)組常用于提供多個(gè)選項(xiàng)間的多重選擇，Value屬性值決定每個(gè)復(fù)選框的選中狀態(tài)：0－Unchecked為未選，1－Checked為選中，2－Grayed為變灰色。選擇某復(fù)選框后，該復(fù)選框?qū)@示√，而取消選擇后，√消失?！静僮鞑襟E】步驟1：新建一個(gè)窗體，在窗體中添加四個(gè)復(fù)選框控件并設(shè)置窗體和四個(gè)復(fù)選框的屬性。控。 步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過第32套第二大題第一小題來進(jìn)行同類知識(shí)點(diǎn)練習(xí)。(2) 【解題思路】滾動(dòng)條常用于取代數(shù)據(jù)的鍵盤輸入，通過調(diào)整滾動(dòng)條滑塊的位置即可改變其Value屬性的值。滾動(dòng)條的Max屬性、Min屬性限定了滾動(dòng)條所能表示的最大值和最小值，即Value屬性值的取值范圍，在程序中改變Value屬性的值，滾動(dòng)條滑塊會(huì)隨之移動(dòng)到相應(yīng)位置。在單擊命令按鈕觸發(fā)的Click事件中加入讓滾動(dòng)條的Value屬性值加10的語句，在每次單擊命令按鈕后，滾動(dòng)條就向右移動(dòng)10個(gè)刻度?！静僮鞑襟E】步驟1：新建一個(gè)窗體，在窗體中添加一個(gè)水平滾動(dòng)條和一個(gè)命令按鈕控件，并設(shè)置其屬性。 步驟2：編寫程序代碼。參考答案Private Sub C1_Click() = + 10 End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。 【舉一反三】可以通過第27套第一大題第二小題來進(jìn)行同類知識(shí)點(diǎn)的練習(xí)。題目二：簡(jiǎn)單應(yīng)用題(1) 【解題思路】PopupMenu方法用來顯示彈出菜單，語法格式為： menuname，flags，x, y，boldmand要?jiǎng)?chuàng)建彈出式菜單需先用菜單編輯器來建立菜單，并將其主菜單項(xiàng)的可見(即Visible)屬性值設(shè)置為False，然后在對(duì)象的MouseDown(或MouseUp)事件過程中，通過判斷該事件的Button參數(shù)值是否為2，若是則執(zhí)行對(duì)象的PopupMenu方法來顯示菜單。FontSize屬性、FontBold屬性、FontItalic屬性、FontStrikethru 屬性和 FontUnderline 屬性可分別用來設(shè)置字體的大小和樣式。【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立文本框控件及一個(gè)彈出式菜單并設(shè)置菜單屬性。步驟2：設(shè)置子菜單項(xiàng)的相關(guān)屬性。 標(biāo)題控件(任意)加粗 斜體 下劃線名稱Format M1M2M3內(nèi)縮符號(hào)步驟3：分析并編寫程序代碼。參考答案Private Sub M1_Click() = True End SubPrivate Sub M2_Click() = True End SubPrivate Sub M3_Click() = TrueEnd Sub0111Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Format End If End Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【舉一反三】可以通過第12套第一大題第二小題來進(jìn)行同類知識(shí)點(diǎn)的練習(xí)。(2) 【解題思路】修改窗體標(biāo)題是通過設(shè)置其Caption屬性來實(shí)現(xiàn)的，ControlBox屬性用于設(shè)置控制菜單框是否在窗體標(biāo)題欄中顯示，為在窗體標(biāo)題欄中只顯示標(biāo)題信息，需將該屬性值設(shè)置為False。文本框的PasswordChar屬性可設(shè)置用于屏蔽在文本框中輸入內(nèi)容的字符，如*。【操作步驟】步驟1：打開本題工程文件，按照題目要求設(shè)置屬性，將Form1的Caption屬性設(shè)置為注冊(cè)，將Form2的Caption屬性設(shè)置為確認(rèn)，然后將Form2的ControlBox屬性設(shè)置為False。步驟2：分