vb考试复习if语句PPT课件

9
谢谢您的指导
THANK YOU FOR YOUR GUIDANCE.
感谢阅读！为了方便学习和使用，本文档的内容可以在下载后随意修改，调整和打印。欢迎下载！
汇报人：XXXX 日期：20XX年XX月XX日
10
label1.caption=“x=”+str(x)+” y=”+str(y)
End sub
条件 false
后续语句
2020/10/13
4
选择结构之一IF结构
Dim nflag as integer
Private sub form_click()
if nflag=0 then
form1.fontname=“黑体”
3
选择结构之一IF结构
’实例 p54例3-2
Private sub form_click()
true
dim x as single, y as single
dim temp as single x=val(text1.text)
语句1
y=val(text2.text)
if x<y then temp=y : y=x :x=temp
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>]
2020/10/13
Msgbox函数与Inputbox函数 a) Inputbox函数用于让用户输入数据,返回用户输入在
数据。返回的数据是字符串类型。 语句格式: <变量名>=inputbox([<提示>][,<标题>[,<默认值>]])
s$=inputbox(“input name”,”hello”,”world”)
if nflag=0 then form1.forecolor=vbred nflag=1
elseif nflag=1 then form1.forecolor=vbgreen nflag=2
else form1.forecolor=vbblue nflag=0
end if form1.print “欢迎使用VB” End sub
age=val(inputbox(“input age”,”age”,”25”)) b) Msgbox函数(可以有返回值,也可以没有) 格式一： msgbox <提示>[,<对话框类型>[,<标题>]] Call msgbox (<提示>[,<对话框类型>[,<标题>]]) 格式二： <变量>= msgbox (<提示>[,<对话框类型>[,<标题>]])
<语句块1> Else
<语句块2> falseEnd if
<后续语句> 语句2
2020/10/13
后续语句
5
选择结构之一IF结构
块IF语句嵌套格式: If <条件1> then
<语句块1> Else
if <条件2> then <语句块2>
else <语句块3>
end if
条件1
语句块1
条件2 语句块2 语句块3
2020/10/13
条件1
true
语句块1
false
条件2
true
语句块2
false
语句块3
后续语句
If…elseif语句流程图
8
选择结构之一IF结构
使用IF结构注意:
▪养成良好的语句书写缩进 风格。
▪每个IF必须要有一个END IF与之配对（注意if …elseif 结构中的情况）
▪每一个END If只与前面最 近的还没有与其它END IF 配对的IF配对。
end if form1.print “欢迎使用VB” End sub
true 条件1 false
语句块1
条件2
true
false
语句块2 语句块3
后续语句
IF语句嵌套流程图
2020/10/13
7
选择结构之一IF结构
Dim nflag as integer Private sub form_click()
条件 false true
循环体
2020/10/13
2
选择结构之一IF结构
Hale Waihona Puke Baidu
选择结构功能：根据所给定的 条件成立与否，来决定从多个 分支中选择执行某一个分支的 相应操作。
True 条件 语句1
false
语句2
p53例3-1 Private sub command1_click()
后续语句
dim x as single
form1.forecolor=vbred
nflag=1
else
form1.fontname=“楷体_GB2312”
form1.forecolor=vbgreen
nflag=0 end if
True 条件
form1.print “欢迎使用VB”
End sub
语句1
块IF语句格式: If <条件> then
2020/10/13
Private sub form_click() Dim x as single,y as single X=val(inputbox(“please input x”)) If x>=1 then If x>3 then Y=x+3 Else Y=x^2 End if Else If x>0 then Y=sqr(x) Else Y=0 End if End if Print “y=”;y End sub
后续语句
End if
<后续语句>
2020/10/13
IF语句嵌套流程图
6
选择结构之一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
2020/10/13
1
3种基本的控制结构
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
顺序结构 语句1 语句2
True
选择结构 条件 false
语句1
语句2
后续语句
循环结构