3. 綜合應用(1小題，計30分)

　　注意：下面出現的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，其名稱為Form1的窗體上已有三個文本框Text1、Text2、Text3，以及程序。請完成以下工作：

　　1)在屬性窗口中修改 Text3的適當屬性，使其在運行時不顯示，作為模擬的剪貼板使用。窗體如圖所示;

　　2)建立下拉式菜單，如下表所示;

　　3)窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內容。以便實現以下功能： 當光標所在的文本框中無內容時，“剪切”、“復制”不可用，否則可以把該文本框中的內容剪切或復制到Text3中;若Text3中無內容，則“粘貼”不能用，否則可以把Text3中的內容粘貼在光標所在的文本框中的內容之后。

　　注意：

　　不能修改程序中的其他部分。各菜單項的標題名稱必須正確。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。

　　由于所提供的窗體控件不完整，通過其屬性窗口將Text3的Visible屬性設為True。通過菜單編輯器建立一個主菜單，在菜單編輯器的標題處輸入“編輯”，名稱處輸入Edit，在該菜單下有三個子菜單，在菜單編輯器的標題處分別輸入“剪切”、“復制”、“粘貼”，名稱處分別輸入Cut、Copy和Paste。

　　由于所提供的窗體程序不完整，在“編輯”主菜單的Private Sub Edit_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　'If which = ? Then

　　改為

　　If which = 1 Then

　　2) 將語句

　　'ElseIf which = ? Then

　　改為

　　ElseIf which = 2 Then

　　在“粘貼”子菜單的Private Sub Paste_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　'Text1.Text = ?

　　改為

　　Text1.Text = Text1 + Text3

　　2) 將語句

　　'Text2.Text = ?

　　改為

　　Text2.Text = Text2 + Text3

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總