要求2号两个一样，然后自动出现1.2a.2b.3作者: Henry D. Sy 时间: 2012-3-27 14:29
描述不清！
自动出现 1.2.3.4
?????????????????????作者: todaynew 时间: 2012-3-27 17:08 本帖最后由 todaynew 于 2012-3-27 17:11 编辑
没有测试，自己试试看吧：
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 时间: 2012-3-27 22:35 本帖最后由 chenyingfengsx 于 2012-3-27 22:52 编辑