m房屋租赁合同课件.ppt

第 4 章 程序控制结构与算法基础 （1） 4.1.1 代码行的书写规则 语句定义符 [语句体] 按行书写 一行一句 在同一行上可以书写多条语句，语句间用:(西文冒号)分隔。 单行语句可分若干行书写，在本行后加入续行符空格和下划线“_”。 例如： X=10:Y=20:Z=30 Dim Name As String，Age As Integer，Sex As _ Boolean，ID As String VB代码中不区分字母大小写 为了提高程序的可读性，VB对用户程序代码进行自动转换。 对于VB中的关键字，首字母总被自动转换成大写，并在其前后自动加上空格。 若关键字由多个英文单词组成，自动将每个单词的首字母转换成大写。 一、赋值语句 1. 赋值语句的一般形式 var=表达式 var 可以是变量名或属性， 例如： x=“This is a flower.” number%=72 Label.Caption=“Filename is :” Text.FontSize=12 y=(a+b)/2 var=Label.Caption 说明： 变量有类型，属性也有类型，赋值时要注意类型匹配。 执行赋值语句时,首先计算出表达式的值,然后将该值赋予变量. 变量可以多次被赋值,最终取最后一次所赋予的值. 在程序中,赋值语句及各种操作对象的方法,都是顺序执行的. 2. 不同数据类型数据的赋值 ①变量和表达式的值都是数值型——先求出表达式的值，然后将该值转换成变量类型。 如： Private Sub Form_Click( ) Dim a As Integer, b As Single b=2.2 a=2*b+1 print a ‘运行结果为 5 (四舍五入) End Sub ②变量为字符型，表达式为数值类型（算术表达式）——把表达式的值转换成字符型。 如： Private Sub Form_Click( ) Dim a As String, b As Single b=2.2 a=2*b+1 a=a ”asd” print a ‘运行结果为 5.4 (“5.4asd”) End Sub ③变量为逻辑型，表达式为数值型——所有非0值转换成True；0值转换成False. 如： Private Sub Form_Click( ) Dim a As Boolean a=10 print a ‘运行结果为 True a=0 print a ‘运行结果为 False End Sub ④变量是整型，表达式是逻辑值True/False变量——值为 -1/0 如： Private Sub Form_Click( ) Dim a As Integer a=True print a ‘运行结果为 -1 a=False print a ‘运行结果为 0 End Sub ⑤变量是字符型，表达式是逻辑值True/False ——值为 “True”/ “False”. 如： Private Sub Form_Click( ) Dim a As String a= True print a ‘运行结果为 True (“True”) a=False print a ‘运行结果为 False (“False”) End Sub ⑥变量是数值型，表达式是字符型——系统提示出错（数据类型不匹配！） 如： Private Sub Form_Click( ) Dim a As Integer a=“abcd” ‘ “类型不匹配！” print a End Sub 但如：a=“-123.4”系统仍能接受 用函数 TypeName(Var)可测试Var的类型 如上例中 TypeName(a)的值为: Integer 在赋值语句执行过程中所产生的数据类型转换，有时侯会出现不可预期的结果。为保险起见，建议在赋值语句中采用转换函数对数据进行强制转换。 数据类型转换举例： Private Sub Form_Click( ) Dim b as Boolean,n as Integer,s as String b=1 Print b ‘True b=0 Print b ‘False b=3 Print b ‘True n=b Print n ‘-1 s=b Print s ‘Ttue n=“asds”