[問答題] 在考生文件夾下有一個工程文件sjt4.vbp,及其窗體文件sjt4.frm,窗體上有一個標簽和一個文本框,控件及其屬性均已設置完畢?,F(xiàn)使用KeyPr
[問答題] 在考生文件夾下有一個工程文件sjt4.vbp,及其窗體文件sjt4.frm,窗體上有一個標簽和一個文本框,控件及其屬性均已設置完畢。現(xiàn)使用KeyPress事件編寫一個口令程序,程序運行后,在文本框中輸入口令.如果正確,則顯示相應的信息,單擊“確定”按鈕后,將顯示一行信息;如果口令不正確,則要求重新輸入。3次輸入的口令都不正確,則停止輸入,并結束程序。程序運行的畫面如下圖所示。要求:題目中所給的程序不完整,請讀懂程序后將其補充完整,以原文件名保存。試題源程序如下:1 Private Sub Form Load( )2 Text1.Text=""3 Text1.FontSize=104 Label1.FontSize=125 Label1.FontBold=True6 Label1.Font0="隸書"7 Label1.Caption="請輸入口令..."8 End Sub9 Private Sub Text1_KeyPress(KeyAscii As Integer)10 Static PWord As String11 Static Counter As Integer12 Static Numberftries As Integer13 Numberftries=Numberftries+114 ’If Then End15 Counter=Counter+116 ’PWord=PWord+17 KeyAscii=018 Text1.Text=String$(Counter,"*")19 If LCase$(PWord)="abcd"Then20 Text1.Text=""21 PWord=022 MsgBox"口令正確, 繼續(xù)..."23 Counter=024 Print &quo
正確答案:第一步:啟動Visual Basic,打開考生文件夾下的工程文件sjt4.vbp。第二步:雙擊窗體中的命令按鈕,進入代碼編輯窗口,對確定按鈕的單擊事件進行代碼編輯如下:1 PriVate Sub C1_Click( )2 If Op1.Value=True Then3 Text1.Text="需要1小時"4 Else If Op2.Value = TrueThen5 Text=1.Text="需要10小時"6 Else7 Text1.Text="需要15小
參考解析:本題主要考查對單選按鈕的操作和選擇結構程序的運用。
詞條內容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域專業(yè)人士。