【正文】 步驟2：分析并編寫。文本框的PasswordChar屬性可設置用于屏蔽在文本框中輸入內容的字符，如*?！九e一反三】可以通過第12套第一大題第二小題來進行同類知識點的練習。 標題控件(任意)加粗 斜體 下劃線名稱Format M1M2M3內縮符號步驟3：分析并編寫程序代碼?！静僮鞑襟E】步驟1：新建一個窗體，按照題目要求建立文本框控件及一個彈出式菜單并設置菜單屬性。題目二：簡單應用題(1) 【解題思路】PopupMenu方法用來顯示彈出菜單，語法格式為： menuname，flags，x, y，boldmand要創(chuàng)建彈出式菜單需先用菜單編輯器來建立菜單，并將其主菜單項的可見(即Visible)屬性值設置為False，然后在對象的MouseDown(或MouseUp)事件過程中，通過判斷該事件的Button參數值是否為2，若是則執(zhí)行對象的PopupMenu方法來顯示菜單。參考答案Private Sub C1_Click() = + 10 End Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。在單擊命令按鈕觸發(fā)的Click事件中加入讓滾動條的Value屬性值加10的語句，在每次單擊命令按鈕后，滾動條就向右移動10個刻度。(2) 【解題思路】滾動條常用于取代數據的鍵盤輸入，通過調整滾動條滑塊的位置即可改變其Value屬性的值。 步驟2：調試并運行程序，關閉程序后按題目要求存盤?！静僮鞑襟E】步驟1：新建一個窗體，在窗體中添加四個復選框控件并設置窗體和四個復選框的屬性。第8套題解析題目一：基本操作題(1) 【解題思路】復選框(CheckBox)組常用于提供多個選項間的多重選擇，Value屬性值決定每個復選框的選中狀態(tài)：0－Unchecked為未選，1－Checked為選中，2－Grayed為變灰色。 \ For Output As 1 Print 1, Close 1End Sub程序結束參考答案Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function 步驟3：調試并運行程序，關閉程序后按題目要求存盤。以下Function 過程用于判斷字符串是否為回文Function foundhuiwen(p As String)39。程序提供代碼Option Base 1 Dim s As String Private Sub Command1_Click()Open amp?！静僮鞑襟E】步驟1：打開本題工程文件，按照題目要求建立標簽控件并設置標簽的Caption屬性為回文個數為，再添加一個文本框Text1，并設置文本框的初始內容為空。Input 函數，第一參數為返回字符數，第二參數為文件號，兩個1都指第1號文件。Input(LOF(1),1) Input 是一個函數，返回指定文件中的指定字符。Mid函數用于取字符子串。如果string1是一個長度為零的字符串()，則返回一個長度為零的字符串。題目三：綜合應用題【解題思路】StrReverse函數用于返回一個字符串，其中一個指定子字符串的字符順序是反向的。參考答案Private Sub P1_Click() End Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤?！静僮鞑襟E】步驟1：新建一個窗體，按照題目要求建立圖片框及通用對話框控件，設置圖片框及通用對話框相應屬性。語法為：對象名．Filter ＝描述|文件擴展名。Filter(過濾器)屬性用于指定在對話框的文件列表中顯示文件的類型。(2)【解題思路】通用對話框Action屬性用于設置被打開對話的類型。參考答案Private Sub C1_Click() = End SubPrivate Sub C2_Click() = ? End SubPrivate Sub C3_Click() = End Sub步驟4：調試并運行程序，關閉程序后按題目要求存盤。步驟2：在窗體中設置各個控件的屬性。題目二：簡單應用題(1)【解題思路】PasswordChar屬性用于屏蔽文本框中內容的字符，如果要去掉對文本框中輸入內容的屏蔽，需將其PasswordChar屬性值清空。參考答案Private Sub Hide_Click() = FalseEnd SubPrivate Sub Show_Click() = TrueEnd Sub011步驟3：調試并運行程序，關閉程序后按題目要求存盤。打開菜單設計器。通過菜單編輯器窗口建立菜單項?！九e一反三】可以通過第41套第二大題第二小題來進行同類知識點練習。步驟2：按照步驟1設置窗體中各個控件的屬性。復選框是否可用通過其Enabled屬性設置。若Value屬性的值取為0，代表復選框處于未選中狀態(tài)，此時復選框的選項部分是一個空白的小方塊；若Value屬性的值取為1，代表復選框處于選中狀態(tài)，此時復選框的選項部分是一個帶有√標記的小方塊；若Value屬性的值取為2，代表復選框處于禁止選擇狀態(tài)。 【舉一反三】可以通過第15套第三大題來進行同類知識點練習。 Filename For Output As 1Print 1, Num Close 1End Sub程序結束參考答案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=。 For Input As 1 For i = 1 To 20Input 1, Arr2(i)Next iClose 1End SubSub WriteData(Filename As String, Num As Integer)Open amp。 For Input As 1 For i = 1 To 20 Input 1, Arr1(i)Next iClose 1End SubSub ReadData2()Open amp。程序提供代碼Option Base 1 Dim Arr1(20) As IntegerDim Arr2(20) As IntegerSub ReadData1()Open amp。步驟2：按照步驟1設置兩個命令按鈕控件的屬性。如果指定了這個關鍵字，則argumentlist必須加上括號，例如：Call MyProc(0) ，name是必要參數，要調用的過程名稱。Call語句將控制權轉移到一個 Sub 過程，F(xiàn)unction 過程，或動態(tài)連接庫 (DLL)過程?！九e一反三】可以通過第40套第二大題第二小題來進行同類知識點練習。 \ amp。步驟2：分析并編寫程序代碼。可利用For循環(huán)語句來逐個判斷0～1000范圍內的整數能否被7整除，然后用一個變量來統(tǒng)計不能被7整除的整數個數。【舉一反三】可以通過第40套第二大題第一小題來進行同類知識點練習。? = arrN(1)For i = 2 To 3039。程序提供代碼Option Base 1 Private Sub Command1_Click()Dim arrN(30) As IntegerDim Min As IntegerRandomizeFor i = 1 To 3039。【操作步驟】步驟1：打開本題工程文件。其中，upperbound 是隨機數范圍的上限，lowerbound 則是隨機數范圍的下限。為使每次程序運行時，得到不同的隨機數數列，在使用 Rnd()函數產生隨機數前應用Randomize語句對隨機數生成器進行初始化，該生成器能根據系統(tǒng)計時器得到新的種子值。 【舉一反三】可以通過第47套第一大題第二小題來進行同類知識點練習。 控件屬性設置值步驟2：編寫程序代碼?！静僮鞑襟E】步驟1：新建一個窗體，在窗體中添加標簽控件并設置標簽的相應屬性。(2) 【解題思路】標簽的BorderStyle屬性用于設置標簽的邊框樣式，值為0表示無邊框，值為1表示有固定邊框。步驟2：調試并運行程序，關閉程序后按題目要求存盤?！静僮鞑襟E】步驟1：新建一個窗體，在窗體中添加一個命令按鈕控件并設置命令按鈕和窗體的相應屬性?！九e一反三】可以通過第28套第三大題來進行同類知識點練習。 Arr(i) amp。 \ amp。 \ amp。 標題控件讀入數據 計算并輸出 存盤名稱內縮符號控件Read0文本框 Calc0Save0屬性Name MultiLine ScrollBars Text設置值Text1TRUE 2步驟2：分析并編寫程序代碼。語法：Space(number)必要的 number 參數為字符串中想要的空格數，Space 函數在格式輸出或清除固定長度字符串數據時很有用。ScrollBars屬性設置文本框是否有水平或垂直滾動條，它有0、3四種值，0表示沒有滾動條(默認值),1表示只有水平滾動條，2表示只有垂直滾動條，3表示有水平和垂直滾動條，設置0以外的值時MultiLine屬性值必須為True。【舉一反三】可以通過第26套第二大題第二小題來進行同類知識點練習。If a(i) ? Min Then Min = ? Next i FindMin = MinEnd Function Private Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(), Val(), Val(), Val())For i = 1 To 4arr2(i) = CInt(arr1(i))Next i39。39。Start = ？(a) 39。步驟2：分析并編寫程序代碼。在本題的FindMin過程中，用變量Min記錄最小值，最初把數組的第一個元素的值賦給Min，然后通過For循環(huán)語句將其后的元素依次與之比較，如果小于Min的值則與之交換，依次類推，最終Min的值就是數組各元素中的最小值。CInt 函數將一數值轉換為整型。【舉一反三】可以通過第26套第二大題第一小題來進行同類知識點練習。If (i) = ? Then39。 ? If Button = 2 Then = InputBox(請輸入要刪除的項目)39。 控件屬性列表框 文本框Name Name設置值步驟2：分析并編寫程序代碼。helpfile，context：helpfile是一個字符串變量或字符串表達式，用來表示幫助文件的名稱；context是一個數值變量或表達式，用來表示相關幫助主題的幫助目錄號。default：是一個字符串，用來顯示輸入緩沖區(qū)的默認信息。程序中用到了InputBox()函數，其格式為：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])prompt：是一個字符串，其長度不得超過1024個字符，它是在對話框內顯示的信息，用來提示用戶輸入。向列表框添加項目使用AddItem方法，刪除列表項使用RemoveItem方法。 【舉一反三】可以通過第26套第一大題第二小題來進行同類知識點的練習。 步驟3：編寫程序代碼?！静僮鞑襟E】步驟1：新建一個窗體，在窗體上添加一個圖片框，一個水平滾動條和一個命令按鈕。通過調整滾動條滑塊的位置即可改變其Value屬性的值，滾動條的Max、Min屬性限定了滾動條所能表示的最大值和最小值，LargeChange屬性用于設置當單擊滑塊與兩側箭頭間區(qū)域時Value屬性值的改變量，SmallChange屬性用于設置當單擊滾動條兩側箭頭時Value屬性值的改變