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

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

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

　　在考生文件夾下有一個工程文件sjt5.vbp，含三個窗體，標(biāo)題分別為“啟動”、“注冊”、“登錄”，運行時顯示“啟動”窗體，單擊其上按鈕時彈出對應(yīng)窗體進行注冊或登錄。

　　注冊信息放在全局?jǐn)?shù)組users中，注冊用戶數(shù)(最多10個)放在全局變量n中(均已在標(biāo)準(zhǔn)模塊中定義)。

　　注冊時用戶名不能重復(fù)，且“口令”與“驗證口令”須相同，注冊成功則在“啟動”窗體的標(biāo)簽中顯示“注冊成功”，否則顯示相應(yīng)錯誤信息。登錄時，檢驗用戶名和口令，若正確，則在“啟動”窗體的標(biāo)簽上顯示“登錄成功”，否則顯示相應(yīng)錯誤信息。

　　標(biāo)準(zhǔn)模塊中函數(shù)finduser的功能是：在users數(shù)組中搜索用戶名( 即參數(shù)ch)，找到則返回該用戶名在users中的位置，否則返回0。

　　已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把Form2、Form3窗體文件中的改為正確的內(nèi)容。

　　注意：

　　不得修改已經(jīng)存在的程序和控件的屬性;最后，程序按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，在“確定”按鈕的Private Sub Command2_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　’ElseIf finduser(Trim$(Text1)) > ? Then

　　改為

　　ElseIf finduser(Trim$(Text1)) > 0 Then

　　2) 將語句

　　’? = "注冊成功!"

　　改為

　　Form1.Label1 = "注冊成功!"

　　在Sub writeusers()事件過程中，有一處地方需要修改。

　　1) 將語句

　　’n = n + ?

　　改為

　　n = n + 1

　　打開窗體文件sjt53.frm。

　　由于所提供的窗體控件不完整，在“登錄”按鈕的Private Sub Command1_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　’If k = ? Then

　　改為

　　If k = 0 Then

　　2) 將語句

　　’ElseIf Trim$(Text2) <> users( ? ) Then

　　改為

　　ElseIf Trim$(Text2) <> users(k, 2) Then

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

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

　　相關(guān)推薦：

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

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

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