本文格式為Word版，下載可任意編輯——全國計算機等級考試二級VB上機試題及答案（六）全國計算機等級考試二級VB上機試題及答案(六)

基本操作（2小題，每題15分，共30分）

****************************************************************請根據(jù)以下各小題的要求設計VB應用程序（包括界面和代碼）。難度系數(shù)☆☆☆

請根據(jù)以下各個小題的要求設計VisualBasic應用程序（包括界面和代碼）。

（1）在名稱為Form1的窗體上畫一個文本框，名稱為Text1；再畫一個命令按鈕，名稱為C1，標題為\移動\（如下圖）。請編寫適當?shù)氖录^程，使得在運行時，單擊\移動\按鈕，則文本框水平移動到窗體的最左端。程序中不得使用任何變量。程序運行時的界面如下圖。

（2）在名稱為Form1的窗體上畫兩個命令按鈕（見圖），其名稱分別為Cmd1和Cmd2，編寫適當?shù)氖录^程。程序運行后，假使單擊Cmd1，則可以使得該按鈕移動到窗體的左上角（只允許通過修改屬性的方式實現(xiàn)）；假使單擊Cmd2，則可以使得該按鈕在長度和寬度上各擴大到原來的2倍。要求：不得使用任何變量。程序運行后的界面如下圖。

****************************************************************

參考答案與分析

（1）

單擊命令按鈕實現(xiàn)文本框的移動，故在命令按鈕的Click事件中調(diào)用文本框的Move方法，其語法格式為：Object.Moveleft,top,width,height其中只有l(wèi)eft參數(shù)是必需的，必需指出出現(xiàn)在語法中的該參數(shù)前面的全部參數(shù)。假使不先指定left和top參數(shù)，則無法指定width參數(shù)。任何沒有指定的尾部的參數(shù)則保持不變。

第一步：啟動VB，新建一個工程文件。

其次步：在窗體上畫一個文本框，Name屬性為Text，Text屬性為空，再畫一個命令按鈕，Name屬性為C1，Caption屬性為\顯示\。第三步：編寫程序源代碼：1PrivateSubC1_Click()2Text1.Move03EndSub

第四步：調(diào)試并運行程序，運行正確后按要求保存。程序設計完成經(jīng)調(diào)試無誤后進行存盤。執(zhí)行\(zhòng)文件\菜單中的\保存工程\命令，開啟\文件另存為\對話框，窗體文件名為\，單擊保存按鈕。然后在緊接著出現(xiàn)的\工程另存為\對話框中選擇工程文件名為\，單擊保存按鈕。（2）

實現(xiàn)按鈕的移動主要調(diào)用它的Move方法，其語法如下：Object.Moveleft,top,width,height其中只有l(wèi)eft參數(shù)是必需的，必需指出出現(xiàn)在語法中的該參數(shù)前面的全部參數(shù)。例如不先指定left和top參數(shù)，則無法指定width參數(shù)。任何沒有指定的尾部的參數(shù)則保持不變。

窗體的左上角的坐標為（0，0），故將Cmd1移動到窗體的左上角，只要將Cmd1移動到（0，0）即可；另外要使得Cmd2的長度和寬度均為原來的2倍，只要將其的Width和Height均設置為原來的2倍即可。

第一步：啟動VB，新建一個工程文件。其次步：在窗體上畫兩個命令按鈕，設置它們的Name和Caption屬性均改為Cmd1和Cmd2。

第三步：編寫程序源代碼：1PrivateSubCmd1_Click()2Cmd1.Move0,03EndSub

4PrivateSubCmd2_Click()5Cmd2.Width=Cmd2.Width*26Cmd2.Height=Cmd2.Height*27EndSub

第四步：調(diào)試并運行程序，程序設計完成經(jīng)調(diào)試無誤后進行存盤。以Stj2.vbp和sjt2.frm進行保存。

簡單操作（2小題，每題20分，共40分）

****************************************************************請根據(jù)以下各小題的要求設計VB應用程序（包括界面和代碼）。（1）（在考生文件夾下有一個工程文件stj3.vbp，相應的窗體文件名為stj3.frm。在窗體上有兩個命令按鈕，其名稱分別為Command1、Command2，一個標簽控件，其名稱為Lable1，一個計時器控件，其名稱為Timer1。程序運行后，在命令按鈕Command1中顯示\開始\，在命令按鈕Command2中顯示\中止\，在標簽中用字體大小為16的粗體顯示\猛烈歡迎\（標簽的AutoSize屬性為True），同時把計時器的Interval屬性設置為50，Enabled屬性設為True。此時假使單擊\開始\命令按鈕，則該按鈕變?yōu)榻?，標題變?yōu)閈繼續(xù)\，同時標簽會自左向右移動，每個時間間隔移動20，如下圖，移動出窗體右邊界后，自動從左邊界向右移動；假使單擊\中止\命令按鈕，則該按鈕變?yōu)榻茫琝繼續(xù)\按鈕變?yōu)橛行?，同時標簽中止移動；再次單擊\繼續(xù)\命令按鈕后，標簽繼續(xù)移動。

這個程序不完整，請把它補充完整，并能正確運行。要求：去掉程序中的解釋符，把程序中的？改為正

確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序的其他部分，最終以原文件名保存。

試題源程序：

1PrivateSubForm_Load()2Command1.Caption=\開始\3Command2.Caption=\中止\4Timer1.Interval=505Timer1.Enabled=False

6Label1.Caption=\猛烈歡迎\7Label1.AutoSize=True8Label1.FontSize=169Label1.FontBold=True10EndSub

11PrivateSubCommand1_Click()12Command1.Caption=\繼續(xù)\13'Timer1.Enabled=?14'Command1.Enabled=?15Command2.Enabled=True16EndSub

17PrivateSubCommand2_Click()1