VisualBasic程序设计基础.ppt_第1页
VisualBasic程序设计基础.ppt_第2页
VisualBasic程序设计基础.ppt_第3页
VisualBasic程序设计基础.ppt_第4页
VisualBasic程序设计基础.ppt_第5页
已阅读5页,还剩60页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

第三章数据结构与表达式,本章内容及要求:1.熟悉VB程序中代码和语句书写规则;2.掌握VB的数据类型;3.掌握VB的运算符和表达式的使用;4.掌握常用内部函数的使用;,本章重点:变量和常量的定义及使用、运算符和表达式的使用及常用内部函数的使用。,本章难点:数据类型、内部函数。,本章目录,3.1编码基础3.2数据类型3.3常量与变量3.4运算符与表达式3.5常用内部函数,3.1编码基础,3.1.1VisualBasic的基本元素1字符集2关键字3标识符,3.1编码基础,VB和其它程序设计语言一样,编写代码也有一定的书写规则,主要书写规则如下:,3.1.2VisualBasic的书写规则,1.代码中不分字母大小写,为了提高程序的可读性,VB对用户程序代码进行自动转换:(1)对于VB中的关键字,首字母总是被转换成大写,其它字母被转换成小写。(2)如关键字有多个英文字母组成,自动将每个单词首字母转换成大写。(3)对于用户自定义的变量名、过程名,VB以第一次定义的为准,以后输入的自动向首次的定义转换。,2.语句书写自由,(1)在同一行上可以书写多条语句,语句间用冒号“:”分隔。(2)单行语句可分为若干行书写,在本行后加入续行符号(“_”空格和下划线)。DimAnotherVarAsString,_续行,下行还有ChoiceASBoolean,BirthDateAsDate(3)一行允许书写255个字符。,3.注释有利于程序的维护和调试,(1)注释以Rem开头,也可以用撇号“”引导注释内容,并可直接出现在语句的后面。(2)在“编辑”工具栏中,设有“块注释取消块注释”按钮,可使若干行语句或文字设置为块注释取消块注释。(3)注释语句是非执行语句,它只起注释说明的作用,目的是提高程序的阅读性。,4.保留行号与标号,VB源程序仍然接受行号与标号。行号是一数字序列;标号是一以字母开始的字符串,标号与与其所标志的语句用冒号隔开。在转向语句中,必须有行号或标号来标识转去执行的方向。举例:,IfabthengotoLLt=aa=bb=tLL:printa,b,转向语句,3.2数据类型,大多数程序设计语言都将数据分类,这些数据的类别就是所谓的数据类型。不同的数据类型在内存中占用的存储区长度以及在机器内部的表示方式是不同的。对不同数据类型的操作也不相同。,3.2.1标准数据类型,1、数值(numeric)数据类型,(1)整数(Integer)Integer指的是不带小数点的数字,表示方法:(A)直接写如:123(B)在数字后面加类型说明符“%”号如:123%范围:-3276832767定义:dima%dimbasinteger,(2)长整数(long)表示方法:在数字后面加类型说明符”Int(-16.3)也是-17;Fix(-16.7)的值为-16。,(2)符号函数SGN(X)符号函数的定义如下:当X0时,SGN(X)的值为1当X=0时,SGN(X)的值为0当X0时,SGN(X)的值为-1例:SGN(23)的值为1;SGN(0)的值为0;SGN(-3)的值为-1,(3)产生随机数的函数RND(X)这个函数的功能是随机产生一个0,1)之间的小数。X的值一般取为一个大于0的数.与这个函数相关的还有Randomize语句,在调用RND函数前一般要用这个语句。例:随机产生3个100以内的整数,用Print方法在窗口输出。分析:RND()函数只能产生0到1之间的小数,我们可以将该数扩大100倍然后取整,便可得到一个100以内的整数。可利用公式:INT(RND(1)*100)。,产生A,B之间的随机整数的公式是:Int(Rnd(1)*(B-A+1)+A,新建一个工程,在窗体的Form_Click过程中添入下面的代码:Dima,b,c,da=Int(Rnd(1)*100)生成随机整数b=Int(Rnd(1)*100)c=Int(Rnd(1)*100)Printa,b,c,d显示生成的整数按F5运行程序,并记下结果。再次运行程序,结果是否与前一次相同?在生成整数的3个语句前加入Randomize语句后,再多次运行,结果是否仍然相同?,相同,不同,二、类型转换函数,Str(数值型数据)将数值型数据转换为字符串Val(字符串)将字符串转化为数值数据注意:(1)Val()函数在转换时,从字符串左边逐一转换,在遇到无法转换的字符时停止转换。(2)Val()函数在转换时忽略字符串中的下列字符空格(Space,Ascii=32)、制表符(Tab,Ascii=9)、换行(LF,Ascii=10)、回车(Return,Ascii=13)。例:Val(100.3)的值为100.3Val(210Ab45)的值为210执行语句Value1=Val(12345mnA)后数值变量Value1的值为12345。,三、字符串函数1.大小写转换函数Lcase(字符串)将字符串中的大写字母转换为小写字母。Ucase(字符串)将字符串中的小写字母转换为大写字母。例:Lcase(AbC)值为abcUcase(HopM)值为HOPM这两个函数还有另外一种形式:Lcase$(字符串)Ucase$(字符串),2.去除空格函数Trim(字符串):去除字符串左右的空格Rtrim(字符串):去除字符串右面的空格Ltrim(字符串):去除字符串左面的空格3.Asc(字符串)和chr$(数值)Asc(字符串):将字符转成ASCII值Chr$(数值):将ASCII值转成字符,4.产生字符串函数Space(x):产生x个连续的空格。String(x,字符串或整数):产生由x个给定字符串的首字符或整数对应ASCII字符组成的字符串。例:String(3,“计算机”)结果为“计计计”String(3,65)结果为AAA,5.测量字符串长度函数Len(字符串)计算字符串中的字符数LenB(字符串)计算字符串的字节数例:Len(计算机)值为3LenB(计算机)值为6Len(ASDF)值为4LenB(ASDF)值为8,6.截取字符串函数Left(字符串,x):由字符串的左边截取x个字符Right(字符串,x):由字符串的右边截取x个字符Mid(字符串,y,x):由字符串的第y个字符开始截取x个字符例:Left(ASDF,2)结果为ASRight(ASDF,2)结果为DFMid(ASDF,2,2)结果为SD,7.搜索字符串函数Instr(首字符的位置,字符串1,字符串2,模式):该函数用来确定字符串2在字符串1中的起始位置,如果字符串2不在字符串1中,其值为零。省略首字符的位置,则从头开始找。“模式”值可为0或1,为0(缺省)时区分大小写,为1时不区分大小写例:Instr(abcdefg,cde)值为3Instr(abcdefg,cme)值为0,四、日期函数,1.Time$()返回系统时间。2.Date$()返回系统日期。3.Now返回系统日期和时间。4.WeekDay(date)返回一个代表date是星期几的整数date是一个能够表示日期的数值表达式、符串表达式或它们的组合。如果是数值表达式,则该表达式的值表示相对于1899年12月30日以后的天数。其返回值为以下诸值之一:1代表星期日2代表星期一3代表星期二4代表星期三5代表星期四6代表星期五7代表星期六,五.格式输出函数:格式:Format$(表达式,格式字符串)其中:表达式:要格式化的数值、日期和字符类型表达式。格式字符串:用引号“”引起的所采用的输出格式。一般有三种:数值格式、日期格式、字符串格式(1)数值格式化。(2)日期和时间格式化。(3)字符串格式化。,(1)数值格式化A.格式字符串使用0,如果实际位数小于格式字符串中定义的位数,则在输出的数值前后加0,如果实际位数大于格式字符串中定义的位数,则小数部分进行四舍五入,整数部分不变a=Format$(1234.567,“00000.000”)a的结果为01234.567a=Format$(1234.567,“00.00”)a的结果为1234.57B.格式字符串使用#,如果实际位数小于格式字符串中定义的位数,则在输出的数值前后不加0,如果实际位数大于格式字符串中定义的位数,则小数部分进行四舍五入,整数部分不变a=Format$(1234.567,“#.#”

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论