1、VB语言基础VB语言基础一、数据类型 1、数值型: 取值范围:Byte(字节型)占1字节; 0255无符号Integer(整型)占2字节; -3276832767long(长整型)占4字节; -21474836482147483647single(单精度浮点)占4字节; 略Double(双精度浮点)占4字节; 略Currency(货币型)占8字节 小数点左15位,右4位 (精确定点数据类型) 2、逻辑型:Boolean(布尔型)占2字节; true或false 3、字符串型:String定长型占字符串长度,变长型再加10 4、日期型:Date(日期型)占8字节 100-1-19999-12-3
2、1 5、对象型:Object占4字节; 任何Object引用 6、变体型:Variant变体型数字占16字节,变体型字符占22字节字符串长 注:此类型还包含三种特定值: Empty;Null;Error; 7、用户定义的数据类型: 用户可以利用Type语句定义自己的数据类型。格式如下 Type 数据类型名 数据类型元素名 As 类型名 End Type 用Type可定义类似于C语言中的结构体类型。例如: Type Date_Rec RYear As Integer RMonth As String*3 RDay As Integer End Type 注:记录类型中的元素可以是字符串,但必须是
3、定长字符串,其长度由类型名加上一个星号和常数指明。 数据类型转换函数: 函数名及书写格式 转换结果 CBool(表达式) 布尔型 CCur(表达式) 货币型 CByte(表达式) 字节型 CDate(表达式) 日期型 CDbl(表达式) 双精度 CSng(表达式) 单精度 CInt(表达式) 整型 CLng(表达式) 长整型 CStr(表达式) 字符串 Cvar(表达式) 变体型 二变量 1 变量名V中变量的命名遵从标识符命名原则:必须以字母开头;变量中间不能有空格;不能使用VB关键字; 2 变量的声明VB允许使用不声明的变量,即一个变量未经声明就可以在程序中使用。这种变量使用方式称为隐含变量
4、声明。(使用隐含变量时,VB会自动创建变量,并赋予它变体类型。在为其指定值之前,其值为Empty,当为它赋值后,会采用所赋值的类型作为自己的类型。) 显式声明: 用类型说明符:将类型说明符加在变量名的尾部; 定义变量时指定其类型: 格式:Declare 变量名 As 类型名 其中的Declare 可以是Dim ,Static, Redim, Public中之一 用Def type语句:Def type 字母范围 这里的Type是类型标志,Def是系统保留字,它们之间没有空格。例如:DefInt D-J 该定义声明了D、E、F、G、H、I、J都是整型变量,而且以这些字母开头的变量名也都是整型变量
5、。 类型说明符: :整型; & :长整型; !:单精度浮点型; # :双精度浮点型; :货币型; $ :字符串型; 字节、布尔、日期、对象及变体型没有类型说明符。 注意: Dim a,b,c As Integer是错误的。只有c被声明成Integer,而a,b缺省为Variant类型。 如果使用Dim x As Integer语句声明了变量x为Integer,而在后面又使用带有类型说明符的该变量,如x$,x!,x和x#,程序运行时就会产生“duplicate definition”错误。 使用不带As的Dim语句,会被声明成变体类型的变量。 通过不带长度说明的字符串声明语句可以声明变长字符串。
6、 对于声明布尔型的变量,其缺省值为False ; 为声明为Date类型的变量赋值时,日期值应放在一对#之间,且多种日期和时间格式在VB中都是有效的。 3 变量的作用域和生存期: 变量的作用域指变量的有效作用范围,也就是变量可以被访问的范围。按以下三种方式来定义变量的作用范围: 范围 说明 过程 在过程内使用Dim或Static 私有 在模块开头加上Dim或Private 公共 在模块开头加上Public 变量的生存期指VB保存该变量值的时间,是变量在整个程序运行过程中的有效生存时间1)过程层变量过程层变量是指在过程或函数内部定义的变量,这种变量无论是用Dim还是Static声明,其作用域都只是
7、该过程或函数体,在过程或函数外不能引用 ;2)窗体层变量窗体层变量是指在窗体的通用部分声明的变量,即不是在任何一个窗体内的过程或函数中声明的变量。它的作用范围至少是窗体的存在范围,也就是说在窗体内的每个过程或函数中都可以使用窗体层变量。 窗体层变量的声明有三种方式: 用Dim语句声明。 用Private语句声明。 用Public语句声明。 对于用Dim和Private声明的窗体层变量,其作用范围都是在所声明的窗体范围内。用Public声明的窗体层变量作为窗体公用数据成员,可以在其他窗体或模块中以“窗体名.变量”方式引用。其作用可以大于当前窗体范围。窗体层变量在本窗体所有过程中都是可见的。 3)
8、 模块层变量模块(Module)是构成VB工程(Project)的一部分,是包含数据和过程的集合。定义模块层变量只需在模块的通用部分加入Dim,Private,Global或Public等声明语句即可。用Dim和Private声明的模块层变量作用域为所在模块范围,而用Public和Global定义的模块层变量则可以全局使用。 注:全局变量必须用Public或Global声明,不能用Dim 三 常量 常量是一个有意义的名字,用来表示程序运行时不变的数值和字符串。 Visual Basic中的常量分为文字常量和符号常量两种,文字常量又可分为数字常量和字符串常量。 符号常量(自定义常量):在程序中程
9、序员用Const声明的常量。 使用常量时应注意: (1) 用Const声明的常量在程序运行过程中是不能被重新赋值的。 (2) 在常量声明的同时赋值。 (3) 可以为声明的常量指定数据类型,如Const conVal As Currency=3.78,缺省时为所赋值的类型。 (4) 在用常量为常量初始化时注意,不可有循环引用。例如: 模块1中 : Public const con1=con2+8 模块2中 : Public Const con2= con1*3 四 数组 1 数组的定义: 必须用Global或Dim语句定义。Dim语句的语法格式如下: Dim 数组名(lower To upper
10、,lower To upper)As type 在这里,每对lower和upper为数组的一维,lower是该维下标的下限,upper是该维下标的上限,如不标明lower,其默认值为 0。Upper不可省略。 例如: (1) 一维数组的定义: Dim Record (5) As Integer 定义了一个有六个数据元素的整型数组 (2) 二维数组的定义 Dim Matrix(2,3) As Integer 该数组定义了一个二维数组,可以存储12个整型数,三行四列下标:00,01,02,03,10,23 2 动态数组 带有空()的Dim可以声明一个动态数组,如: Dim dynArray( )
11、然后,可用ReDim语句在一个过程或函数中定义动态数组的维数和元素个数。申请或重申请存储空间的一般格式为: ReDim Preserve 数组名 (lower TO upper ,lower To upper) As Type 其中,Preserve为可选项,表示是否保护己有数据。缺省时为不保护。 例如: ReDim dynArray(10) /为动态数组申请10个单元 ReDim Preserve myArray (Ubound(myArray)+10) 其中,Ubound函数返回数组的指定维的上限。 这是一个保留原数据的增量分配数组 五、枚举类型: 当一个变量只有几种可能的值时,可将这个变
12、量定义为枚举类型。 枚举类型的声明放在窗体模块、标准模块或公用类模块中的声明部分,用Enum语句来定义,格式如下: Public|Private Enum 类型名称 成员名常数表达式 成员名常数表达式 End Enum 默认情况下,枚举类型中的第一个常数被初始化为0,其后的常数逐项递增1。 例如: Enum Days Saturday Sunday Monday Tuesday Wednesday Thursday Friday End Enum 例如在如上定义的Days枚举类型的基础上,有如下单击某按钮的过程: Private Sub Command1_Click() Dim MyDay A
13、s Days MyDay = Saturday If MyDay Monday then MsgBox “Its the weekend !” End If End Sub MyDay是一个枚举变量,Saturday的值为0,而Monday的数值为2,If中的条件成立 六、运算符与表达式 1 赋值运算符:Visual Basic中的赋值运算符是“=”。 2 数学运算符: 优先级 运算符 说 明 高 指数运算,如238 负号运算符 * / 乘除运算,其中除法(/)的所得结果 为实数 整除。所得结果为实际结果 的整数部分 Mod 取模运算符,两数相除取余数 + - 加、减运算 低 & 连接字符串。
14、 3 关系运算符:(等于);或(不等); (大于);=(大于等于);like(比较样式);Is(比较对象变量) 4逻辑运算符: 逻辑运算用于判断操作数之间的逻辑关系。VB提供了非(Not)、与(And)、或 (Or)、异或(Xor)、相等(Eqv)和隐含(Imp)逻辑运算。逻辑运算符的优先级低于数学运算符和关系运算符。逻辑运算符本身也有优先级,其顺序为Not,And,Or,Xor, Eqv,Imp。 5、表达式的执行顺序: 1)函数运算; 2)算术运算; 3)关系运算;(优先级:,=) 4)逻辑运算; 注:乘除法同时出现时,遵循从左到右顺序;括号的运算总是优先;字符串连接(&)不是算术运算符,
15、但其优先顺序在所以算术运算符之后,又优先于其他运算符 七、输入与输出: InputBox函数 :InputBox函数可以产生一个对话框,用于将用户从键盘输入的数据作为函数的返回值返回到当前程序中。 返回数值型数据。格式如下: InputBox(prompt ,title,defualt,xpos,ypos,helpfile,context) 返回字符串型数据。格式如下: InputBox$(prompt ,title,defualt,xpos,ypos,helpfile,context) 其中的参数含义为: prompt:一个字符串,显示出现在对话框中的用来提示用户的信息,最大长度为1024个
16、字符。 Title:一个字符串,显示出现在对话框的顶部的标题信息。 default:一个字符串,用于显示输入缓冲区的默认信息,即用户在执行了InputBox函数后如果没有输入任何信息,则可用此字符串作为默认的输入值。 xpos:整数值,用于表示对话框与屏幕左边界的距离。 ypos:整数值,用于表示对话框与屏幕上边界的距离。 Helpfile:字符串型变量或字符串表达式,用于表示要用的帮助文件的名字。 context:整数型变量或表达式,用于表示相关帮助主题的目录号。 Print方法用于输出显示。它既可以用于窗体,也可以用于其他控件上;它可以在窗体上显示文本字符串和表达式的值,也可以在其他图形对
17、象或打印机上输出信息。格式: 对象名称。Print表达式表, |; 对象名称是一个可选项,可以是窗体、图片框或打印机,如果省略,则在当前窗体上直接输出; 表达式表是一个或多个字符串或数值表达式 ,用以原样输出字符串或表达式的值。也是可选项。如果省略,则输出一个空行; 当需要输出多个字符串或表达式值时,各表达式间用逗号、分号或空格分隔,其中逗号分隔为标准输出格式,14个字符位为一个输出区段单位,逗号后面的表达式在下一区段输出,分号和空格分隔,则是按照紧凑格式输出; Print方法兼有输出和计算双重作用,即可以先计算表达式的值后输出; 每执行一次Print方法将自动换行,要显示在同一行上,可以在前
18、一Print方法行的末尾加上一个逗号或分号。 与Print方法相关的还有一些函数和方法 : (1)Tab函数:可以把光标移动到由参数n指定的位置,并从这个位置开始输出信息。格式为: Tab(n) 其中n为一个整数值,指出下一个输出位置的列号 ,如果当前位置已经超出n,则自动下移一行,默认最左边的列号为1; 当n大于行宽时,显示位置为n Mod行宽; 当一个Print方法对应n个Tab函数时,每个Tab函数对应一个输出项,各输出项之间用逗号分隔。 (2)空格函数:用空格函数可以返回n个空格,格式为: Space $ (n) (3)Spc函数:在用Print输出时可以用Spc函数跳过n个空格,格式
19、为: Spc(n) (4)Cls方法:使用Cls方法可以清除Print方法显示在对象上的内容,并将光标移动到对象的左上角(0,0)位置。格式为: 对象。Cls 其中,“对象”为可选项,如果省略,则清除当前窗体内的内容。 例1:设计一个程序,输入一组学生信息:学号、姓名、性别、年龄和入学成绩。用窗体单击事件激发。 解:Private Sub Form_Click( ) num$ = “请输入学号:” msgtitle$ = “学生登记表信息” nname$ = “请输入姓名:” sex$ = “请输入性别:” age$ = “请输入年龄:” sco$ = “请输入入学成绩:” Studentnu
20、m$ = InputBox$(num$,Msgtitle$) Studentname$ = InputBox$(nname$,Msgtitle$) Studentsex$ = InputBox$(sex$,Msgtitle$) Studentage% = InputBox(age$,Msgtitle$) Studentsco% = InputBox$(sco$,Msgtitle$) Cls Print Studentnum$;“,”;Studentname$;“,”Studentsex$;“,现年” Print Studentage%;“岁”;“,入学成绩”; Studentsco%;“分”
21、Ebd Sub (5)MsgBox函数 : Visual Basic中除了可以用Print方法在窗体或控件上输出程序执行结果等信息外,还提供了一种在适当的时候可在屏幕上显示一个对话框,让用户进行选择,并根据选择确定后续操作的功能。 格式: MsgBox( prompt ,buttons ,title ,helpfile,context) 各参数含义为: prompt:一个字符串,最大长度1024字符,输出的提示信息,当一行显示不下时,自动换行; buttons: 整数值或符号常量,指示显示按钮的数目及形式,使用的图标样式,默认按钮是什么以及消息框的强制回应等等。如果省略,其缺省值为0; tit
22、le:显示在对话框标题栏中的信息,缺省值为该应用程序名; helpfile:字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件,如果有这个选项,则必须有context选项; context:数值表达式,由帮助文件的作者指定给适当帮助主题的帮助上下文编号,同理,如果有这一选项,则必须有helpfile选项。 表中的数值分为四类:05为对话框中命令按钮的类型和数量,每个数值表示一种组合方式;16、32、48、64为指定对话框所显示的图标;0、256、512、768指定默认的活动按钮;0、4096用于应用程序和系统强制返回。Buttons的参数值由这四类数值组成,其组成原则是从每一类中选择一
23、个值,把这几个值加起来就获得了Buttons参数的值,在大多数应用中,只使用前三类,不同的组合会得到不同的结果。例如: 193160:显示“是”、“否”和“取消”按钮和“暂停”图标; 342320:显示“终止”、“重试”和“忽略”按钮和“疑问”图标;MsgBox的返回值如下表: 例2 :设计一个窗体单击事件过程,要求程序执行时出现提示信息:“请确认操作正确否?”,并在消息框的标题上显示“操作确认”标题,如果回答“是”,则将返回值6赋予变量a,并在窗体上显示返回值的平方,否则,如果选择“否”,则返回值为7,在窗体上显示“重新操作并确认!” 该程序产生的对话框中有三个按钮即“是”、“否”、“取消”
24、 程序代码如下: Private Sub Form_Click() Dim Msg As String, title As String Dim a As Integer Msg = 请确认操作正确否? title = 操作确认 a = MsgBox(Msg, 19, title) If a = 6 Then Print a 2 ElseIf a = 7 Then Print 请重新操作并确认! End If End Sub 八、语句与控制流 1、注释语句: 注释用来说明程序中某些语句的功能和作用。在 VB 中用“”和Rem来标识一条注释语句。VB程序在解释运行或编译过程中,不会处理Rem后面
25、那一行注释语句。 2、赋值语句: 目标操作符源操作符 /操作符两边的数据类型必需一致! 3、暂停语句 : 格式: Stop /当程序执行到Stop时,自动打开立即窗口 4、结束语句: 格式:End /常用于结束程序 5、条件分支结构 (1) If语句的三种格式: 第一种是单分支格式: If 条件 Then 语句 End If / 其中加 “ ”部分为可选择部分。第二种是双分支格式: If条件Then 语句块1 Else 语句块2 End If这里是双分支,即如果条件满足,执行语句块1,否则,执行语句块2。注意:语句块中的语句不能与其前面的Then在同一行上! 第三种格式: If条件1Then
26、语句块1 Else If 条件2 Then 语句块2 Else if 条件n Then 语句块n Else 语句块 End If (2)IIf函数 VB提供了一种用来执行简单条件判断的函数IIf,它是“IfThenElse”结构的简单版本,格式如下: Result = IIf(条件,为“True”的执行语句,为“False”的执行语句) 这里的Result是函数的返回值,括号中的三项均不能省略,执行的操作为首先判断条件,当“条件”为真的时候,执行“为“True”的执行语句”,否则执行“为“False”的执行语句” 。 例如有如下判断条件: If a 8 Then x = 3 Else x =
27、0 End If 用IIf函数替代,则可简化为: x = IIf (a 8,3,0) 类似于C语言中的条件表达式: 表达式1?表达式2:表达式3 例: Max=(ab)? a : b; 2Select Case语句 Select Case语句很适合多重条件判断。它的书写格式为: Select case 测试表达式 Case表达式结果1 语句块1 Caset表达式结果2 语句块2 Casetelse 语句块n End Select 测试表达式既可以是数值表达式,也可以是字符串表达式,通常为变量或常量;每个语句块由一行或多行合法的Visual Basic语句构成;表达式结果1、表达式结果2被称为域
28、值,它可以是:表达式,表达式、表达式 To 表达式或者Is关系运算表达式(运算符可以是:,=,)之一。例如: Case 1,3,5,7 Case 1 To 6 Case Is = a b 这三种表现形式均合法,但应该注意表达式结果中的表达式必须与测试表达式的类型一致。 例:从键盘上输入学生考试成绩的等级,然后按照考试成绩的等级显式出百分制的分数段,可以用Select Case语句来实现: Sub Form_click() Dim grade As String,Msg Msg=”请输入学生的成绩等级:” grade InputBox$(Msg) If Not IsNull(grade)Then Select Case grade Case “A” Msg=”85100” Case “B” Msg = “7084” Case “C” Msg =
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1