好像是用数组实现吧.....不太会~有没有高人解答一下~多谢

是啊 两个字符串 模拟手工加减法

两个字符串?能说详细些吗?谢谢

字符串不就是数组吗？（C里是，VB类似）

就是数组嘛

抱歉不是VB语言的。

    高精度加法
function hiPlus(s1,s2:string):string;
var a,b:array[1..100] of byte;
    k,l1,l2,i,j:integer;tmpstr:string;
begin
  l1:=length(s1);l2:=length(s2); 
  fillchar(a,sizeof(a),0);
  fillchar(b,sizeof(b),0);
  if l1>l2 then j:=l1 else j:=l2;
  k:=0;
  for i:=l1 downto 1 do
    begin
      inc(k);
      a[k]:=ord(s1[i])-48;
    end;
  k:=0;
  for i:=l2 downto 1 do
    begin
      inc(k);
      b[k]:=ord(s2[i])-48;
    end;
  for i:=1 to j do
    begin [
      a[i]:=a[i]+b[i];
      if a[i]>=10 then
        begin
          a[i]:=a[i]-10;
          a[i+1]:=a[i+1]+1;
        end; ]
    end;
  if a[j+1]=0 then j:=j-1;
  tmpstr:='';
  for i:=j+1 downto 1 do
    tmpstr:=tmpstr+chr(a[i]+48);
  hiPlus:=tmpstr
end;  
    高精度减法
if a[i]<b[i] then
  begin
    a[i+1]:=a[i+1]-1;
    a[i]:=a[i]+10;
  end;
a[i]:=a[i]-b[i];

啊......谁能用vb写一下呢....看不太懂....谢谢!

var 是定义变量，类似于dim。
冒号前面是变量名，后面是数据类型。
array说明是数组，of后面是基类型。

fillchar是数组初始化，全部赋为0.
length是取字符串长度，相当于Len。
冒号等于是赋值，想当于=的赋值。
for i:=i1 downto 1 do 相当于 For i=i1 To 1 Step -1
for的主体是for后面的一条语句。
认为begin和对应的end之间是一条复合语句，即一条语句。

inc(k)相当于k=k+1；
ord是取ASCII码，相当于Asc函数。

上面的函数是高精度加法的，把中括号的部分换成下面的程序段就是减法的。

如果会Delphi的，看这段程序应该不难。

高精度计算是一种算法，用什么语言描述无关紧要，重要的是算法的思想。