在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：

Private Sub Command1_Click()

D．im i As Integer,n As Integer

F．or i=0 To 50

i=i+3

n=n+1

If i>10 Then Exit For

Next

Text1.Text=Str(n)

E．nd Sub

单击命令按钮，程序运行后，在文本框中显示的值是( )。

A．2

B．3

C．4

D．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

[单选题]（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() 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

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

[试题]设窗体上有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

[单选题]在窗体上有一个命令按钮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

[单选题]窗体中有命令按钮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和Commnd2，三个文本框Text1，Text2和Text3，有如下事件过程： Private Sub Comuand1_Click() Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click() Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text)) End Sub程序运行后，在Text1和Text2中分别输

[单选题]在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click（）x=Val（Text1.Text）Select Case xC．ase 1，3y=x*xC．ase Is>=10，Is<=-10y=xC．ase -10 To 10y=-xE．nd SelectE．nd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（ ）。A．执行y=x*xB．执行y=-xC．先执