第3章应用程序接口设计及代码编写

《第3章应用程序接口设计及代码编写》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、13.1简单的计算器应用程序设计任务2.1.1任务描述仿照Windows操作系统自带的计算器程序，设计一个计算器，完成加、减、乘、除四则运算。运行界面如图所示。21.输入第一个数字。当单击数字区的数字时，文本框中将显示相应的数字，并能进行正负数变换。2.输入四则运算符。当第一个数字输入完成后，可单击功能区的加、减、乘、除四则运算符。3.输入第二个数字。当单击了某个运算符后，再单击数字区的数字时，文本框中将显示第二个数字。34.进行计算。上述三步完成后，单击“计算结果”按钮，将在文本框中显示四则运算的结果。5

2、.重复计算。可在第四步的基础上，返回到第2步继续进行四则运算，或者单击“清空”按钮并返回第1步，开始新的四则运算过程。6.菜单操作。当单击“帮助”中的“关于”菜单项时，弹出“帮助”窗体。7.退出系统。单击“退出”按钮结束程序。45创建一个“标准EXE”工程。1.设置窗体属性Caption——”计算器“MaxButton——False2.框架控件Caption——分别为“数字区”和“功能区”3.放置命令按钮6txtResult——显示四则运算结果。txtFirst——存储四则运算的第一个数字。txtSecon

3、d——存储四则运算的第二个数字。txtLabel——存储四则运算符。txtFirst、txtSecond、txtLabel文本框的Visible属性设置为False。7在VB集成环境中通过“工具—菜单编辑器”打开“菜单编辑器”8窗体的Load事件PrivateSubForm_Load()txtFirst.Text=""txtSecond.Text=""txtLabel.Text="“txtResult.Text=""EndSub9(1)数字“0”按钮PrivateSubCommand1_Click()'每单

4、击一一下该按钮，就在文本框的尾部加字符“0”'如果txtLabel为空，则说明现在正在输入的是第一个数字‘否则表示输入的是第二个数字IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"0"ElsetxtSecond.Text=txtSecond.Text+"0"EndIfEndSub10（2）数字“1”按钮PrivateSubCommand3_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"

5、1"ElsetxtSecond.Text=txtSecond.Text+"1"EndIfEndSub11（3）数字“2”按钮PrivateSubCommand4_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"2"ElsetxtSecond.Text=txtSecond.Text+"2"EndIfEndSub12（4）数字“3”按钮PrivateSubCommand5_Click()IftxtLabel.Text=""ThentxtFirs

6、t.Text=txtFirst.Text+"3"ElsetxtSecond.Text=txtSecond.Text+"3"EndIfEndSub13（5）数字“4”按钮PrivateSubCommand6_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"4"ElsetxtSecond.Text=txtSecond.Text+"4"EndIfEndSub14（6）数字“5”按钮PrivateSubCommand7_Click()IftxtLa

7、bel.Text=""ThentxtFirst.Text=txtFirst.Text+"5"ElsetxtSecond.Text=txtSecond.Text+"5"EndIfEndSub15（7）数字“6”按钮PrivateSubCommand8_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"6"ElsetxtSecond.Text=txtSecond.Text+"6"EndIfEndSub16（8）数字“7”按钮PrivateSubC

8、ommand9_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"7"ElsetxtSecond.Text=txtSecond.Text+"7"EndIfEndSub17（9）数字“8”按钮PrivateSubCommand10_Click()IftxtLabel.Text=""ThentxtFirst.Text=txtFirst.Text+"8"