'定义一个包含6个国家名称的字符串，每个名称之间使用“/”符号分隔。设计一个程序，在页面中一行显示一个国家的名称。
dim s
dim d
s = "China/English/Korea/American/France/Russia"
d = split(s,"/")
msgbox  d(0)&chr(10)&d(1)&chr(10)&d(2)&chr(10)&d(3)&chr(10)&d(4)&chr(10)&d(5)

'编写函数用于判断用户输入的电话号码是否正确，电话号码可以是7位、8位或11位
Dim no,msg
msg="请输入电话号码:"
no=Inputbox(msg)
l=len(no)
if l = 7 or l = 8 or l =11 Then
Msgbox(no&"电话号码不正确")
end if