出现"the type of the actual argument differs from the type of the dummy argumemt" 问题:属性页中diagnostics—check routine interfaces—设置为no出现边界问题:属性页中runtime—check array and string Bounds—设置为no