四、綜合應(yīng)用題

　　43在考生文件夾下有工程文件sj5.vbp及窗體文件sj5.frm，另有兩個(gè)圖片，名稱為笑臉與哭臉。窗體及其控件屬性都設(shè)置完畢，但缺少程序代碼，要求考生編寫適當(dāng)?shù)拇a，以實(shí)現(xiàn)下面描述的功能。存盤時(shí)不得改變文件名和文件夾。

　　本題描述如下：在名稱為Form1的窗本上有兩個(gè)命令按鈕，兩個(gè)文本框與兩個(gè)圖片框。其中圖片框控件的AutoSize屬性為True，名稱分別為Pic1與Pic2;兩個(gè)命令按鈕的名稱分別為Command1與Command2,標(biāo)題分別為"加1"與"減1";兩個(gè)文本框名稱分別為Text1和Text2，Text1的Text屬性為"李明"，Text2的Text屬性為0。

　　程序運(yùn)行時(shí)，"減1"按鈕不可用，單擊"加1"按鈕，Text2內(nèi)的計(jì)數(shù)加1，"減1"按鈕變?yōu)榭捎�，同時(shí)圖片框中顯示笑臉圖片。單擊"減1"按鈕，Text2內(nèi)的計(jì)數(shù)減1，當(dāng)計(jì)數(shù)減到0時(shí)，Command2不可用，同時(shí)圖片框中顯示哭臉圖片。程序運(yùn)行情況如圖25-5所示。

　　參考解析：

　　本題重點(diǎn)考查控件的顯示與隱藏、有效與無(wú)效功能的實(shí)現(xiàn)。Visible屬性用于設(shè)置控件是否可見(jiàn)，值為True表示可見(jiàn)，值為False表示不可見(jiàn);Enabled屬性用于設(shè)置控件是否有效，值為True表示有效，值為False表示無(wú)效(即灰色);文本框的Text屬性用于設(shè)置或返回其顯示的文本內(nèi)容;Val()函數(shù)用于將字符串中的數(shù)字字符轉(zhuǎn)換為數(shù)值。

　　本題大意是：當(dāng)給張三加一個(gè)時(shí)露笑臉，給張三減一個(gè)時(shí)露哭臉。為了實(shí)現(xiàn)笑臉與哭臉的交替，可以讓兩個(gè)圖片框分別裝載笑臉與哭臉圖片，然后讓它們重合，單擊"加一個(gè)"時(shí)，裝載笑臉的圖片框Visible屬性值為True，裝載哭臉的圖片框Visible屬性值為False;單擊"減一個(gè)"時(shí)，執(zhí)行相反的操作，即可得到題目要求的功能。程序運(yùn)行時(shí)，在Form_Load事件過(guò)程中將"減一個(gè)"按鈕設(shè)為無(wú)效;用IF語(yǔ)句判斷Text2中的數(shù)是否減到0。

　　編寫如下代碼：

　　Private Sub Command1_Click()

　　Pic1.Visible = True

　　Pic2.Visible = False

　　Text2.Text = Val(Text2.Text) + 1

　　Command2.Enabled = True

　　End Sub

　　Private Sub Command2_Click()

　　Pic2.Visible = True

　　Pic1.Visible = False

　　Text2.Text = Val(Text2.Text) - 1

　　If Text2.Text = "0" Then

　　Command2.Enabled = False

　　End Sub

　　Private Sub Form_Load()

　　Command Enabled=False

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)等級(jí)考試時(shí)間安排(各地略有不同)

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總

　　2015年9月計(jì)算機(jī)等級(jí)考試各科目考前必做試題