- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB程序的三种基本结构
一、顺序结构
二、选择结构
三、循环结构
程序是由若干个基本结构组成的,一个基本结构可以包含一条或若干条语句。
通常程序有三种最基本的结构:
Evaluation only.
Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.
Copyright 2004-2011 Aspose Pty Ltd.
1、?? 顺序结构:
将命令和语句逐条顺序排列。
程序执行时按语句的先后顺序逐条执行。
例1、?a=1
b=2
c=a+b
a=c-a
b=c-a
最后,变量b的值是( )
S1
S2
S3
Evaluation only.
Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.
Copyright 2004-2011 Aspose Pty Ltd.
2、分支结构:(选择结构)
根据条件判断其是否成立,如果成立执行成立的分支;否则执行另一分支。
其一般形式为:
If 条件 Then
语句序列1
Else
语句序列2
End If
分支结构的简单形式为:
If 条件 Then
语句序列
End If
Evaluation only.
Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.
Copyright 2004-2011 Aspose Pty Ltd.
例2、a =10
If a=10 Then
a=a+1
Else
a=a-1
End If
该程序段运行后,变量a的值是( )
A. 8 B. 9 C. 10 D. 11
例3、a=2:b=1:c=5
If ab then
m =a
else
m = b
end if
If c m then
m = c
end if
最后,变量m的值是( 1 )
Evaluation only.
Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.
Copyright 2004-2011 Aspose Pty Ltd.
3、 循环结构:
根据条件判断其是否成立,如果条件成立则重复执行循环体(循环结构中某语句序列),直到条件不成立,退出循环结构为止。
循环结构的常用形式为:
for 循环变量 = 初值 to 终值 [step 步长]
[循环体]
next [循环变量]
注:当“step 步长”项缺省时,表示步长是1
Evaluation only.
Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.
Copyright 2004-2011 Aspose Pty Ltd.
?例4、s=0
for I=1 to 100
s=s+I
next
最后,变量s的值是( )
例5、 n = 0:s=0
for x=3 to 11 step 2
n = n + 1
s=s+x
next x
则最终变量n、s的值是( )
Evaluation only.
Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.
Copyright 2004-2011 Aspose Pty Ltd.
三、课堂巩固:
1、有以下程序段:
①. I = 3 ②. J = 0
J = 5 For I = l To 5
I=I+J J=J十1
Next
③. j = 0 ④. J = 0
If J>0 Then If J>0 Then
您可能关注的文档
- 企业文化达人评选活动方案[2].ppt
- 2016天节猫日活动节点.doc
- 企业的设立与登记[2].ppt
- 2016宏昆故事总结.docx
- 2016山省西考申论.docx
- 企业竞争中的信息资源开发利用[2].ppt
- 作业17—隔离用户匿名访问FTP服务器的安装和配置.doc
- 2016山西公务员申论备考:看《芈月传》-学战国历史.docx
- 作业6-我对人力资本投资的理解.doc
- 企业管理-蚂蚁的故事.ppt
- 洋葱销售SOP流程及关键动作相关知识测试试卷.docx
- 深度解析《GBT 43841-2024内蒙古绒山羊》.pptx
- 电气设备运维及机械部件相关知识测试试卷.docx
- 深度解析《GBT 43843-2024网络协同制造平台数据服务要求》.pptx
- 思维倾向与开放性自我评估试卷.docx
- 危险化学品企业特殊作业安全相关知识考试试卷.docx
- 深度解析《GBT 43844-2024IPv6地址分配和编码规则 接口标识符》.pptx
- 智慧教学整体解决方案(1).doc
- 多重耐药菌感染防治知识及预防措施试卷.docx
- 深度解析《GBT 43845-2024基于扫描氮-空位探针的微弱静磁场成像测量方法》.pptx
文档评论(0)