【单选题】窗体上有一-个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub Command1 Click( ) Dim n If Text1.Text$amp; amp;$quot;123456"Then n=n+1 Print"口令输入错误”&n&”次" End If End Sub 希望程序运行时得到左图所示的效果,即:输入口令,单击“确定口令’’命令按钮,若输入的口...
【单选题】窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序 Private Sub Command1_click() Dim 11 If Textl.Text$amp n=n+1 print“口夸输入错误”&n&次” End If End Sub 希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次...