vb考试复习if语句
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顺序结构循环结构条件循环体truefalse条件语句1语句2后续语句falseTrue选择结构Sub form_click()Dim k As Byte, m As Byte, n As Bytek = 12m = k + 2n = m * 2Print n End Sub选择结构之一IF结构p53例3-1Private sub command1_click()dim x as singlex=val(inputbox(“输入X”,”计算分段函数的值”)if x then else 选择结构功能:根据所给定的 条件成立与否,来决定从多个 分支中选择执行某一个分支的 相应操作。条件语句1语句2后续语句falseTrue选择结构之一IF结构条件语句1后续语句truefalse实例 p54例3-2 Private sub form_click()dim x as single, y as singledim temp as singlex=val(text1.text)y=val(text2.text)if x thenElseEnd ifDim nflag as integer Private sub form_click()if nflag=0 thenform1.fontname=“黑体”form1.forecolor=vbrednflag=1elseform1.fontname=“楷体_GB2312”form1.forecolor=vbgreennflag=0end ifform1.print “欢迎使用VB” End sub条件语句1语句2后续语句falseTrue选择结构之一IF结构块IF语句嵌套格式:If thenElseif thenelseend ifEnd if条件1条件2 语句块1语句块2语句块3后续语句IF语句嵌套流程图选择结构之一IF结构Dim nflag as integer Private sub form_click()if nflag=0 thenform1.forecolor=vbrednflag=1elseif nflag=1 thenform1.forecolor=vbgreennflag=2elseform1.forecolor=vbbluenflag=0end ifend ifform1.print “欢迎使用VB” End sub条件1条件2 语句块1语句块2语句块3后续语句IF语句嵌套流程图truefalsetruefalse选择结构之一IF结构Dim nflag as integer Private sub form_click()if nflag=0 thenform1.forecolor=vbrednflag=1elseif nflag=1 thenform1.forecolor=vbgreennflag=2elseform1.forecolor=vbbluenflag=0end ifform1.print “欢迎使用VB” End sub条件1语句块1条件2语句块2语句块3后续语句truetruefalsefalseIfelseif语句流程图选择结构之一IF结构使用IF结构注意:§养成良好的语句书写缩进 风格。§每个IF必须要有一个END IF与之配对(注意if elseif 结构中的情况)§每一个END If只与前面最 近的还没有与其它END IF 配对的IF配对。Private sub form_click() Dim x as single,y as singleX=val(inputbox(“please input x”)If x>=1 then If x>3 then Y=x+3 Else Y=x2End if Else If x>0 then Y=sqr(x) Else Y=0 End if End if Print “y=”;y End sub选择结构之二情况选择结构Select case Case Case Case Case elseEnd selectPrivate Sub command1_click()Dim n As Integer, s As Stringn = Int(Rnd * 100) + 1Select Case nCase 88s = “你中的是特等奖“Case 8, 18, 38, 58, 68, 78, 98s = “你中的是一等奖“Case 31 To 50s = “你中的是二等奖“Case Is ,§区间表达法: to §关系表达法:IS