textbox3在原有的基础上还能在重复累加textbox1和textbox2的值?
Private Sub CommandButton1_Click()
If TextBox3.Text = "" Then
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
TextBox1.Text = ""
TextBox2.Text = ""
Else
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
End If
End Sub
If TextBox3.Text = "" Then
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
TextBox1.Text = ""
TextBox2.Text = ""
Else
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-11-22
楼上正解