- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
房屋租赁合同ppt课件_2
第 4 章;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中的关键字,首字母总被自动转换成大写,并在其前后自动加上空格。
若关键字由多个英文单词组成,自动将每个单词的首字母转换成大写。;4.1.2 赋值、暂停与结束语句;一、赋值语句;说明:
变量有类型,属性也有类型,赋值时要注意类型匹配。
执行赋值语句时,首先计算出表达式的值,然后将该值赋予变量.
变量可以多次被赋值,最终取最后一次所赋予的值.
在程序中,赋值语句及各种操作对象的方法,都是顺序执行的.;2. 不同数据类型数据的赋值;②变量为字符型,表达式为数值类型(算术表达式)——把表达式的值转换成字符型。;③变量为逻辑型,表达式为数值型——所有非0值转换成True;0值转换成False.;④变量是整型,表达式是逻辑值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 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” ‘类型不匹配!
Print n
End Sub;二、暂停与结束语句;注释内容仅供用户阅读,系统并不执行,注释有利于程序的维护和调试,方法有:
Rem 注释 必须单独一行书写
‘ 注释 可单独一行,也可在语句后书写;4.2 算法基础与流程图; 算 法;传统流程图;流程图示例;目前公认的具有“良好风格”的程序设计方法叫做 “结构化程序设计方法”.其核心是规定了算法的三种基本结构:
顺序结构
分支结构
循环结构
从理论上讲,无论多复杂的问题,都是由这三种最基本的算法结构组合而成。;A;4.3 顺序结构程序设计;示例;4.1 基本语句
4.2 算法基础与流程图
4.3 顺序机构程序设计
4.4 分支结构程序设计
4.5 循环结构设计;4.4 分支结构程序设计;4.4.1 If-Then-Else-End If 结构语句;If X0 then
x=x+1
Else
x=x-1
End IF;例4-3;输出S;e;If e1 Then
[A1组语句]
ElseIf e2 Then
[A2组语句]
ElseIf e3 T hen
[A3组语句]
……
[Else
An+1组语句]
End If;开始;【例4-4b1】 判别整数X的值范围;例4-5; Select Case e
Case c1
A 组语句
Case c2
B 组语句
……
Case Else
……
End Select ;e是测试表达式(可以是算术或字符型)
c1,c2…是测试项,可取下列三种形式之一:
1)具体数值(如:3,5,7.2)
2)连续的数据范围(如:8 to 20, B to H)
3)满足某个判定条件(如:Is20, Is=“P”)
也可以是上述三种形式的组合,用逗号分隔开。
如:4,7 to 9, Is30;
示例:
Private Sub Command1_Click( )
Dim x As Integer
x=Val(Text1.Text)
Select
文档评论(0)