首先，我发现这的论坛上的朋友很热心，十分感谢他们，有了你们，我自学编程有了很大进步，我想做一个例子，希望再得到您的帮助，
一个文档Text1的内容是：
01　04　07　
03　06　09

怎样写源代码，用公式一：第一行第一个数01加上第一行第三个数07，得的结果08写入另一文档Text2；即01+07＝08
公式二：第一行第二个数04乘以第二行的第三个数09，得36也写入文档Text2；即04×09＝36
我还是新新手，请详细说一说吗？或那有相同的源代码程序下载？谢谢。
　

如果按楼主的形式先取第一行字符串把文本值符给一个字符串，应该能用vbCrlf判断换行。然后用mid()函数取子字符串，进行计算。mid函数可以精确的提取一个字符串的其中几个字符或字符串，用法记不太清了。应该是有一个以源字符串为参数，从第位开始取每次取多少个。具体楼主有vb的帮助文档（MSDN）的话，那里应该能找到mid函数的用法。

看来我还要下大功夫来学才行，谢谢楼上朋友的指点。我还没装帮助文档（MSDN）。这就找一下。

private sub check1_click()
text2.text=cstr(cint(mid(text1.text,1,2))+cint(mid(text1.text,7,2)))
end sub
private sub check2_click()
text2.text=Cstr(cint(mid(text1.text,4,2)) * cint(Right(Text1.Text, 2)))
end sub

怎样使Text2的得数成这样的排列？
08
36

[此贴子已经被作者于2005-1-16 20:35:03编辑过]

private sub check1_click()
text2.text=text2.text  & cstr(cint(mid(text1.text,1,2))+cint(mid(text1.text,7,2))) & chr(13) & chr(10)
end sub
private sub check2_click()
text2.text=text2.text  & Cstr(cint(mid(text1.text,4,2)) * cint(Right(Text1.Text, 2))) & chr(13) & chr(10)

end sub