百分悬赏VB题一道，各位大大进来帮忙...

Question

要求：
1. 限制txtData1、txtData2的输入：只能接受0-9。
2. 当txtData1、txtData2均有值时，Calc菜单和命令按钮有效，否则无效。
3. txtData1、txtData2得到焦点时，选中其中所有文本。
4. Calc菜单和命令按钮的计算功能(根据选择的运算符)。
5. 用View菜单下的几个颜色，设置窗体的背景颜色。
6. Exit、Close退出程序 ，程序图片如下
我是选修这门课的，估计这题在专业学计算机里的大大们也不是什么难题，大家不要鄙视我，实乃我一工科学生对它太不开窍了。请各位高手帮忙搭救，直接写出来也成，发我邮箱里也成：[email protected]

Answer 1

Option Explicit
Private Sub b_Click()
Me.BackColor = vbBlack
End Sub

Private Sub c_Click()
calc
End Sub

Private Sub Command1_Click()
calc
End Sub
Function chknumber()
If isnumber(txtdata1.Text) = True Then chknumber = True
End Function

Private Sub Command2_Click()
End
End Sub

Private Sub e_Click()
End
End Sub

Private Sub Form_Load()
With method
.AddItem "加法"
.AddItem "减法"
.AddItem "乘法"
.AddItem "除法"
.ListIndex = 0
End With
End Sub

Private Sub g_Click()
Me.BackColor = vbGreen
End Sub

Private Sub r_Click()
Me.BackColor = vbRed
End Sub

Private Sub y_Click()
Me.BackColor = vbYellow
End Sub

Function calc()
Dim t1, t2, re, m
t1 = Val(txtdata1.Text)
t2 = Val(txtdata2.Text)
m = method.Text
Select Case m
Case "加法"
re = t1 + t2
Case "减法"
re = t1 - t2
Case "乘法"
re = t1 * t2
Case "除法"
re = t1 / t2
End Select
result.Text = re
End Function

这个是代码，其中下拉列表框名为method

Answer 2

找你老师吧，给他100块钱！

Answer 3

就判断下不就完了啊.