2012年計算機二級VB上機試題及解題思路第31套

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生目錄下有一個工程文件sjt5.vbp，其窗體上有兩個標(biāo)簽L1和L2，標(biāo)題分別為“口令”和“允許次數(shù)”;一個命令按鈕C1，標(biāo)題為“確定”;兩個文本框名稱分別為Text1和 Text2。 其中 Text1用來輸入口令(輸入時，顯示“*”)，無初始內(nèi)容; Text2的初始內(nèi)容為3。并給出了C1的事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在運行時，在 Text1中輸入口令后，單擊“確定”，如果輸入的是“123456”則在 Text1中顯示“口令正確”;如果輸入其他內(nèi)容，單擊“確定”后，彈出如圖所示的錯誤提示對話框，并且Text2中的數(shù)字減1。

　　最多可輸入3次口令，若3次都輸入錯誤，則禁止再次輸入。

　　注意：

　　不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于窗體中的Text1文本框?qū)傩圆煌暾�，按照題意需將PasswordChar屬性設(shè)為*。另外所提供的窗體程序不完整，在窗體的Private Sub C1_Click()事件過程中，有四處地方需要修改。

　　1) 將語句

　　'If ? = "123456" Then

　　改為

　　If Text1.Text = "123456" Then

　　2) 將語句

　　'Text1.? = ""

　　改為

　　Text1.PasswordChar = ""

　　3) 將語句

　　'If Text2.Text > ? Then

　　改為

　　If Text2.Text > 0 Then

　　4) 將語句

　　'Text1.Enabled = ?

　　改為

　　Text1.Enabled = False

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

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

　　相關(guān)推薦：

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

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

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