在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是______。（5.0分）
举一反三
- 在窗体上添加一个文本框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 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
- 窗体上有两个文本框（Text1、Text2)和一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+4)n=n+1LoopText1.Text=Str(n)Text2.Text=str(x)EndSub运行时，单击按钮，Text1和Text2将分别显示()。
- 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是_____。
- 窗体上有一个名为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序，单击命令按钮，则输出结果是______。
- 设有以下函数过程: Function fact(n As Long) If n = 1 Then fact = 1 Else fact = n * fact(n - 1) End If End Function 在窗体上画一个命令按钮和两个文本框，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Long, result As Long n = Val(Text1.Text) result = fact(n) Text2.Text = Str(result) End Sub 程序运行时，如果在文本框 Text1 中输入数据 5 后，单击命令按钮 Command1 ，则在文本框 Text2 上输出的结果为________