发布于 2006-07-17 14:27:12
0楼
楼主:
你所谓的M(1)---M(8)这几个是不是只表示数字!???
下面这个就判断是不是数字?不是的话就不合并,是数字就合并.
Dim Index(8),i
Index(1)=7
Index(2)=8
Index(3)=5
Index(4)=6
Index(5)=3
Index(6)=4
Index(7)=1
Index(8)=2
for i=1 to 8
if (Asc(M(i))>48 and Asc(M(i))<57) then
M(0)=M(0)+M(Index(i))
endif
next i
雄关漫道真如铁,而今迈步从头越!