赋值语句与输入输出语句.ppt

赋值语句与输入输出语句.ppt

ID:48465035

大小:263.00 KB

页数:16页

时间:2020-01-18

赋值语句与输入输出语句.ppt_第1页
赋值语句与输入输出语句.ppt_第2页
赋值语句与输入输出语句.ppt_第3页
赋值语句与输入输出语句.ppt_第4页
赋值语句与输入输出语句.ppt_第5页
资源描述:

《赋值语句与输入输出语句.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第二章程序设计基础程序设计基础2.1VB语言及程序开发环境2.2程序的顺序结构2.3程序的选择结构2.4程序的循环结构2.5模块化程序设计程序的顺序结构例:设银行定期存款的年利率rate为2.25%,并已知存款期为n年,存款本金为count元,试编程计算n年后的本利之和captic。要求定期存款的年利率rate、存款期n和存款本金count均由键盘输入。分析问题设计算法编写程序调试程序一、实例程序代码:二、数据交换:抛篮球小游戏(1)A=B(2)B=A尝试下:当始值A=10,B=5时,运行如上两行代码将是什么结果?程序的顺序结构赋值语句变量=表达式(

2、1)A=B(2)A=123(3)A=A+10A=30,B=40如何交换A、B的值?T=AA=BB=TA=BB=A×√程序的顺序结构三、输入数据InputBox(提示信息,标题,默认值,位置)PrivateSubCommand1_Click()A=InputBox("A=","输入",12,100,20)EndSuba=InputBox(a=)InputBox(“a=“)b=InputBox(“a=“)××√程序的顺序结构四、输出数据Print输出内容(数、变量、表达式、字符串)(1)输出数、变量、表达式的值。引号内的字符串按原样输出。(2)输出内容用

3、逗号或分号分隔。用分号,紧贴着输出。用逗号,按照分区格式输出。(3)如果输出内容后面没有符号,则表示下一个Print换行输出。如果Print中没有输出内容,则表示输出一个空行。程序的顺序结构(1)A=5B=3Print"A=";A,"B=";B输出:A=5B=3(2)A=5B=3Print"A=";A;"B=";B输出:A=5B=3五、实践(1)程序的顺序结构(3)A=5,B=3Print“A=“;A,Print“B=“;B输出:A=5B=3(4)A=5,B=3Print“A=“;APrint“B=“;B输出:A=5B=3程序的顺序结构1.Priva

4、teSubCommand1_Click()DimAAsInteger,BAsIntegerA=10B=20A=A+BB=A-BA=A-BPrint"A=";A,"B=";BEndSub输出:A=20B=10实践(2)程序的顺序结构2.PrivateSubCommand1_Click()DimAAsInteger,BAsInteger,MAXAsIntegerA=InputBox("A=","输入")B=InputBox("B=","输入")MAX=(A+B)/2+Abs(A-B)/2Print"MAX=";MAXEndSub输入:11和7输出:MAX

5、=11程序的顺序结构3.PrivateSubCommand1_Click()DimAAsInteger,BAsInteger,MINAsIntegerA=InputBox("A=","输入")B=InputBox("B=","输入")MIN=(A+B)/2-Abs(A-B)/2Print"MIN=";MINEndSub输入:11和7输出:MIN=7六、课练用程序计算你出生到今天生活了多少天?分析问题设计算法编写程序调试程序Privatesubcommand1_click()Dimdate22AsDateDimmydateAsIntegerdate22

6、=InputBox(“日期格式如:1991-10-10”,“输入你的出生年月")mydate=DateDiff("d",date22,Now())Print"你出生到现在活了";mydate;"天"Endsub程序代码:程序的顺序结构开始语句1语句2……语句N结束顺序结构只有一个入口和一个出口,由上至下书写顺序执行。七、小结

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。