- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第二节 程序的顺序结构
一、赋值语句
1.格式:变量名 = 表达式
功能:将右边的表达式的值赋给左边的变量
(1)“变量”可以是简单变量,也可以是字符变量;
(2)“=”是赋值符号,它的含义将表达式的值赋给左边的变量。
(3)表达式代表一个数值或一个字符串。
例1:A=123;A=B;B=2*3;A=A+10;C =“CHINA”
2.赋值语句的功能:计算功能和赋值功能
3.注意事项
(1)赋值语句不是代数等式,赋值号与逻辑运算符等于“=”形同而意不同;
例如:逻辑运算中为等于,其他为赋值语句
A = Val(Text1.Text) 此处为赋值
If A = 0 Then 此处为逻辑判断等于
Text2.Text = 1 此处为赋值
Else
Text2.Text = 2 此处为赋值
End If
(2)赋值语句类型必须匹配;
(3)把字符串赋给串变量时,该字符串必须用双引号括起来;abc=”1234
(4)变量单元每次只能存一个数据,但可以多次赋值。
二、输入数据的函数
InputBox()是提供从键盘输入数据的函数。利用它可产生一个对话框,提示用户输入数据并单击命令按钮。该函数返回值是字符串类型(string)。
InputBox()的语法格式为:InputBox(提示信息,标题,默认值,位置)
注意:提示信息和标题是用引号引起来的字符串
三、输出数据的方法
1、基本格式:
Print 输出内容
注意:1、输出内容可以是数、变量、表达式的值,也可以是用引号括起来的字符串;
2、如果输出内容是数,变量,表达式,则输出的是数,变量的值,表达式的值,如果是用引号引起来的字符串,则原样输出;
3、多个输出内容,可以用逗号或分号分隔;如果用分号,则后面一个输出紧跟前一个输出;如果是逗号,则分区格式输出;
4、如果输出内容后面没有符号,则表示下一个Print换行输出,如果print中没有输出内容,则表示输出一个空行。
程序设计的顺序结构:代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复,这种结构称为顺序结构。
例1:交换两个变量中的数据。
Private Sub cmdSwap_Click()
Dim x As Single, y As Single
Dim m As Single
x = inputbox(“请输入X的值”)
y = inputbox(“请输入Y的值”)
m = x
x = y
y = m //交换数据
print x,y
End Sub
例2:从键盘上输入一个三位数,然后将它反向输出,如:输入456,输出654。
分析问题
设X为输入的三位整数,Y为X的反向输出。因为 X的百位、十位、个位分别为:
X1=X\100
X2=(X-X1*100)\10
X3=X-X1*100-X2*10
所以Y=X3*100+X2*10+X1
(2)设计算法
①输入X的值
②计算:X1=X\100
③计算:X2=(X-X1*100)\10
④计算:X3=X-X1*100-X2*10
⑤计算:Y=X3*100+X2*10+X1
⑥输出Y的值
(3)编写程序
Private sub command_click()
Dim x as integer, x1 as integer, x2 as integer, x3 as integer, y as integer
X=inputbox(“x=”,”输入”)
X1=X\100
X2=(X-X1*100)\10
X3=X-X1*100-X2*10
Y=X3*100+X2*10+X1
Print “y=”;y
End sub
(4)调试程序
您可能关注的文档
- 2020版化学高考新素养总复习人教通用版讲义:第7章+化学反应速率、化学平衡+第1讲和答案.doc
- 车间岗位职责和考核制度.doc
- 五年级上册植树问题例1说课讲稿.doc
- 2019-2020版化学新教材人教必修第一册讲义:第4章+第2节+第2课时 元素周期表和元素周期律的应用和答案.doc
- 2019-2020年人教版政 治必修一讲义:第1单元+第3课+第2框 树立正确的消费观及答案.doc
- 2019-2020年人教版高中化学选修四课时自测·基础达标+2.3+化学平衡2.3.1.doc
- 润滑系统维护.pptx
- 毛寨煤矿突出矿井抽采达标评判细则-(修改).doc
- 河北省定州中学2017届高三地理一轮复习总结导学案-洋流.doc
- 小关一中教学常规管理制度.doc
- 食品安全现代生物检测技术.pptx
- 第7章-多元-练习题.doc
- 湖南省长沙市博才实验中学2019秋入学考试语文考试试卷(无答案).docx
- 集体备课教科版八年级上册物理全册教学说课.doc
- 北师大版语文四年级上册第三次月考试卷.doc
- 2019-2020人教B版数学必修第一册新教材同步讲义:第1章+1.2.2 全称量词命题和存在量词命题的否定及答案.doc
- 2019-2020年人教版政 治选修五讲义:专题2+2 积极维护人身权及答案.doc
- 《乡土中国》“整本书阅读和研讨”的设计和实施.docx
- 2017年高考地理天津卷试题答案和解析.ppt
- 2020版政 治高考新素养总复习新高考(鲁京津)讲义:题型讲练五+论证探究类和答案.doc
文档评论(0)