设有以下函数过程:
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 上输出的结果为________
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 上输出的结果为________
举一反三
- 在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub 运行时，单击命令按钮，Text1和Text2分别显示（ ）。
- 已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为。 Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(6) End Sub
- 在窗体上有一命令按钮Command1,其Click事件代码如下: Private Sub Command1_Click() Dim a%, b%, i%, n% For i = 1 To 10 n = InputBox("请输入一个整数", "输入数据框", 2) If n Mod 2 = 0 Then a = a + 1 Else b = b + 1 End If Next i MsgBox ("运行结果a=" & str(a) & ", b=" & str(b)) End Sub
- 在窗体上添加一个文本框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 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1和两个文本框Text1和Text2，然后编写如下事件过程：Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。