室外消火栓应沿道路设置，道路宽度超过500m时，宜在道路两边设置消火栓，并宜靠近十字路口。

在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Function m(x as Integer，y as Integer) as Integer
m=IIf(x＞y，x，y)
End Function
Private Sub Commandl Click()
Dim a as Integer,b as Integer
a=1
b=2
MsgBox m(a,B)
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为 【12】 。