怎样在vb中将计算结果输出到excel表格中

想用vb做一个程序,普通的计算,但计算结果要输出在excel表格中<在form中添加一个excel控件>.例如a+b=c,将c的第一次结果输出到a1中,第二次第一次结果a2中,第3次第一次结果a3中,连续计算，依次类推.可以帮忙做一个源程序发到我的邮箱4518148803@qq.com 先给20分.如果觉得好再加分.谢谢了
邮箱弄错了 是418148803@qq.com谢谢大虾再发一次

建Command1,Text1,Text2,Text3.代码如下。
注：源程序已经发到邮箱，请查收。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim xls As Object, sht As Object
Private Sub Command1_Click()
Static i As Integer
i = i + 1
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
sht.Cells(i, 1).Value = Text3.Text
End Sub

Private Sub Form_Load()
Set xls = CreateObject("Excel.Application")
Set sht = xls.Workbooks.Add.Sheets("Sheet1")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Caption = "="
xls.Visible = True
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fq4qssqv2.html