在窗体上添加一个名称为 Command1 的命令按,然后编写以下通用过程和命令按的事件过程: Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后,单击命令按,窗体上显示的结果是 。