四、綜合應用題

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

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

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

　　參考解析：

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

　　本題大意是：當給張三加一個時露笑臉，給張三減一個時露哭臉。為了實現(xiàn)笑臉與哭臉的交替，可以讓兩個圖片框分別裝載笑臉與哭臉圖片，然后讓它們重合，單擊"加一個"時，裝載笑臉的圖片框Visible屬性值為True，裝載哭臉的圖片框Visible屬性值為False;單擊"減一個"時，執(zhí)行相反的操作，即可得到題目要求的功能。程序運行時，在Form_Load事件過程中將"減一個"按鈕設為無效;用IF語句判斷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

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

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

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題