在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Thenfun=2 Elsefun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是

A．6

B．7

C．8

D．9

婴幼儿高热时可用50%的酒精进行擦浴。