窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序

Private Sub Command1_click()

D．im 11

If Textl．Text<>”123456”Then

n=n+1

print“口夸输入错误”＆n＆次”

E．nd If

E．nd Sub

希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是

A．在Dim n语句的下面添加一句：n=O

B．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”

C．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”

D．把Dim n改为Static n

[试题]设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click()Temp$=””F．or k=1 to len(text1)C．h$=mid(text1,k,1)If not found(temp,ch)thenTemp=temp&(13)E．nd IfNext kText1=(14)E．nd SubPrivate function found(str as string,ch as string)as BooleanF．or k

[单选题]（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）D．im nIf Text1.Text<> " 23456 " Thenn=n ＋ 1Print " 口令输入错误 " & n & " 次 "E．nd IfE．nd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上

[单选题]设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．C

[单选题]在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：Private Sub Command1_Click()D．im i As Integer,n As IntegerF．or i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)E．nd Sub单击命令按钮，程序运行后，在文本框中显示的值是( )。A．2B．3C．4D．5

[单选题]在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是( )。A．2B．3C．4D．5

[单选题]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下

[单选题]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。A．1B．7C．17D．400

[单选题]（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()F．or i=1 to 4X=3F．or j=1 to 3F．or k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)E．nd sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A． ） 6B． ） 12C． ） 18D． ） 21

[单选题]窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：希望程序运行时得到下左图所示的效果，即：输入口令，单击“确认口令”命令按钮，

[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：D．im y As IntegerPrivate Sub Command1_Click()D．im x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)E．nd SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yE．nd FunctionPrivate Function p2(x