填空题

下面程序用来计算：


请在空白处填入适当的代码。
Private Sub Command1_Click()
A=Val(Text1, Text)
B=Val(Text2.Text)
Select Case A
Case______
N=A+B
Case______
N=B/A
Case______
N=0
End Select
Text3.Text=N
End Sub