问题描述
- VB判断字符串中是否有二联号
解决方案
dim n = 0
for i = 2 to len(s)
if mid(s,i,1)=mid(s,i-1,1) then n = n + 1 else n = 1
if n =3 then msgbox "三联":exit for
next
时间: 2024-09-11 09:28:18
dim n = 0
for i = 2 to len(s)
if mid(s,i,1)=mid(s,i-1,1) then n = n + 1 else n = 1
if n =3 then msgbox "三联":exit for
next