编写如下程序：Private Sub Command1_Click()　　Dim m As Integer， n As Integer　　n＝2　　For m＝1 To 3　　　　Print proc(n)；　　Next mEnd SubFunction proc(i As Integer)　　Dim a As Integer　　Static b As Integer　　a＝a＋1　　b＝b＋1　　proc＝a * b＋iEnd Function程序运行后，单击命令按钮Command1，输出结果为(　　)。

单项选择题编写如下程序：Private Sub Form_Click() Print Welcome！ End SubPrivate Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) Print 欢迎！ End SubPrivate Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) Print 热烈欢迎！ End Sub程序运行后，单击窗体，输出结果为( )。

单项选择题设有如下事件过程：Private Sub Form_Click() Sum＝0 For k＝1 To 3 If k<＝1 Then x＝1 ElseIf k<＝2 Then x＝2 ElseIf k<＝3 Then x＝3 Else x＝4 End If Sum＝Sum＋x Next k Print SumEnd Sub程序运行后，单击窗体，输出结果是( )。