第 1 頁:基本操作 |
第 2 頁:簡單應(yīng)用 |
第 3 頁:綜合應(yīng)用 |
2. 簡單應(yīng)用(2小題,每題20分,計40分)
注意:下面出現(xiàn)的“考生文件夾”均為%USER%
(1)在名稱為Form1的窗體上畫一個名稱為Text1的文本框,再建立一個名稱為Format的彈出式菜單,含三個菜單項,標(biāo)題分別為“加粗”、“斜體”、“下劃線”,名稱分別為M1、M2、M3。請編寫適當(dāng)?shù)氖录^程,在運行時當(dāng)用鼠標(biāo)右鍵單擊文本框時,彈出此菜單,選中一個菜單項后,則按所選菜單標(biāo)題設(shè)置文本框中文本的格式,如圖所示。
*注意:
存盤時必須存放在考生文件夾下,工程文件名為sjt3.vbp,窗體文件名為sjt3.frm。
解題思路:
啟動Visual Basic系統(tǒng),創(chuàng)建一個Form1窗體。
在該窗體上畫一個文本框控件,通過其屬性窗口將名稱設(shè)為Text1。通過菜單編輯器建立一個主菜單,在菜單編輯器的標(biāo)題處輸入“格式”(題目沒有要求),名稱處輸入Format,將“可見”單選按鈕設(shè)為不選狀態(tài)。
在該菜單下有三個子菜單,在菜單編輯器的標(biāo)題處分別輸入“加粗”、“斜體”、“下劃線”,名稱處分別輸入M1、M2、M3。
右鍵單擊文本框,在彈出的菜單中選擇“加粗”命令(即運行Click事件過程),在該Click事件過程中加入語句:
Private Sub m1_Click()
Text1.Font.Bold = True
End Sub
右鍵單擊文本框,在彈出的菜單中選擇“斜體”命令(即運行Click事件過程),在該Click事件過程中加入語句:
Private Sub m2_Click()
Text1.Font.Italic = True
End Sub
右鍵單擊文本框,在彈出的菜單中選擇“下劃線”命令(即運行Click事件過程),在該Click事件過程中加入語句:
Private Sub m3_Click()
Text1.Font.Underline = True
End Sub
在文本框中右鍵按下鼠標(biāo)(即運行MouseDown事件過程),在該MouseDown事件過程中加入語句:
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '2表示右鍵的值
PopupMenu format
End If
End Sub
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw
請把這些文件復(fù)制到c:\wexam\26990001中,然后打開sjt3.vbp文件并運行。
(2)在考生文件夾下有一個工程文件sjt4.vbp,含有Form1和Form2兩個窗體,F(xiàn)orm1為啟動窗體,窗體上的控件如圖1所示。程序運行后,在Form1窗體的文本框中輸入有關(guān)信息(“密碼”框中顯示“*”字符),然后單擊“提交”按鈕則彈出“確認(rèn)”對話框(即Form2窗體),并在Form2中顯示輸入的信息,如圖2所示。單擊“確認(rèn)”按鈕則程序結(jié)束,單擊“重輸”按鈕,則Form2消失,回到Form1窗體。在給出的窗體文件中已經(jīng)給出了程序,但不完整。
要求:
1)把Form1的標(biāo)題改為“注冊”,把Form2的標(biāo)題改為“確認(rèn)”;
2)設(shè)置適當(dāng)?shù)膶傩,使Form2標(biāo)題欄上的所有按鈕消失(如圖2所示);
3)去掉程序中的注釋符,把程序中的 ?改為正確的內(nèi)容。
注意:不能修改程序中的其他部分,標(biāo)題等屬性的修改只能在屬性窗口中進(jìn)行。最后把修改后的文件按原文件名存盤。
解題思路:
啟動Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt4.vbp,相應(yīng)的窗體文件名為sjt4.frm。
由于所提供的窗體控件不完整,通過其屬性窗口將Form1的標(biāo)題(Caption屬性)設(shè)為“注冊”,F(xiàn)orm2的標(biāo)題(Caption屬性)設(shè)為“確認(rèn)”,將Form2的所有按鈕(ControlBox屬性)設(shè)為False。
由于所提供的窗體程序不完整,在“確認(rèn)”按鈕的Private Sub C1_Click()中,有三處地方需要修改。
1) 將語句
'Form2. ?
改為
Form2.Show
2) 將語句
'Form2.Print Form1.Frame1. ?
改為
Form2.Print Form1.Frame1.Caption
3) 將語句
'If Form1.Op1( ? ).Value Then
改為
If Form1.Op1(k).Value Then
在窗體的Private Sub Form_Load()中,有一處地方需要修改。
1) 將語句
'Text2. ? = "*"
改為
Text2.PasswordChar = "*"
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw
請把這些文件復(fù)制到c:\wexam\26990001中,然后打開sjt4.vbp文件并運行。
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |