3.设计菜单:打开菜单编辑器,按下表对每个菜单项作设置。 菜单项( caption) 名称(name) 快捷键( shortcut) 计算 call 加法 add Ctrl+A 减法 ub su Ctrl+B 计算2 cal2 乘法 div Ctrl+C 除法 mul Ctrl+D 清除 clean Ctrl+e
3. 设计菜单：打开菜单编辑器，按下表对每个菜单项作设置。 菜单项（caption) 名称(name) 快捷键(shortcut) 计算1 cal1 …加法 add Ctrl+A …减法 sub Ctrl+B 计算2 cal2 …乘法 div Ctrl+C …除法 mul Ctrl+D …清除 clean Ctrl+E
4编写事件过程代码 Dim x As single Private sub add click()‘加法 X=Va( Txtno1Text)+Va( Txtno2. Text)‘加法 blresult. Caption=Strs(x)‘数值转换成字符赋给标签 End sub Private Sub sub Click()“减法 x= Val(Txtno1. Text)-Val(Txtno2 Text) Iblresult. Caption Strs(x End Sub
4. 编写事件过程代码： Dim x As Single Private Sub add_Click( ) ‘加法 x = Val(Txtno1.Text) + Val(Txtno2.Text) ‘加法 lblresult.Caption = Str$(x) ‘数值转换成字符赋给标签 End Sub Private Sub sub_Click( ) ‘减法 x = Val(Txtno1.Text) - Val(Txtno2.Text) lblresult.Caption = Str$(x) End Sub