在考生文件夹下有一个工程文件sjt4.vbp，及其窗体文件sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令．如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如下图所示。
要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。
试题源程序如下：
1 Private Sub Form Load( )
2 Text1.Text=""
3 Text1.FontSize=10
4 Label1.FontSize=12
5 Label1.FontBold=True
6 Label1.Font0="隶书"
7 Label1.Caption="请输入口令..."
8 End Sub
9 Private Sub Text1_KeyPress(KeyAscii As Integer)
10 Static PWord As String
11 Static Counter As Integer
12 Static Numberftries As Integer
13 Numberftries=Numberftries+1
14 ’If Then End
15 Counter=Counter+1
16 ’PWord=PWord+
17 KeyAscii=0
18 Text1.Text=String$(Counter，"*")
19 If LCase$(PWord)="abcd"Then
20 Text1.Text=""
21 PWord=0
22 MsgBox"口令正确, 继续..."
23 Counter=0
24 Print "continue..."
25 ’Else If Then
26 Counter=0
27 PWord=""
28 Text1.Text=""
29 MsgBox"口令不对，请重新输入"
30 End If
31 End Sub
