是不是这样:画三个文本框。在第一和第二个中输入数字,单击按钮在第三个文本框中输出和值?? Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = Val(Text1) b = Val(Text2) c = a + b Text3 = c End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub