vb基本语句与数据类型.ppt

基本语句与数据类型,选择结构程序设计If语句,单行结构条件语句格式：IfThenElse例如：Ifa60ThenPrint及格表示当变量的值大于60时，打印“及格”。Ifa60ThenPrint及格ElsePrint不及格表示当变量的值大于60时，打印“及格”，否则打印“不及格”。,选择结构程序设计If语句,2.块结构条件语句格式：IfThenElseEndIf,选择结构程序设计If语句,3.多分支If语句格式：IfThenElseIfThenElseIfThenElseEndIf,例题：,任意输入一个百分制成绩，输出该分数对应级别：60分以下输出“不及格”；大于等于60小于70输出“中”；大于等于70小于80输出“良”；大于等于80输出“优”；分数小于0或大于100输出“输入有误”。,PrivateSubCommand1_Click()IfText1.Text=0AndText1.Text=60AndText1.Text=70AndText1.Text=80AndText1.TextbThenIfacThenMax=aElseMax=cEndIfElseIfbcThenMax=bElseMax=cEndIfEndIf,选择结构程序设计SelectCase语句,格式如下：SelectCaseCaseCaseCaseCaseElseEndSelect,例题：,任意输入一个月份，输出该月份对应的天数。在一年的12个月中，1、3、5、7、8、10、12月有31天，4、6、9、11月有30天，2月有28天。,PrivateSubCommand1_Click()SelectCaseText1.TextCase1,3,5,7,8,10,12Label1.Caption=31Case4,6,9,11Label1.Caption=30Case2Label1.Caption=28EndSelectEndSub,循环结构程序设计For型循环语句,格式如下：For=ToStepNext例如:DimiAsInteger,aAsIntegera=0Fori=1To10Step2a=a+1Nexti,例题：,计算出n的阶乘，n是一个大于1的正整数，其值由用户输入。n的阶乘的计算公式是：n!=12(n1)n,PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,sumAsIntegera=text1.Textsum=1Fori=1Toasum=sum*iNextiPrintsumEndSub,例题：,计算:sum=1!+2!+3!+n!，n是一个大于1的正整数，其值由用户输入。,PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,sumAsIntegera=text1.Textsum=0b=1Fori=1Toab=b*isum=sum+bNextiPrintsumEndSub,循环结构程序设计Do型循环语句,格式如下：DoLoop例如:DimiAsInteger,aAsIntegerDoWhilei=10a=a+1i=i+1Loop,变量的声明,格式如下：DimAs|Dim例如:DimaAsInteger|Dima%变量类型名有Integer（整型）、Long（长整型）、Single（单精度型）、String（字符串型）、Date（日期型）、Boolean（布尔型）、Object（对象型）、Variant（变体型）、Currency（货币型）、Byte（字节型）。,变量名,变量名的取名规则：以字母开头，由字母、数字和下划线组成，不能超过255个字符，不能用VB中的保留字和末尾带有类型符号的保留字作为变量名。注意，VB中对变量名、常量名、过程名的大小写字母不做区分