设窗体上有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)then

Temp=temp&(13)

E．nd If

Next k

Text1=(14)

E．nd Sub

Private function found(str as string,ch as string)as Boolean

F．or k=1 to len(str)

If ch=mid(str,k,1)then

F．ound=(15)

E．xit function

Next k

F．ound=false

E．nd function

运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空

[单选题]窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Command1_click()D．im 11If Textl．Text<>”123456”Thenn=n+1print“口夸输入错误”＆n＆次”E．nd IfE．nd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的

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

[单选题]在窗体上有文本框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 Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End SubA．2B．3C．4D．5

[单选题]设窗体上有一个文本框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

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

[单选题]窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Open “out.txt” For Inpit As#1Print#1,Text1.TextC．lose#1E．nd SubB．Private Sub Command1_Click（）Open “out.txt

[单选题]窗体中有命令按钮Command1和文本框Text1，事件过程如下：F．unction result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseE．nd IfE．nd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”E．lseTextl=Str(x)

[单选题]在窗体上添加一个命令按钮,名为Command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为F．or i=1 To 3F．or j=1 To 3F．or k=1 To 2x=x+3Next k,j,iText1.Text=str(x)A．21B．42C．54D．72