[问答题] 在考生文件夹下有一个工程文件sjt4.vbp,及其窗体文件sjt4.frm,窗体上有一个标签和一个文本框,控件及其属性均已设置完毕。现使用KeyPress事件编写一个口令程序,程序运行后,

15 查阅

[问答题] 在考生文件夹下有一个工程文件sjt4.vbp,及其窗体文件sjt4.frm,窗体上有一个标签和一个文本框,控件及其属性均已设置完毕。现使用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"口令正确, 继续..."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小

本题主要考查对单选按钮的操作和选择结构程序的运用。

计算机考试