单选题
窗体上有一个Text1文本框和一个Command1命令按钮，并有以下程序
Private Sub Command1_Click()
Dim n
If Text1.Text＜＞"123456" Then
n=n+1
Print "口令输入错误"& n & "次"
End If
End Sub
希望程序运行时得到如图3所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是如图4所示的效果，所以需要修改程序。下列各修改方案中正确的是
Private Sub Command1_Click()
Dim n
If Text1.Text＜＞"123456" Then
n=n+1
Print "口令输入错误"& n & "次"
End If
End Sub
希望程序运行时得到如图3所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是如图4所示的效果，所以需要修改程序。下列各修改方案中正确的是
【正确答案】
D
【答案解析】[解析] 在原有的程序中定义了一个动态的局部变量n，每次执行Command1_Click事件过程时，系统为变量n分配存储单元；当该过程执行结束时，释放变量n所占用的存储单元；因而变量n就无法实现累计口令输入错误次数的作用，每次单击Command1时，程序都显示“口令输入错误1次”。要想把口令输入错误次数累计下来，需要把动态变量n改成静态变量，即把Dim n改变Static n即可，故选项D为本题的正确答案。