基本操作題，請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)

　　1在名稱為Forml的窗體上添加兩個名稱分別為Textl和Text2的文本框，初始內容均為空;再建立一個下拉菜單，菜單標題為“操作”，名稱為Ml，此菜單下含有兩個菜單項，名稱分別為Copy和Clear，標題分別為“復制”、“清除”，請編寫適當的事件過程，使得在程序運行時，單擊“復制”選項菜單，則把Textl中的內容復制到Text2中，單擊“清除”選項菜單，則清除Text2中的內容(即在Text2中填人空字符串)。運行時的窗體如圖所示。要求在程序中不得使用任何變量，每個事件過程中只能寫一條語句。

　　注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sit2.frm。

　　【考點分析】本題考點有：菜單編輯器的使用(標題、名稱、內縮符號)，菜單Click事件以及文本框的Text和Name屬性。

　　【解題思路】在編輯窗體中單擊鼠標右鍵選擇“菜單編輯器”來創建菜單，在菜單的Click事件中，通過對Text2.Text屬性的設置來完成對內容的清除和復制。

　　【操作步驟】

　　步驟1：新建窗體，按表3.2建立菜單項并設置其屬性，如圖3.7所示。

　　步驟2：同步驟1，輸入第3項的標題和名稱，單擊確定即可。

　　步驟3：添加文本框控件，按表3.3設置文本框的屬性。

　　步驟4：打開代碼編寫窗口，編寫程序代碼，如圖3.8所示。

　　參考答案

　　Private Sub Clear_Click()

　　Text2.Text=””

　　End Sub

　　Private Sub Copy_Click()

　　Text2.Text=Textl.Text

　　End Sub

　　步驟5：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】在清除文本框Text2的內容時不能使用cls方法，必須通過賦值空字符串來實現，在賦值過程時，注意要在英文狀態下編寫代碼，區分“"和"”。

　　2在名稱為Forml的窗體上添加兩個名稱分別為Textl和Text2的文本框，它們的高、寬分別為300、2400和1200、2400。窗體的標題為“窗口”。請通過屬性窗口設置適當的屬性，滿足如下要求：

　　①Text2可以顯示多行文本，并且有垂直和水平兩個滾動條;

　　②程序運行時在Textl中顯示輸入的字符為“*”。

　　程序運行后的窗體如圖所示。

　　注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjtl.vbp，窗體文件名保存為sjtl.frm。

　　【考點分析】本題考點有：窗體的Caption屬性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars屬性。

　　【解題思路】文本框控件的MuhiLine屬性用于設置文本框是否顯示多行文本，值為True表示是，值為False則表示否。ScrollBars屬性設置文本框是否有水平或垂直滾動條，它有0、l、2和3這4個值，0表示沒有滾動條(默認值)，1表示只有水平滾動條，2表示只有垂直滾動條，3表示有水平和垂直滾動條。文本框的PasswordChar屬性常用于設置用某字符(如“*”)屏蔽用戶在文本框中鍵入的內容，常用于口令輸入。

　　【操作步驟】

　　步驟1：新建一個窗體，按照題目要求建立文本框控件并設置其屬性，程序中涉及的控件及屬性見表3.8和表3.9。

　　步驟2：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】由于ScrollBars屬性的設置值較多，易混亂，請考生牢記4個值分別設置的文本框滾動條屬性。

　　簡單應用題

