看来txtdata1 txtdata2都是文本框了。
我做做看。

好了。
说明如下：
1、菜单结构为：
     计算
         加
         减
         乘
         除
     窗体背景
         颜色1
         颜色2
         颜色3
标题和名称是一致的。功能不够的自己加。
2、按钮只设置了两个，使用默认名称。
3、文本框使用两个，使用默认名称，没有加data的字样。
4、使用一个标签来输出结果，使用默认名称。
5、计算部分，除法没有检查除数是否为零，计算过程也没有堆可能的溢出进行处理。这些你自己补充。
6、代码我没有加注释，因为都使用中文，很好看明白的。

代码如下：
Private Sub 初始化()
    Label1 = ""
    Command1.Caption = "清空"
    Command2.Caption = "退出"
    Text1 = ""
    Text2 = ""
End Sub

Private Sub 上锁()
    计算.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
End Sub

Private Sub 开锁()
    计算.Enabled = True
    Command1.Enabled = True
    Command2.Enabled = True
End Sub

Private Sub 有数()
    If Text1 = "" Or Text2 = "" Then
        上锁
    Else
        开锁
    End If
End Sub

Private Sub 标签背景()
    Label1.BackColor = Me.BackColor
End Sub

Private Sub Command1_Click()
    初始化
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    初始化
End Sub

Private Sub Text1_Change()
    有数
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

Private Sub Text2_Change()
    有数
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

Private Sub 乘_Click()
    Label1 = Val(Text1) * Val(Text2)
End Sub

Private Sub 除_Click()
    Label1 = Val(Text1) / Val(Text2)
End Sub

Private Sub 加_Click()
    Label1 = Val(Text1) + Val(Text2)
End Sub

Private Sub 减_Click()
    Label1 = Val(Text1) - Val(Text2)
End Sub

Private Sub 颜色1_Click()
    Me.BackColor = &HFFF0F0
    标签背景
End Sub

Private Sub 颜色2_Click()
    Me.BackColor = &HF0FFFF
    标签背景
End Sub

Private Sub 颜色3_Click()
    Me.BackColor = &HF0F0FF
    标签背景
End Sub

奥，忘记了你的第三条。

添加代码如下：
Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1)
End Sub

Private Sub Text2_GotFocus()
    Text2.SelStart = 0
    Text2.SelLength = Len(Text1)
End Sub

你的第六条，不知道是什么。

还真勤快!~