单选题
窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub command1_Click()
Dim n
If Text1. Text＜ ＞ "123456"Then
n=n+1
Print "口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到下图1所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是下图2所示的效果，程序需要修改。下面修改方案中正确的是______。
图1
Private Sub command1_Click()
Dim n
If Text1. Text＜ ＞ "123456"Then
n=n+1
Print "口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到下图1所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是下图2所示的效果，程序需要修改。下面修改方案中正确的是______。
图1
【正确答案】
D
【答案解析】[解析] 本题考查的是动态变量与静态变量。原来的程序中无法使变量n的值保持到下一次的使用，只有D选项符合要求，将n定义为静态局部变量，在程序执行到该对象的声明处时被首次初始化，每次执行后n的值都会被保存到内存中，所以答案D是正确的；而A选项只是对n赋初值，所以A选项没有意义；B选项和C选项都没有达到改进的目的。