　　3在考生文件夾下有一個工程文件sjr4.vbp。窗體上的控件如圖所示。程序運行時，若選中“累加”單選按鈕，則“10”、“l2”菜單項不可用，若選中“階乘”單選按鈕，則“1000”、“2000”菜單項不可用(如圖所示)。選中菜單中的一個菜單項后，單擊“計算”按鈕，則相應的計算結果在文本框中顯示(例如，選中“累加”和“2000”，則計算1+2+3+…+2000，選中“階乘”和“10”，則計算10!。單擊“存盤”按鈕則把文本框中的結果保存到考生文件夾下的out4.dat文件中。

　　要求：編寫“計算”按鈕的Click事件過程。

　　注意：不得修改已經存在的程序，在結束程序運行之前，必須用“存盤”按鈕存儲計算結果，否則無成績。最后，程序按原文件名存盤。

　　【考點分析】本題考點有：單選按鈕的Value屬性、菜單項的Enabled屬性、菜單編輯器的使用、文件編輯、文本框的Text屬性、For循環語句、If判斷語句以及App.Path相對路徑。

　　【解題思路】本題的語句比較多，先看一下程序實現的過程，通過單選按鈕決定是進行階乘還是累加運算，并確定4個菜單項的Enabled屬性，在菜單項的Click事件過程中，設置n的值，運用If判斷語句判斷n值，進行累加或階乘運算，然后通過文件編輯實現存盤操作。

　　【操作步驟】

　　步驟1：打開本題工程文件;

　　步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

　　參考答案：

　　步驟3：調試并運行程序.關閉程序后按題目要求存盤。

　　4在考生文件夾下有一個工程文件sit3.vbp(相應的窗體文件名為sit3.frm)，在窗體上添加一個名稱為Listl的列表框和一個名稱為Textl的文本框，如圖1所示。編寫窗體的MouseDown事件過程。程序運行后，如果用鼠標單擊窗體，則從鍵盤上輸入要添加到列表框中的項目(內容任意，不少于三個);如果用鼠標右鍵單擊窗體，則從鍵盤上輸入要刪除的項目，將其從列表框中刪除。程序的運行情況如圖2所示。這個程序不完整，請把它補充完整，并能正確運行。

　　要求：去掉程序中的注釋符，把程序中的?改為適當的內容，使其正確運行，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

　　【考點分析】本題考點有：列表框的Name、List和ListCount屬性，文本框的Name和Text屬性，Removehem方法，InputBox函數，For循環語句以及If判斷語句。

　　【解題思路】當在窗體上按下鼠標鍵時將觸發其Mouse-Down事件，該事件過程的參數Button值為1時表示當前按下的是鼠標左鍵;當Button值為2時表示當前按下的是鼠標右鍵。向列表框添加項目使用Addhem方法，刪除列表項使用Removehem方法。當執行刪除操作時，本題在For循環語句中逐一判斷列表中各項是否與輸入內容一致，若一致則刪除列表框中該項。

　　程序中用到了InputBox()函數，其格式為：

　　InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])

　　其中常用參數為prompt和title。prompt是一個字符串，其長度不得超過1024個字符，它是在對話框內顯示的信息，用來提示用戶輸入。

　　title：是一個字符串，它是對話框的標題，顯示在對話框頂部的標題區。

　　【操作步驟】

　　步驟1：打開本題工程文件，按表3.18所列在窗體畫出控件并設置其屬性。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號改為正確的內容。

　　參考答案(橫線部分是需考生填入的內容)

　　Private Sub Form_MouseDown (Button As Integer，Shift As Integer，X As Single，Y As Single)

　　If Button=1 Then

　　Text1.Text=InputBox("請輸入要添加的項目")

　　List1.AddItem___Text1.Text_______´將Textl中的內容加入列表

　　End If

　　If Button=2 Then

　　Text1.Text=InputBox("請輸入要刪除的項目")

　　´列表總數用LiStCount求得

　　For =0 To_____List1.ListCount-1_____

　　´判斷列表項是否為要刪除的項

　　If List1.List(i)=____Text1.text______

　　Then

　　´刪除i所對應的項

　　List1.RemoveItem____i______

　　End If

　　Next i

　　End If

　　End Sub

　　程序結束

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】列表數組List(i)下標從0開始，列表項的循環上限應為ListCount-1，要注意InputBox語句的格式。

　　綜合操作題

　　5在考生文件夾下有一個工程文件sjt5.vbp，其窗體上有兩個標簽L1和L2，標題分別為“口令”和“允許次數”;一個命令按鈕c1，標題為“確定”;兩個文本框名稱分別為Text1和Text2。其中Textl用來輸入口令(輸入時，文本框內容顯示“*”)，初始內容為空;Text2的初始內容為3。并給出了c1的事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內容，使得程序運行時，在Textl中輸入口令后，單擊“確定”，如果輸入的是“l23456”則在Textl中顯示“口令正確”;如果輸入其他內容，單擊“確定”后，彈出錯誤提示對話框(如圖所示)，并且Text2中的數字減1。最多可輸入3次口令，若3次都輸入錯誤，則禁止再次輸入。

　　注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

　　【考點分析】本題考點有：文本框的Text、PasswordChar和Enabled屬性，&連接符以及MsgBox()函數。

　　【解題思路】本題通過判斷文本框Textl輸入的密碼是否為“123456”執行不同的操作。每輸入…次錯誤密碼，將提示重新輸人，直到文本框Text2中的數值為0時，則提示錯誤，并禁用文本框Textl。

　　【操作步驟】

　　步驟1：打開本題工程文件，將文本框Textl的Password-Char屬性設置為“*”。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符，將問號改為正確的內容。

　　參考答案(陰影部分是需考生填入的內容)

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。