已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Max(1,2,3)，则单击Command1时，输出结果为。Private Function Max( a,b,c)m=aif b>m then m=bif c>m then m=cMax=mEnd Function
举一反三
- 已知一窗体中有如下函数过程和一命令按钮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),其事件代码如下: Private Sub Command1_Click() Dim a(5, 5) For m = 2 To 3 For n = 1 To 2 a(m, n) = m * n Next n Next m MsgBox a(2, 1) + a(3, 2) End Sub 运行该窗体后,单击命令按钮,则消息框的输出结果为( )。 A: 8 B: 6 C: 2 D: 16
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Print nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）。
- 编写如下程序: Private Sub Command1_Click； Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1
- 在窗体上画一个名称为 Command1 的命令按钮，然后编写下列通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click Dim i As Integer,s As Integer s=0 For i = 1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是