Dim A As String, B As String
成都网络公司-成都网站建设公司成都创新互联公司10年经验成就非凡，专业从事成都做网站、成都网站设计，成都网页设计，成都网页制作，软文发稿，广告投放平台等。10年来已成功提供全面的成都网站建设方案，打造行业特色的成都网站建设案例，建站热线：028-86922220，我们期待您的来电！
A = "123456"
B = "123456"
If A = B Then GoTo xiangdeng
MsgBox "不相等"
GoTo buxiangdeng
xiangdeng:
MsgBox "相等"
buxiangdeng:
select case strings.right(S1,4)
case ".jpg",".bmp",".png"
你的处理代码
end select
string 里的功能很基本。
strings类里有很多静态的字符串处理函数，很好用的，好好研究吧。
用 Like
% = 任意数量的字符
？= 单个字符
类似简易的正规则比对。
具体可参照MSDN
例：(以下代码可以直接放到程序里执行)
dim str as string
str = "abc123"
if str like "a%" then msgbox "yes"
if str like "%a%2%" then msgbox "yes"
if str like "%3" then msgbox "yes"
if str like "%3?" = false then msgbox "no"
