第五课if语句.ppt

* * Msgbox函数与Inputbox函数 a)??? Inputbox函数用于让用户输入数据,返回用户输入在数据。返回的数据是字符串类型。 语句格式: 变量名=inputbox([提示][,标题[,默认值]]) s$=inputbox(“input name”,”hello”,”world”) age=val(inputbox(“input age”,”age”,”25”)) b)??? Msgbox函数(可以有返回值,也可以没有) 格式一： msgbox 提示[,对话框类型[,标题]] Call msgbox (提示[,对话框类型[,标题]]) 格式二： 变量= msgbox (提示[,对话框类型[,标题]]) 3种基本的控制结构 语句1 语句2 顺序结构 循环结构 条件 循环体 true false 条件 语句1 语句2 后续语句 false True 选择结构 Sub form_click() Dim k As Byte, m As Byte, n As Byte k = 12 m = k + 2 n = m * 2 Print n End Sub 选择结构之一IF结构 p53例3-1 Private sub command1_click() dim x as single x=val(inputbox(“输入X”,”计算分段函数的值”)) if x=5 then text1.text=str(1-x*x) else text1.text=str((x-5)^0.25) End sub 行IF语句格式：if 条件 then 语句1 [else 语句2] 选择结构功能：根据所给定的条件成立与否，来决定从多个分支中选择执行某一个分支的相应操作。 条件 语句1 语句2 后续语句 false True 选择结构之一IF结构 条件 语句1 后续语句 true false ’实例 p54例3-2 Private sub form_click() dim x as single, y as single dim temp as single x=val(text1.text) y=val(text2.text) if xy then temp=y : y=x :x=temp label1.caption=“x=”+str(x)+” y=”+str(y) End sub 选择结构之一IF结构 块IF语句格式: If 条件 then 语句块1 Else 语句块2 End if 后续语句 Dim nflag as integer Private sub form_click() if nflag=0 then form1.fontname=“黑体” form1.forecolor=vbred nflag=1 else form1.fontname=“楷体_GB2312” form1.forecolor=vbgreen nflag=0 end if form1.print “欢迎使用VB” End sub 选择结构之一IF结构 块IF语句嵌套格式: If 条件1 then 语句块1 Else if 条件2 then 语句块2 else 语句块3 end if End if 后续语句 条件1 条件2 语句块1 语句块2 语句块3 后续语句 IF语句嵌套流程图 选择结构之一IF结构 Dim nflag as integer Private sub form_click() if nflag=0 then form1.forecolor=vbred nflag=1 else if nflag=1 then form1.forecolor=vbgreen nflag=2 else form1.forecolor=vbblue nflag=0 end if end if form1.print “欢迎使用VB” End sub 条件1 条件2 语句块1 语句块2 语句块3 后续语句 IF语句嵌套流程图 true false tru