资源描述：
《vb考试复习if语句.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、Msgbox函数与Inputbox函数a)Inputbox函数用于让用户输入数据,返回用户输入在数据。返回的数据是字符串类型。语句格式:<变量名>=inputbox([<提示>][,<标题>[,<默认值>]])s$=inputbox(“inputname”,”hello”,”world”)age=val(inputbox(“inputage”,”age”,”25”))b)Msgbox函数(可以有返回值,也可以没有)格式一：msgbox<提示>[,<对话框类型>[,<标题>]]Callmsgbox(<提示>[,<对话
2、框类型>[,<标题>]])格式二：<变量>=msgbox(<提示>[,<对话框类型>[,<标题>]])3种基本的控制结构语句1语句2顺序结构循环结构条件循环体truefalse条件语句1语句2后续语句falseTrue选择结构Subform_click()DimkAsByte,mAsByte,nAsBytek=12m=k+2n=m*2PrintnEndSub选择结构之一IF结构p53例3-1Privatesubcommand1_click()dimxassinglex=val(inputbox(“输入X”,”计算分
3、段函数的值”))ifx<=5thentext1.text=str(1-x*x)elsetext1.text=str((x-5)^0.25)Endsub行IF语句格式：if<条件>then<语句1>[else<语句2>]选择结构功能：根据所给定的条件成立与否，来决定从多个分支中选择执行某一个分支的相应操作。条件语句1语句2后续语句falseTrue选择结构之一IF结构条件语句1后续语句truefalse’实例p54例3-2Privatesubform_click()dimxassingle,yassingledimt
4、empassinglex=val(text1.text)y=val(text2.text)ifxthen<语句块1>Else<语句块2>Endif<后续语句>DimnflagasintegerPrivatesubform_click()ifnflag=0thenform1.fontname=“黑体”form1.forecolor=vbr
5、ednflag=1elseform1.fontname=“楷体_GB2312”form1.forecolor=vbgreennflag=0endifform1.print“欢迎使用VB”Endsub条件语句1语句2后续语句falseTrue选择结构之一IF结构块IF语句嵌套格式:If<条件1>then<语句块1>Elseif<条件2>then<语句块2>else<语句块3>endifEndif<后续语句>条件1条件2语句块1语句块2语句块3后续语句IF语句嵌套流程图选择结构之一IF结构Dimnflagasinteg
6、erPrivatesubform_click()ifnflag=0thenform1.forecolor=vbrednflag=1elseifnflag=1thenform1.forecolor=vbgreennflag=2elseform1.forecolor=vbbluenflag=0endifendifform1.print“欢迎使用VB”Endsub条件1条件2语句块1语句块2语句块3后续语句IF语句嵌套流程图truefalsetruefalse选择结构之一IF结构DimnflagasintegerPriv
7、atesubform_click()ifnflag=0thenform1.forecolor=vbrednflag=1elseifnflag=1thenform1.forecolor=vbgreennflag=2elseform1.forecolor=vbbluenflag=0endifform1.print“欢迎使用VB”Endsub条件1语句块1条件2语句块2语句块3后续语句truetruefalsefalseIf…elseif语句流程图选择结构之一IF结构使用IF结构注意:养成良好的语句书写缩进风格。每个IF
8、必须要有一个ENDIF与之配对（注意if…elseif结构中的情况）每一个ENDIf只与前面最近的还没有与其它ENDIF配对的IF配对。Privatesubform_click()Dimxassingle,yassingleX=val(inputbox(“pleaseinputx”))Ifx>=1thenIfx>3thenY=x+3ElseY=x^2Endi
