单项选择题

窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click()
Dim n
If Text1.Text＜＞"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )

A．在Dim n语句的下面添加一句：n=0
B．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次"
D．把Dim n改为Static n

<上一题 目录 下一题>
热门 试题

单项选择题
下面程序计算并输出的是( ) Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a＜=0 Print s End Sub
A．13+23+33+…+103的值
B．10! +…+3! +2! +1!的值
C．(1+2+3+…+1O)3的值
D．10个103的和
单项选择题
有下面的程序段，其功能是按下图左图所示的规律输出数据： Dim a(3,5)As Integer For j=1 To 3 For j=1 To 5 a(i,j)=i+j Print a(i,j)； Next Print Next 若要按下图右图所示的规律继续输出数据，则接在上述程序段后面的程序段应该是( )
A．For i=1 To 5 For j=1 To 3

Print a(j,i);
Next
Print
Next
B．B.For i=1 To 3
Forj=1 To 5

Print a(j,i);
Next
Print Next
C．For j=1 To 5
For i=1 To 3

Print a(j,i);
Next
Print
Next
D．For i=1 To 5
For jW=1 To 3

Print a(i,j);
Next
Print
Next
相关试题