VB编书学习资源资料(中).ppt
《VB编书学习资源资料(中).ppt》由会员分享,可在线阅读,更多相关《VB编书学习资源资料(中).ppt(171页珍藏版)》请在咨信网上搜索。
1、计算机基础教研室计算机基础教研室第4章Visual Basic控制结构 计算机基础教研室计算机基础教研室主要内容主要内容4-1 4-1 顺序结构顺序结构 4-2 4-2 选择结构选择结构 4-3 4-3 循环结构循环结构 4-4 4-4 程序调试程序调试 4-5 4-5 小结小结计算机基础教研室计算机基础教研室顺序结构是程序设计中最简单的一顺序结构是程序设计中最简单的一种结构,顺序结构中的每一条语句都被种结构,顺序结构中的每一条语句都被执行一次,而且只能被执行一次。执行一次,而且只能被执行一次。4-1 4-1 4-1 4-1 顺序结构顺序结构顺序结构顺序结构 计算机基础教研室计算机基础教研室【
2、例例4.1】交换两个文本框中的内容。在窗交换两个文本框中的内容。在窗体上添加两个文本框、两个命令按钮。程序运体上添加两个文本框、两个命令按钮。程序运行时单击行时单击“交换交换”按钮,则将两个文本框中的按钮,则将两个文本框中的内内容进行交换,单击容进行交换,单击“退出退出”按钮结束整个程序按钮结束整个程序的的运行。运行。图图图图4-1 4-1 4-1 4-1 交换文本框中的内容交换文本框中的内容交换文本框中的内容交换文本框中的内容(a)(b)计算机基础教研室计算机基础教研室编写代码编写代码PrivateSubCommand1_Click()PrivateSubCommand1_Click()Di
3、mtAsStringDimtAsStringt=Text1.Textt=Text1.Text 将将将将Text1Text1中的内容中的内容中的内容中的内容赋值给临时变赋值给临时变赋值给临时变赋值给临时变量量量量t$t$Text1.Text=Text2.TextText1.Text=Text2.Text 将将将将Text2Text2中的内容中的内容中的内容中的内容赋值给赋值给赋值给赋值给Text1Text1Text2.Text=tText2.Text=t 将将将将t$t$中的内容中的内容中的内容中的内容赋值给赋值给赋值给赋值给Text2Text2EndSubEndSubPrivateSubCom
4、mand2_Click()PrivateSubCommand2_Click()EndEndEndSubEndSub计算机基础教研室计算机基础教研室说明:说明:(1 1 1 1)本例使用到程序设计中最基本的语句:赋值语句。本例使用到程序设计中最基本的语句:赋值语句。本例使用到程序设计中最基本的语句:赋值语句。本例使用到程序设计中最基本的语句:赋值语句。赋值语句既可以给普通的变量赋值,如语句赋值语句既可以给普通的变量赋值,如语句赋值语句既可以给普通的变量赋值,如语句赋值语句既可以给普通的变量赋值,如语句“t=t=t=t=Text1.Text”Text1.Text”Text1.Text”Text1.
5、Text”,也可以给对象的属性赋值,如将变量,也可以给对象的属性赋值,如将变量,也可以给对象的属性赋值,如将变量,也可以给对象的属性赋值,如将变量t t t t中的内容赋值给文本框中的内容赋值给文本框中的内容赋值给文本框中的内容赋值给文本框Text2 Text2 Text2 Text2 的的的的TextTextTextText属性,可以用语属性,可以用语属性,可以用语属性,可以用语句句句句“Text2.Text=t”Text2.Text=t”Text2.Text=t”Text2.Text=t”实现。实现。实现。实现。需要注意的是,本例中需要注意的是,本例中需要注意的是,本例中需要注意的是,本例
6、中交换两个文本框中的值时,需要借用一个临时变量。交换两个文本框中的值时,需要借用一个临时变量。交换两个文本框中的值时,需要借用一个临时变量。交换两个文本框中的值时,需要借用一个临时变量。(2 2 2 2)本例包括两个事件过程,其中本例包括两个事件过程,其中本例包括两个事件过程,其中本例包括两个事件过程,其中Command1_Click()Command1_Click()Command1_Click()Command1_Click()过程含有过程含有过程含有过程含有4 4 4 4条语句,该过程从第一条语句开始,由上到条语句,该过程从第一条语句开始,由上到条语句,该过程从第一条语句开始,由上到条语
7、句,该过程从第一条语句开始,由上到下按顺序逐条执行,因此是顺序结构。下按顺序逐条执行,因此是顺序结构。下按顺序逐条执行,因此是顺序结构。下按顺序逐条执行,因此是顺序结构。计算机基础教研室计算机基础教研室 选择结构的流程是对条件进行判选择结构的流程是对条件进行判断,根据判断结果执行相应语句,选断,根据判断结果执行相应语句,选择结构也称分支结构。择结构也称分支结构。4-2 4-2 4-2 4-2 选择结构选择结构选择结构选择结构计算机基础教研室计算机基础教研室【例例例例4.24.2】单行单行单行单行IfIf语句示例。输入一个整数,判断语句示例。输入一个整数,判断语句示例。输入一个整数,判断语句示例
8、。输入一个整数,判断该数是奇数还是偶数。在窗体上添加一个文本框、该数是奇数还是偶数。在窗体上添加一个文本框、该数是奇数还是偶数。在窗体上添加一个文本框、该数是奇数还是偶数。在窗体上添加一个文本框、三个命令按钮。运行程序时在输入文本框中输入数三个命令按钮。运行程序时在输入文本框中输入数三个命令按钮。运行程序时在输入文本框中输入数三个命令按钮。运行程序时在输入文本框中输入数据后,单击据后,单击据后,单击据后,单击“判断判断判断判断”按钮,在弹出的消息框中显示奇按钮,在弹出的消息框中显示奇按钮,在弹出的消息框中显示奇按钮,在弹出的消息框中显示奇、偶数的判断结果。单击、偶数的判断结果。单击、偶数的判断
9、结果。单击、偶数的判断结果。单击“清除清除清除清除”按钮,可重新输入按钮,可重新输入按钮,可重新输入按钮,可重新输入数据,单击数据,单击数据,单击数据,单击“退出退出退出退出”按钮,结束程序运行按钮,结束程序运行按钮,结束程序运行按钮,结束程序运行。4-2-14-2-14-2-14-2-1单行单行单行单行IfIfIfIf语句语句语句语句计算机基础教研室计算机基础教研室编写代码编写代码PrivateSubCommand1_Click()PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=0ThenIfVal(Text1.Text)Mod2=0ThenM
10、sgBoxMsgBoxText1.Text_Text1.Text_&是偶数是偶数是偶数是偶数ElseElseMsgBoxMsgBoxText1.Text&Text1.Text&是奇数是奇数是奇数是奇数 EndSubEndSubPrivateSubCommand2_Click()PrivateSubCommand2_Click()Text1.Text=Text1.Text=Text1.SetFocusText1.SetFocusEndSubEndSubPrivateSubCommand3_Click()PrivateSubCommand3_Click()EndEndEndSubEndSub计算机
11、基础教研室计算机基础教研室说明:说明:(1 1 1 1)Command1_ClickCommand1_ClickCommand1_ClickCommand1_Click事件代码的执行过程是:将输入事件代码的执行过程是:将输入事件代码的执行过程是:将输入事件代码的执行过程是:将输入到文本框到文本框到文本框到文本框Text1Text1Text1Text1中的数据转换成数值型数据后,进行逻辑中的数据转换成数值型数据后,进行逻辑中的数据转换成数值型数据后,进行逻辑中的数据转换成数值型数据后,进行逻辑判断,如果表达式判断,如果表达式判断,如果表达式判断,如果表达式Val(Text1.Text)Mod 2
12、Val(Text1.Text)Mod 2Val(Text1.Text)Mod 2Val(Text1.Text)Mod 2的值等于的值等于的值等于的值等于0 0 0 0,即文本框中的值为偶数,否则为奇数,最后通过弹出消即文本框中的值为偶数,否则为奇数,最后通过弹出消即文本框中的值为偶数,否则为奇数,最后通过弹出消即文本框中的值为偶数,否则为奇数,最后通过弹出消息框输出判断结果。该过程的流程图如图所示:息框输出判断结果。该过程的流程图如图所示:息框输出判断结果。该过程的流程图如图所示:息框输出判断结果。该过程的流程图如图所示:开始输出偶数输出奇数NoYesVal(Text1.Text)Mod 2=
13、0?计算机基础教研室计算机基础教研室(2 2 2 2)语句输出偶数或输出奇数是根据条件有选择地执)语句输出偶数或输出奇数是根据条件有选择地执)语句输出偶数或输出奇数是根据条件有选择地执)语句输出偶数或输出奇数是根据条件有选择地执行,二者中只能选择其中一个。代码中分支的选择是通行,二者中只能选择其中一个。代码中分支的选择是通行,二者中只能选择其中一个。代码中分支的选择是通行,二者中只能选择其中一个。代码中分支的选择是通过过过过IfIfIfIf语句实现的,当判断条件式语句实现的,当判断条件式语句实现的,当判断条件式语句实现的,当判断条件式Val(Text1.Text)Mod Val(Text1.T
14、ext)Mod Val(Text1.Text)Mod Val(Text1.Text)Mod 2=0 2=0 2=0 2=0 为为为为“真真真真”时执行时执行时执行时执行ThenThenThenThen后面的语句,为后面的语句,为后面的语句,为后面的语句,为“假假假假”时执时执时执时执行行行行ElseElseElseElse后面的语句。后面的语句。后面的语句。后面的语句。(3 3 3 3)运行程序时应分别输入一个偶数值或奇数值,以)运行程序时应分别输入一个偶数值或奇数值,以)运行程序时应分别输入一个偶数值或奇数值,以)运行程序时应分别输入一个偶数值或奇数值,以判断输出结果是否正确,不能只验证其中
15、一种情况(偶判断输出结果是否正确,不能只验证其中一种情况(偶判断输出结果是否正确,不能只验证其中一种情况(偶判断输出结果是否正确,不能只验证其中一种情况(偶数或奇数)后就认为程序是正确的。数或奇数)后就认为程序是正确的。数或奇数)后就认为程序是正确的。数或奇数)后就认为程序是正确的。计算机基础教研室计算机基础教研室【例例例例4.34.3】在窗体上添加一个文本框、三个复选框和在窗体上添加一个文本框、三个复选框和在窗体上添加一个文本框、三个复选框和在窗体上添加一个文本框、三个复选框和两个命令按钮。运行程序时,根据需要选择不同复选两个命令按钮。运行程序时,根据需要选择不同复选两个命令按钮。运行程序时
16、,根据需要选择不同复选两个命令按钮。运行程序时,根据需要选择不同复选框,然后单击框,然后单击框,然后单击框,然后单击“确定确定确定确定”按钮,则在文本框中显示一个按钮,则在文本框中显示一个按钮,则在文本框中显示一个按钮,则在文本框中显示一个结结结结果操作。单击果操作。单击果操作。单击果操作。单击“取消取消取消取消”按钮,可以重新选择。按钮,可以重新选择。按钮,可以重新选择。按钮,可以重新选择。计算机基础教研室计算机基础教研室编写代码编写代码PrivateSubCommand1_Click()PrivateSubCommand1_Click()Dimstr1AsStringDimstr1AsSt
17、ringstr1=str1=我的我的我的我的爱爱爱爱好是:好是:好是:好是:IfCheck1.Value=1Thenstr1=IfCheck1.Value=1Thenstr1=str1str1&Check1.Caption&Check1.CaptionIfCheck2.Value=1Thenstr1=IfCheck2.Value=1Thenstr1=str1str1&Check2.Caption&Check2.CaptionIfCheck3.Value=1Thenstr1=IfCheck3.Value=1Thenstr1=str1str1&Check3.Caption&Check3.Capti
18、onText1.Text=str1Text1.Text=str1EndSubEndSubPrivateSubCommand2_Click()PrivateSubCommand2_Click()Text1.Text=Text1.Text=Check1.Value=0Check1.Value=0Check2.Value=0Check2.Value=0Check3.Value=0Check3.Value=0EndSubEndSub计算机基础教研室计算机基础教研室说明:说明:(1 1 1 1)【例例例例4.24.24.24.2】、【例例例例4.34.34.34.3】两个例子的特点是将两个例子的特点是将
19、两个例子的特点是将两个例子的特点是将IfIfIfIf语语语语句都写在同一行上,我们把这种形式的句都写在同一行上,我们把这种形式的句都写在同一行上,我们把这种形式的句都写在同一行上,我们把这种形式的IfIfIfIf语句称为单行语句称为单行语句称为单行语句称为单行IfIfIfIf语句,语句,语句,语句,单行单行单行单行IfIfIfIf语句的一般格式为:语句的一般格式为:语句的一般格式为:语句的一般格式为:If If If If 表达式表达式表达式表达式 Then Then Then Then 语句语句语句语句1 Else 1 Else 1 Else 1 Else 语句语句语句语句2222其中其中其
20、中其中IfIfIfIf、ThenThenThenThen、ElseElseElseElse是系统保留字。是系统保留字。是系统保留字。是系统保留字。计算机基础教研室计算机基础教研室(2 2 2 2)IfIfIfIf语句的功能是解决分支问题,如果语句的功能是解决分支问题,如果语句的功能是解决分支问题,如果语句的功能是解决分支问题,如果“表达式表达式表达式表达式”的值为非的值为非的值为非的值为非0 0 0 0,即为,即为,即为,即为“真真真真”时,则执行时,则执行时,则执行时,则执行“语句语句语句语句1 1 1 1”,否则执行,否则执行,否则执行,否则执行“语句语句语句语句2 2 2 2”。表达式一
21、般为关系表达式、逻辑表达式,也可以为算术表达表达式一般为关系表达式、逻辑表达式,也可以为算术表达表达式一般为关系表达式、逻辑表达式,也可以为算术表达表达式一般为关系表达式、逻辑表达式,也可以为算术表达式。当表达式是算术表达式时,非式。当表达式是算术表达式时,非式。当表达式是算术表达式时,非式。当表达式是算术表达式时,非0 0 0 0值(不论该表达式结果是正值(不论该表达式结果是正值(不论该表达式结果是正值(不论该表达式结果是正数还是负数)表示数还是负数)表示数还是负数)表示数还是负数)表示TrueTrueTrueTrue,0 0 0 0值表示值表示值表示值表示FalseFalseFalseFa
22、lse。(3 3 3 3)根据所解决的问题,可以省略子句)根据所解决的问题,可以省略子句)根据所解决的问题,可以省略子句)根据所解决的问题,可以省略子句“Else Else Else Else 语句语句语句语句2 2 2 2”。在本。在本。在本。在本书中用书中用书中用书中用“”括起来的表示是可省略项。括起来的表示是可省略项。括起来的表示是可省略项。括起来的表示是可省略项。(4 4 4 4)单行单行单行单行IfIfIfIf语句语法上要求语句语法上要求语句语法上要求语句语法上要求“语句语句语句语句1 1 1 1”和和和和“语句语句语句语句2 2 2 2”均为一条语均为一条语均为一条语均为一条语句句
23、句句,若要用多条语句,则语句间需用冒号隔开,且几条语句必须在,若要用多条语句,则语句间需用冒号隔开,且几条语句必须在,若要用多条语句,则语句间需用冒号隔开,且几条语句必须在,若要用多条语句,则语句间需用冒号隔开,且几条语句必须在一行上。一行上。一行上。一行上。非0表达式语句10语句2计算机基础教研室计算机基础教研室【例例例例4.44.4】编写程序,求一元二次方程编写程序,求一元二次方程编写程序,求一元二次方程编写程序,求一元二次方程axax2 2+bx+c=0+bx+c=0的实根(要求方程的系数的实根(要求方程的系数的实根(要求方程的系数的实根(要求方程的系数a0a0)。程序)。程序)。程序)
24、。程序运行时,在文本框中输入方程的系数,单击运行时,在文本框中输入方程的系数,单击运行时,在文本框中输入方程的系数,单击运行时,在文本框中输入方程的系数,单击“求解求解求解求解”按按按按钮,根据判断方程有无实根的情况输出结果。钮,根据判断方程有无实根的情况输出结果。钮,根据判断方程有无实根的情况输出结果。钮,根据判断方程有无实根的情况输出结果。4-2-2 4-2-2 4-2-2 4-2-2 多行多行多行多行IfIfIfIf语句语句语句语句计算机基础教研室计算机基础教研室编写代码编写代码PrivateSubCommand1_Click()PrivateSubCommand1_Click()Dim
25、aAsSingle,bAsSingle,cAsSingleDimaAsSingle,bAsSingle,cAsSingleDimDimdltdltAsSingle,x1AsSingle,x2AsSingleAsSingle,x1AsSingle,x2AsSinglea=Val(Text1.Text)a=Val(Text1.Text)b=Val(Text2.Text)b=Val(Text2.Text)c=Val(Text3.Text)c=Val(Text3.Text)dltdlt=b*b-4*a*c=b*b-4*a*cIfIfdltdlt=0Then=0Thenx1=Format(-b+x1=F
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编书 学习 资源 资料
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【精****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【精****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。