文本１有一串数字数组：5678895
3566778
　 2569413，
怎样使文本2取文本１最后一行第二位数5和第四位数的9相加，得14，结果只取个位数=4，谢谢。

[此贴子已经被作者于2005-11-23 23:31:37编辑过]

你这个文本是在 textbox 里面输入的么？如果是，试着用 split 函数，以 vbcrlf 将文本分解成三段。然后取最后一段，就好处理了。

mid函数

晕，刚自学，不会，可否写个代码？

请把格式写清楚，，，text1里的。

最后有“,”没？而且是不是一个字符串就转行？

位数是不是都一样？

没有，谢谢。

Dim Bloc as Variant
Dim Resultat as String*1

Bloc=Split(Text1.Text,vbCrlf)
If Ubound(Bloc)=2 Then
Resultat=Right(CStr(Val(Mid(Bloc(2),2,1))*Val(Mid(Bloc(2),4,1))),1)
End If