visual basic基础入门自学.ppt

《visual basic基础入门自学.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第3章控制语句与程序调试学习目标：掌握If条件语句和SelectCase选择语句掌握For…Next和Do…Loop循环语句掌握两重循环，了解多重循环了解Exit、End和Goto语句掌握程序的简单调试方法第3章控制语句与程序调试教学内容：3.1选择结构与相关语句3.2循环语句3.3其它语句3.4程序调试3.1选择结构选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。选择结构中要使用选择语句，有两路分支和多路分支两种情况，对应的选择语句有If语句(两路出口)和SelectCase

2、语句(多路出口)。返回目录3.1选择结构－If条件语句1.If<表达式>Then<语句>其中，<表达式>是一个条件表达式或逻辑表达式例如，IfData>=90ThenPrint“优秀”[例3.1]输入一个数，如果是3的倍数则通过消息框输出。PrivateSubForm_Click()DimDataAsIntegerData=InputBox("请输入一个值：")IfDataMod3=0ThenMsgBoxDataEndSub返回目录Data是3的倍数Data>=90?输出“优秀”YesNoData>=90?输出“

3、优秀”YesNo输出“合格”输出“计算完毕”3.1选择结构－If条件语句2.If<表达式>Then<语句1>Else<语句2>例如，DimDataAsIntegerData=InputBox(“请输入成绩：")IfData>=90ThenPrint“优秀”ElsePrint“合格”Print"计算完毕"上例的If语句可以改写为：IfData<90ThenPrint"合格"ElsePrint"优秀"返回目录3.1选择结构－If条件语句3.块状If语句返回目录If<条件表达式>Then<语句块>EndIf[例3.2]

4、If<条件表达式>Then<语句块1>Else<语句块2>EndIfA=InputBox(“A值”):B=InputBox("B值")PrintA,BIfAThen<语句1>ElseIf<条件表达式2>Then<语句2>Else<语句3>EndIf返回目录说明：ElseIf之间不要加空格。Else和位于其上方的最近的If配对3.1选择结构－If条件语

5、句[例3.3]Weight=InputBox("输入西瓜重量：","计算西瓜款")IfWeight<4ThenPrice=1ElseIfWeight<=7ThenPrice=1.3ElsePrice=1.1EndIfMoney=Price*WeightMsgBox“西瓜重”&Weight&“公斤，单价”&_Price&"元，应收瓜款"&Money&_"元",,"计算西瓜款"返回目录4公斤以下：1.00元/公斤4至7公斤：1.3元/公斤超过7公斤：1.1元/公斤IfWeight<4ThenPrice=1IfWeig

6、ht>=4AndPrice<=7ThenPrice=1.3IfWeight>7ThenPrice=1.13.1选择结构－If条件语句[例3.4]Char=InputBox("输入一个字符","测试字符值")IfChar>="0"AndChar<="9"ThenMsgBox"输入的字符是数字"ElseIfChar>="A"AndChar<="Z"ThenMsgBox"输入的字符是大写字母"ElseIfChar>="a"AndChar<="z"ThenMsgBox"输入的字符是小写字母"ElseMsgBox"输入的字

7、符是其它符号"EndIf返回目录判断输入的是大写字母、小写字母、数字还是其它符号3.1选择结构－If条件语句[例3.5]PrivateSubCommand1_Click()'单击“正确无误”按钮IfLen(TxtCode.Text)<8ThenLblWarn.Caption="考核证号必须输入，长度为8位"TxtCode.SetFocusElseIfLen(TxtName.Text)=0ThenLblWarn.Caption="考生姓名必须输入"TxtName.SetFocusElseIfLen(TxtSeat.

8、Text)=0ThenLblWarn.Caption="座位号必须输入"TxtSeat.SetFocusElseLblWarn.Caption=""Debug.PrintTxtCode.TextDebug.PrintTxtName.TextDebug.PrintTxtSeat.TextEndIfEndSub返回目录3.1选择结构－SelectCase选择语句语法格式：Se