Question

VB题 求代码步骤 十分感谢!!!

创建一个如图2-3所示的简单计算器应用程序，程序的执行逻辑如下：
第1步：输入第一个数字。当点击数字区的数字时，文本框中将显示相应的数字，并能进行正负数的变换。
第2步：输入四则运算符。当第1个数字输入完成后，可点击功能区中的加、减、乘、除四则运算符。
第3步：输入第二个数字。当点击了某个运算符后，再点击数字区的数字时，文本框中将显示第2个数字。
第4步：进行计算。上述3步完成后，点击“计算结果”按钮，将在文本框中显示四则运算结果。
第5步：重复计算。可在第4步计算结果的基础上，返回到第2步，继续进行四则运算，或者点击“清空”按钮并返回第1步，开始新的四则运算过程。
第6步：菜单操作。当点击“帮助”中的“关于”菜单项时，将弹出如图2-4所示的新窗体。
第7步：退出系统。点击“退出”按钮结束程序。

工程文件名为vbxk2-02.vbp，窗体文件名为vbxk2-02.frm，文件夹名为vbxk2-02。
要求：（1）按图2-5进行界面设计

（2）txtFirst文本框：用于存储四则运算的第1个数字，txtSecond文本框：用于存储四则运算的第2个数字，txtLabel文本框：用于存储四则运算符。将txtFirst、txtSecond、txtLabel文件框的Visible属性设置为False，以便使这三个控件在运行状态下不可见。





Answer 1

程序图标自己更改，基本功能已实现，详见附件。
form1代码
Private Sub about_Click()
   Form2.Show
End Sub
Private Sub Command1_Click(Index As Integer)
   If Index = 10 Then
     txtResult.Text = Str(-Val(txtResult.Text))
   Else
     txtResult.Text = txtResult.Text & Index
   End If
End Sub
Private Sub Command2_Click(Index As Integer)
   txtFirst.Text = txtResult.Text
   txtLabel.Text = Command2(Index).Caption
   txtResult.Text = ""
End Sub
Private Sub Command3_Click()
   txtSecond.Text = txtResult.Text
   Select Case txtLabel.Text
      Case "加"
         txtResult.Text = Str(Val(txtFirst.Text) + Val(txtSecond.Text))
      Case "减"
         txtResult.Text = Str(Val(txtFirst.Text) - Val(txtSecond.Text))
      Case "乘"
         txtResult.Text = Str(Val(txtFirst.Text) * Val(txtSecond.Text))
      Case "除"
         If Val(txtSecond.Text) <> 0 Then txtResult.Text = Str(Val(txtFirst.Text) / Val(txtSecond.Text))
   End Select
End Sub
Private Sub Command4_Click()
   txtFirst.Text = ""
   txtResult.Text = ""
   txtLabel.Text = ""
   txtSecond.Text = ""
End Sub
Private Sub Command5_Click()
   End
End Sub
form2代码
Private Sub Command1_Click()
   Unload Me
End Sub
Private Sub Form_Load()
   Image1.Picture = Me.Icon
End Sub