vb课后作业参考.pptVIP

简单的计算器应用程序设计任务 任务描述： 仿照Windows操作系统自带的计算器程序，设计一个计算器，完成加、减、乘、除四则运算。运行界面如图所示。 主要执行逻辑 1. 输入第一个数字。当单击数字区的数字时，文本框中将显示相应的数字，并能进行正负数变换。 2.输入四则运算符。当第一个数字输入完成后，可单击功能区的加、减、乘、除四则运算符。 3.输入第二个数字。当单击了某个运算符后，再单击数字区的数字时，文本框中将显示第二个数字。 主要执行逻辑 4. 进行计算。上述三步完成后，单击“计算结果”按钮，将在文本框中显示四则运算的结果。 5.重复计算。可在第四步的基础上，返回到第2步继续进行四则运算，或者单击“清空”按钮并返回第1步，开始新的四则运算过程。 6.菜单操作。当单击“帮助”中的“关于”菜单项时，弹出“帮助”窗体。 7.退出系统。单击“退出”按钮结束程序。 1 界面布局 2 界面设计 创建一个“标准EXE”工程。 1.设置窗体属性 Caption——”计算器“ MaxButton——False 2. 框架控件 Caption——分别为“数字区”和“功能区” 3. 放置命令按钮 4. 放置文本框按钮 txtResult——显示四则运算结果。 txtFirst——存储四则运算的第一个数字。 txtSecond——存储四则运算的第二个数字。 txtLabel——存储四则运算符。 txtFirst、txtSecond、txtLabel文本框的Visible属性设置为False。 5. 设计菜单 3 代码设计 窗体的Load事件 Private Sub Form_Load() txtFirst.Text = txtSecond.Text = txtLabel.Text = “ txtResult.Text= End Sub 3 代码设计 (1)数字“0”按钮 Private Sub Command1_Click() 每单击一一下该按钮，就在文本框的尾部加字符“0” 如果txtLabel为空，则说明现在正在输入的是第一个数字 ‘否则表示输入的是第二个数字 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 0 Else txtSecond.Text = txtSecond.Text + 0 End If End Sub 3 代码设计 （2）数字“1”按钮 Private Sub Command3_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 1 Else txtSecond.Text = txtSecond.Text + 1 End If End Sub 3 代码设计 （3）数字“2”按钮 Private Sub Command4_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 2 Else txtSecond.Text = txtSecond.Text + 2 End If End Sub 3 代码设计 （4）数字“3”按钮 Private Sub Command5_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 3 Else txtSecond.Text = txtSecond.Text + 3 End If End Sub 3 代码设计 （5）数字“4”按钮 Private Sub Command6_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 4 Else txtSecond.Text = txtSecond.Text + 4 End If End Sub 3 代码设计 （6）数字“5”按钮 Private Sub Command7_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 5 Else txtSecond.Text = txtSecond.Text + 5 End If End Sub 3 代码设计 （7）数字“6”按钮 Private Sub Command8_Click() If txtLabel.Text = Th