如何实现相同数字后面自动添加字母

chenyingfengsx

如何实现相同数字后面自动添加字母



比如我输入数字  4

自动出现  1.2.3.4

要求2号两个一样，然后自动出现1.2a.2b.3

Henry D. Sy

描述不清！
自动出现  1.2.3.4
?????????????????????

todaynew

没有测试，自己试试看吧：

function p(cot as long,num as long,len as long) as string
'cot:几个数？ num:哪个数？ len：重复几次？
dim i as long,j as long
dim str as string,code as string
str=""
for i=1 to cot
     if i=num then
          code="a"
          for j=1 to len
             str=str & i & code & "."
             code=Chr(Asc(code)+1)    '小写字母自增运算
          next
     else
          str=str & i & "."
     end if
next
p=str
end function

chenyingfengsx

谢谢解答！就是里面那个len不能使用和系统冲突了，换一个变量就可以。谢谢！