Option Explicit '强制声明变量
'变量的定义
'Dim Opera,Operb,result
'常量的定义
'Const vbPI=3.14
'Opera=InputBox("please input a's value")
'Operb=InputBox("please input b's value")
'result=Opera+Operb
'MsgBox Opera&"+"&Operb&"="&result
'MsgBox vbPI
'内置换行
'MsgBox "hello"&vbCrLf&"world"
'字符串，大小写转换
'Dim x
'x=LCase("aBc") '小写
'MsgBox x
'x=UCase("Abcc") '大写
'MsgBox x
'StrComp 比较字符 如果字符相同则返回结果为0，否则为非0
'Dim username,inun
'username="zhangsan"
'inun=InputBox("请输入用户名")
' If StrComp(username,inun) Then
' MsgBox "用户名不相同"
' Else
' MsgBox "相同"
' End If
'字符长度
' Dim a
' a="maiziedu"
' MsgBox Len(a)
'字符串替换
'Dim astr
'astr=Replace("hello,xiaoyu","hello","hi")
'MsgBox astr
'字符串分割
'Dim teststr,teststrs
'teststr="2.1.3"
'teststrs=Split(teststr,".")
' MsgBox teststrs(0)
' MsgBox teststrs(1)
' MsgBox teststrs(2)