编程，要求输入两个实数，再选择+，-，×，÷四个按钮之一，根据所选择的运算符计算并输出结果。

在窗体上画两个文本框、一个按钮、一个标签、四个Option：
dim R as integer
Private Sub Option1_Click()
R=1
End Sub

Private Sub Option2_Click()
R=2
End Sub

Private Sub Option3_Click()
R=3
End Sub

Private Sub Option4_Click()
R=4
End Sub
Private Sub Command1_click()
dim a as single,b as single
a=val(text1.text)
b=val(text2.text)
select case R
case 1:label1.caption=a+b
case 2:label1.caption=a-b
case 1:label1.caption=a*b
case 1:label1.caption=a/b
end select
End Sub

为了争点分，给你作一个 

在窗体三添加二个textbox，一个label，4个按钮command1为控件数组，代表运算符号，一个按钮command2为计算按钮 

Dim Yunsuan As String '运算序号 

Private Sub Command1_Click(Index As Integer) 

Yunsuan = Index '取得运算按钮序号 

End Sub 

Private Sub Command2_Click() 

'计算 

Select