Dim aStr $    '定义一个字符串变量

aStr $="This is a string"

系统函数:

Now  返回系统日期/时间  例:2009-4-22 8:29:33

Time 返回当前时间 例:8:32:15

字符串函数:

①删除空白字符函数Trim $();LTrim $();RTrim $();

②字符串截取函数:Left $(字符串,n) ;Mid $(字符串,p,n) ;其中从第p个字符开始,向后截取n个字符.;Right $(字符串,n)

③String $(n,ASCII码);String $(n,字符串)

****************************************************************************************************************************

例:a $=string $(5,65)     c $=string $(5,abcde)

print a$ ;c$

AAAAAaaaaa

****************************************************************************************************************************

空格函数Space $(n)

例:  a $="a"+Space(4)+"b"         结果:a    b

字符串匹配函数InStr([ 首字符位置] 字符串1,字符串2[,n])          '判断文本框中是否输入了某个字符串

例: a $ ="Microsoft Visual Basic"

x=InStr(a $ ,'Visual')

结果:11     '字符串2的第一个字符v 位于字符串1的第11个字符处

Sheel函数异步调用应用程序,执行成功后返回一个任务表识

例:proID=Sheel("c;\Program Files\ACD Systems\acdsee.exe",3)

Format函数:

例:Print  Format $ (.257,"00.0%")

结果:25.7%

private sub form_click()

msg1 $ ="请输入姓名:"

msgtitle $="学生情况登记"

msg2 $="请输入"