填空题：下面程序中有一个名为GetArea的过程，其作用是根据给定的长和宽计算长方形的面积。在窗体上画一个名为Command1的

下面程序中有一个名为GetArea的过程，其作用是根据给定的长和宽计算长方形的面积。在窗体上画一个名为Command1的命令按钮，单击命令按钮显示长方形的面积。请在空白处填人适当的内容，将程序补充完整。
Sub GetArea(w As Single，h As Single)
Print“该长方形的面积为：”&W * h
End Sub
Private Sub Command1_Click()
Dim wid As Single，hei As Single
wid=Val(InputBox(“请输入长方形的宽：”))
hei=Val(InputBox(“请输入长方形的高：”))
____
End Sub