填空题：下面程序的功能是：在文本框中输入一串字符，每输入一个字符，在文本框中的显示内容增加一个“*”单击命令按钮，则用户输入的实

下面程序的功能是：在文本框中输入一串字符，每输入一个字符，在文本框中的显示内容增加一个“*”单击命令按钮，则用户输入的实际字符在窗体上显示出来。在窗体上画一个名为Commandl的命令按钮和一个名为Text1的文本框，并将其Text属性设置为空。请在空白处填人适当的内容，将程序补充完整。
Dim realstr As String
Private Sub Command l_Click()
Print realstr
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
realstr=realstr+Chr(KeyAscii)
____
End Sub