UC知道有谁能解这道VB啊?特急！急！
来源：百度知道 编辑：UC知道 时间：2024/05/20 09:25:12
VB作业:
1限制txtData1,txt Data2的输入:只能接受0-9;
2 当txtData1,txt Data2均有值时,Cala菜单和命令按钮有效,否则无效;
3 txtData1,txtData2得到焦点时,选中其中所有文本;
4 Calc菜单和命令按纽的计算功能(根据选择的运算符);
5 用View菜单下的几个颜色设置窗体的背景颜色;
6 Exit,Close退出程序
1限制txtData1,txt Data2的输入:只能接受0-9;
2 当txtData1,txt Data2均有值时,Cala菜单和命令按钮有效,否则无效;
3 txtData1,txtData2得到焦点时,选中其中所有文本;
4 Calc菜单和命令按纽的计算功能(根据选择的运算符);
5 用View菜单下的几个颜色设置窗体的背景颜色;
6 Exit,Close退出程序
1、将MaxLength属性设置为1，并且对change事件编程，如果输入字符不是0-9，则清楚该字符并且提示用户。
2、仍对change事件编程，使相应按钮的enabled属性为true或false，是否为空可以用=""或<>""判断.
3、得到焦点对GotFocus事件编程。
4、用菜单编辑器编辑菜单，数学运算不用我说了吧。
5、在菜单项单击事件中，设置Form的BackColor属性。
6、end语句可以退出程序。
1.
Sub txtData1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
2.
if IsNumeric(txtData1) and IsNumeric(txtData2) then
Cala菜单.Enabled = True
Cala按钮.Enabled = True
else
Cala菜单.Enabled = False
Cala按钮.Enabled = False
endif
3.
Private Sub txtData1_GotFocus()
txtData1.SelLength = 0
txtData1.SelLength = Len(txtData1)
End Sub
4.
v1 = Val(txtData1)
v2 = Val(txtData2)
Select Case 运算符
Case "+": 结果 = v1 + v2
Case "-": 结果 = v1 - v2
'...
End Select
5.6.你自已写