vb考试复习if语句.ppt

Msgbox函数与Inputbox函数a Inputbox函数用于让用户输入数据 返回用户输入在数据 返回的数据是字符串类型 语句格式 inputbox s inputbox inputname hello world age val inputbox inputage age 25 b Msgbox函数 可以有返回值 也可以没有 格式一 msgbox Callmsgbox 格式二 msgbox 3种基本的控制结构 顺序结构 Subform click DimkAsByte mAsByte nAsBytek 12m k 2n m 2PrintnEndSub 选择结构之一IF结构 p53例3 1Privatesubcommand1 click dimxassinglex val inputbox 输入X 计算分段函数的值 ifxthen else 选择结构功能 根据所给定的条件成立与否 来决定从多个分支中选择执行某一个分支的相应操作 选择结构之一IF结构 实例p54例3 2Privatesubform click dimxassingle yassingledimtempassinglex val text1 text y val text2 text ifx ythentemp y y x x templabel1 caption x str x y str y Endsub 选择结构之一IF结构 块IF语句格式 IfthenElseEndif DimnflagasintegerPrivatesubform click ifnflag 0thenform1 fontname 黑体 form1 forecolor vbrednflag 1elseform1 fontname 楷体 GB2312 form1 forecolor vbgreennflag 0endifform1 print 欢迎使用VB Endsub 选择结构之一IF结构 块IF语句嵌套格式 IfthenElseifthenelseendifEndif 选择结构之一IF结构 DimnflagasintegerPrivatesubform click ifnflag 0thenform1 forecolor vbrednflag 1elseifnflag 1thenform1 forecolor vbgreennflag 2elseform1 forecolor vbbluenflag 0endifendifform1 print 欢迎使用VB Endsub 选择结构之一IF结构 DimnflagasintegerPrivatesubform click ifnflag 0thenform1 forecolor vbrednflag 1elseifnflag 1thenform1 forecolor vbgreennflag 2elseform1 forecolor vbbluenflag 0endifform1 print 欢迎使用VB Endsub 选择结构之一IF结构 使用IF结构注意 养成良好的语句书写缩进风格 每个IF必须要有一个ENDIF与之配对 注意if elseif结构中的情况 每一个ENDIf只与前面最近的还没有与其它ENDIF配对的IF配对 Privatesubform click Dimxassingle yassingleX val inputbox pleaseinputx Ifx 1thenIfx 3thenY x 3ElseY x 2EndifElseIfx 0thenY sqr x ElseY 0EndifEndifPrint y yEndsub 选择结构之二情况选择结构 SelectcaseCaseCaseCase CaseelseEndselect PrivateSubcommand1 click DimnAsInteger sAsStringn Int Rnd 100 1SelectCasenCase88s 你中的是特等奖 Case8 18 38 58 68 78 98s 你中的是一等奖 Case31To50s 你中的是二等奖 CaseIs 30s 你中的