VB程序设计及数据库开发技术

第2章VisualBasic语言基础,学习目标：掌握VB的编码规则了解VB的数据类型掌握变量、常量的声明和使用掌握运算符和表达式的使用掌握VB数据的输入与输出了解VB的内部函数,第2章VisualBasic语言基础,教学内容：2.1VB编码规则2.2VB的数据类型2.3变量与常量2.4运算符与表达式2.5数据的输入输出2.6VB的常用内部函数,2.1VB编码规则,例2.1单击窗体可输出内容交换后的a变量和b变量的值。PrivateSubForm_Click()DimaAsInteger,bAsInteger,intTempAsInteger声明变量a=10变量赋值b=20Printa变量和b变量内容交换前：;a;b变量交换intTemp=aa=bb=intTempPrinta变量和b变量内容交换后：;a;bEndSub,返回目录,2.1VB编码规则语句书写规则,语句输入时不区分大小写，一条语句通常写在一行中。一行中若输入多条语句，需用“:”分隔。例如，intTemp=a:a=b:b=intTemp长语句可通过续行符“_”(空格后加下划线)分行。例如，Printa变量和b变量内容交换前：;a;b可分成以下两行输入：Printa变量和b变量内容交换前：;_a;b单引号后面的内容为注释，可放在一行语句的最后，或单独占据一行。数值前加上前缀a;bintTemp=a:a=b:b=intTemp变量交换EndSubPrivateSubCommand2_Click()Print:Printa和b内容交换后：;a;bEndSub,返回目录,2.3变量与常量变量,(3)全局变量：标准模块的声明段用Public或Global声明有效范围是整个工程的所有模块说明：标准模块：只含有程序代码的文件，扩展名为.bas添加标准模块：“工程添加模块”如果在窗体模块的“通用”,返回目录,声明段用Public声明变量，其它模块可通过如下方式引用该变量：窗体模块名.变量名,2.3变量与常量常量,1.内部常量由应用程序和控件提供。例如：Form1.BackColor=vbBluevbBlue是表示蓝色的内部常量查看系统预定义常量：“视图对象浏览器”,返回目录,2.3变量与常量常量,2.符号常量(自定义常量)命名：遵循标识符命名的规则声明格式：Public|PrivateConst常量名As类型=表达式例：ConstconMaxAsInteger=9声明Integer型常量ConstconDate=#10/5/2002#声明Date型常量ConstCodeName=ASCII声明String型常量有效范围：局部常量、模块常量、全局常量声明常量的表达式中不能出现函数调用和循环引用例：错误的常量声明ConstconS=Sqr(10)ConstconA=conB+10,conB=conA+1,返回目录,2.4运算符与表达式运算符,1.算术运算符,返回目录,2.4运算符与表达式运算符,2.字符串运算符运算符：对象缺省为当前窗体，输出项缺省则打印一空白行输出项之间可用分号或逗号分隔：使用分号，其后的输出项紧接着前一个输出项输出；使用逗号，其后的输出项在下一个输出区输出。两个输出区默认相隔14列各输出项表示要打印的表达式，组成Spc(n)|Tab(n)表达式Spc(n)：指定在输出之前插入n个空白字符Tab(n)：指定在第n列上输出,返回目录,2.5数据的输入输出数据输出,例，PrivateSubForm_Click()PrintPrintTab(15);*PrintTab(13);*;Spc(1);*;Spc(1);*“EndSub,返回目录,2.5数据的输入输出数据输出,2.格式输出函数功能：使数值、日期或字符串按指定的格式输出格式：Format(expression,format)expression需要格式化输出的表达式format输出的格式模式,返回目录,2.5数据的输入输出数据输出,3.MsgBox函数功能：创建预定义的消息对话框常用格式：MsgBox(prompt,buttons,title)prompt字符串，指定消息框中显示的信息Buttons指定消息框中显示的按钮数目及形式、图标样式等，缺省值为vbOKOnly常用的设置值见教材表2.6Title指定消息框的标题，缺省值为工程名用户所选按钮的返回值(见教材表2.7)可作为继续执行程序的依据。,返回目录,2.5数据的输入输出数据输出,例2.4PrivateSubForm_Click()prompt=真的新增该条记录吗answer=MsgBox(prompt,vbOKCancel,AddRecord)Ifanswer=vbOKThenDebug.Print您选择的是“确定”按钮Ifanswer=vbCancelThenDebug.Print您选择的是“取消”按钮EndSub,返回目录,2.5数据的输入输出数据输出,说明：如果消息框中显示的信息过长，可使用回车符Chr(13)和换行符Chr(10)如果不需要返回值，可使用没有括号的MsgBox语句：MsgBoxprompt,buttons,title例，Msg=非法的数据输入!&Chr(13)&Chr(10)&请重新输入Title=出错提示MsgBoxMsg,vbCritical,Title,返回目录,2.5数据的输入输出数据输入,功能：生成输入对话框常用格式：InputBox(prompt,title,default,xpos,ypos)prompt字符串，指定输入框中显示的信息Title指定输入框的标题，缺省值为工程名Default字符串，指定文本框中的初始内容，缺省为空。xpos和ypos数值表达式，成对出现或者成对缺省，指定输入框左上角相对于屏幕的位置。InputBox函数一次只能输入一个值,返回目录,2.5数据的输入输出数据输入,例2.5PrivateSubForm_Click()DimUsernameUsername=InputBox(输入姓名后单击确定,输入)PrintUsernameEndSub,返回目录,2.6常用内部函数数学函数,常用数学函数见教材表2.8几点说明：由基本函数可导出所需的数学函数例如，Log(X)/Log(N)可求出以N为底的对数对Rnd(N)，N的值决定了Rnd生成随机数的方式N0或者缺省：产生序列中的下一个随机数N=0：返回最近生成的随机数,返回目录,例如：随机产生1-selenum之间的数Randomize(Timer)Selenum=7Rn=Int(Selenum)*Rnd+1),调用Rnd之前，使用Randomize语句可产生不相同的随机数数列,2.6常用内部函数字符串函数,常用字符串函数见教材表2.9几点说明：表2.9只对常用的字符串函数进行了简单的说明使用Str函数将数字转成字符串时，字符串的首位一定是空格或是正负号。例如，S1=Str(67)返回67S2=Str(-67.5)返回-67.5使用Val函数时，如果遇到不能识别为数字的字符，则停止转换。例如，Val(“24a