如以上附件中的那个文本框一样
代码是：

Private Sub Command1_Click()
Dim a, b As Double
a = Text1
b = Text2
s = a / b
Text3 = s
End Sub

Private Sub Command4_Click()
Dim a, b As Double
a = Text1
b = Text2
s = a + b
Text3 = s
End Sub

Private Sub Command5_Click()
Dim a, b As Double
a = Text1
b = Text2
s = a - b
Text3 = s
End Sub

Private Sub Command6_Click()
Dim a, b As Double
a = Text1
b = Text2
s = a * b
Text3 = s
End Sub

Private Sub Command1_Click()
Dim a, b As Double
a = val(Text1.text)
b = val(Text2.text)
s = a / b
Text3 = s
End Sub

Private Sub Command4_Click()
Dim a, b As Double
a = val(Text1.text)
b = val(Text2.text)
s = a + b
Text3 = s
End Sub

Private Sub Command5_Click()
Dim a, b As Double
a = val(Text1.text)
b = val(Text2.text)
s = a - b
Text3 = s
End Sub

Private Sub Command6_Click()
Dim a, b As Double
a = val(Text1.text)
b = val(Text2.text)
s = a * b
Text3 = s
End Sub
在你向窗体上加textbox的时候在它的属性表（或者选中它，在右边的属性表)中的text属性中的文字清除就可以了。
你的程序是不是有问题，上面我帮你改了一下！


[ 本帖最后由 qq1023569223 于 2011-4-10 17:04 编辑 ]

嗯,明白了,我刚接触这个所以还有很多不懂,望继续赐教