VB语法小结学习经验

《VB语法小结学习经验》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、学习时主要参考书籍：《VisualBasic高级图形应用程序设计李兰友刘炜江中编著清华大学出版社》如果某个常量字段是字符串，则用‘’括起来,他表示字符串的开始和结束如果某个字段有很多有其他意义的字符，但是不想让他们发挥作用，只是把它看做字符，则应用“”括起来之后再用‘'括起来某字段为日期用##括起来某字段为数字则不用符号括起来&表示连接字符串实例：Adodc1.RecordSource="select*fromtb_userwhere操作员='"&StatusBar1.Panels(4).text&"

2、'"解释：Adodc1.RecordSource是某个字符串型成员变量，select*fromtb_userwhere操作员='表示数据库里的选择操作，但是由于两侧有""，所以此处只是字符串，他要被赋给汉能接受字符串的函数来发挥作用。StatusBar1.Panels(4).text表示一个字符串类型的成员变量，'由于两侧有""，所以也是字符串。两个&将三个字符串连接起来，前后两个'在三个字符串连接起来并赋给函数后发挥作用，使得能够执行select*fromtb_userwhere操作员=Status

3、Bar1.Panels(4).text总结：在字符串相加阶段不需要管'，合并完之后'就能够发挥作用了。字符串数组和其他数组必须要确定其数组尺寸后才能赋值，否则会显示下标越界。常用函数：Trim(Str)'删除字符串两边的空格Trim("两边有空格")运行之后成为"两边有空格"Str(数字)'把数字转换成字符串，如：Str（123）运行后成为"123"StrReplace(Str)是将Str中的'替换成'',这样就不会引起编译时的错误参考P187关于字符串的语句可以记下以下的格式：'"+Trim(Str

4、)+"',如果是将数字转换成的Str，则不用加''“”“/”的问题是在VB中出现的。一个表示取整数商，另一个是普通除法。rnd（）随机数函数发生器，可以没有参数，这样每次调用时使用的是上次调用这个函数产生的结果作为“种子”来诱发新一次的随机数产生。汉字可以做变量类似于汇编里的nDUP(?),有string(n,#),则返回N个由#组成的字符串数值格式化：format（数值，“格式”），格式可以是000.0##.##等等的组合字符串格式化：format（“”，“格式”），格式可以是><@@@@@(表示

5、变成这个长度的字符串)&&&&&&（&&&是不必一定补齐的）print“”；“”；“”输出三个字符串在同一行，并且是连续的print“”，“”，“”输出三个字符串在同一行，每个字符串变成14个字符长度printtab（n）“”；“”；“”先把光标向后移动n个字符在输出printtab（n）“”；spc（m）；“”；spc（m）；“”先把光标向后移动n个字符在输出，在字符之间加入m个空格。vbCrLf表示换行Chr(13)+Chr(10)这个组合也表示换行，单独的一个不表示什么提示信息格式如下：MsgB

6、ox"这只是一个提示信息"+Chr(13)+Chr(10)+"可以继续进行操作",vbOKCancel+vbInformation+vbDefaultButton2,"提示信息"num=msgbox();可以根据鼠标选择的不同产生不同值，利用mum来产生后续操作检索时关键词不能与其他字符连着写，不然会不识别！！！！！！！！！！！！！！！！！！！！！'使用前后扫描录入的方法的部分程序Ifcount=0Thencount1=rs.Fields(0)count=count+1Elsecount2=rs.Fi

7、elds(0)EndIfIfcountMod2=0Thencount=0EndIf1：aa:=trim(edit1.text);query.sql.text:='selectname,money*'+aa+'fromrecord';2：如果aa是数值，则query.sql.text:='selectname,money*'+floattostr(aa)+'fromrecord'3：字符query.sql.text:='selectname,money*'+inttostr(aa)+'fromrecor

8、d';对于ACCESS数据库数据更新或查询时，如果被查询的字段是字符或者数字，两者在查询语句的写法上是不一样的。如下：被查字段是数字：xx=5‘是数字cmd.CommandText="update位置set位置信息='"+gh+"'where位置.索书号>="&(xx)&"and位置.索书号<="&(yy)cmd.Executeef=5’是数字cmd.CommandText="update位置set位置信息='"+gh+"'where位置.索书号="&(