VB语句——赋值、选择.ppt

VB语句——赋值、选择.ppt

ID:50243887

大小:170.11 KB

页数:20页

时间:2020-03-10

VB语句——赋值、选择.ppt_第1页
VB语句——赋值、选择.ppt_第2页
VB语句——赋值、选择.ppt_第3页
VB语句——赋值、选择.ppt_第4页
VB语句——赋值、选择.ppt_第5页
资源描述:

《VB语句——赋值、选择.ppt》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、VisualBasic基本知识之基本语句VB基本语句1.赋值语句2.选择语句3.循环语句赋值语句赋值语句:为变量或对象的属性变量赋值,将赋值号右边的表达式的计算结果存储到左边的变量中。语句格式:变量名=表达式对象名.属性=表达式例如:a=100b=“abc”Text1.text=“你好!”Label1.caption=“45”注:赋值遵循“以新换旧,后来居上”原则赋值语句使用注意事项1.虽然赋值号与关系运算符中的等于号都用“=”表示,但是vb系统会根据所处的位置自动判断是何种意义的符号。2.赋值号左

2、边只能是变量。sin(x)=x+yx+y=33.不能用一条赋值语句给多个变量赋值。x=y=z=3例1已知变量a初值为4,b初值为7,将a,b中存放的两个数进行交换a=4b=7c=aa=bb=ca=4:b=7c=a:a=b:b=ca初值为4,b初值为7cabcab实现变量值的交换赋值语句练1执行以下VB程序段后,变量x的值为()x=3y=8x=x+yy=x-yx=x-yA.3B.8C.5D.13B同样能实现变量值的交换赋值语句练2下列VB程序运行时,在文本框Text1中输入1234,单击命令按钮Com

3、mand1后,文本框Text1中显示的内容是()PrivateSubCommand1_click()DimnAsInteger,xAsIntegern=Val(Text1.text)x=nMod10n=x*1000+n10Text1.Text=Str(n)EndSub4123‘定义2个整型变量n,x‘将“1234”转换成数值后赋值给n注释语句VB基本语句1.赋值语句2.选择语句3.循环语句开始表达式是否为true?(周一不下雨?)YN语句1(升国旗)结束单分支结构If条件表达式Then语句If条件

4、表达式then语句EndIf条件?YN语句单分支结构If周一不下雨then升国旗If周一不下雨then升国旗EndIf例1有如下VB程序段:s=2:k=1IfNotk=sThens=s+k该程序段运行后,s的值是()A.3B.2C.1D.0A练1“如果a,b中任意一个为0,那么y=y+l”。能实现该功能的VB语句是()A.Ifa=0Andb=0Theny=y+1B.Ifa*b=0Theny=y+1C.Ifa=0,b=0Theny=y+1D.Ifa,b=0Theny=y+1B开始x>y?YNmax=x

5、max=y结束双分支结构输出max两数比较大小双分支结构If条件表达式Then语句1Else语句2If条件表达式Then语句块1Else语句块2EndIf条件YN语句1语句2例2有如下程序段运行后,y的值是()X=6:y=-10IfNotx>0Thenx=y-5Elsey=x+4A.10B.-10c.15D.-15A练2如果x,则y=否则y=x,请用VB语句描述Ifx>=yandx<3*yTheny=x^3Elsey=x成人的BMI数值:过轻:低于18.5正常:18.5-24(不包括18.5)过重:

6、24-28(不包括24)肥胖:28-32非常肥胖:高于32体质指数(BMI)=体重(kg)÷身高^2(m)BMI是世界公认的一种评定肥胖程度的分级方法,世界卫生组织(WHO)也以BMI来对肥胖或超重进行定义。开始表达式1为true?Y语句1N表达式2为true?Y语句2N表达式3为true?Y语句3NElse?Y语句0N结束多分支结构块If语句If条件表达式1Then语句块1ElseIf条件表达式2Then语句块2……ElseIf条件表达式nThen语句块nElse语句块0EndIf多分支例3小明在

7、大街上经常看见一种测量身高体重并提示肥瘦的机器,很感兴趣,就在VB中编写了如下程序,程序运行时,在文本框Text1中输入数据60,在文本框Text2中输入数据178,单击命令按钮Command1后,文本框Text3中显示的内容是()PrivateSubCommand1_Click()DimtAsInteger,hAsintegerDimAnsasstringDimxsassinglet=Val(Text1.Text)h=Val(Text2.Text)xs=t^2/hIfxs<18ThenAns="偏

8、瘦"Elseifxs<=25thenAns="正常"ElseAns="肥胖"EndIfText3.Text=AnsEndSubA.偏瘦B.正常C.肥胖D.AnsB练3有如下VB程序段:PrivateSubCommand1_Click()a=0:b=0:c=0x=Int(Rnd()*100)Ifx>66Thena=xElseIfx>33Thenb=xElsec=xEndIfEndSub该程序执行后,变量a,b,c的值可能是:()A.57,0,0B.0,27,0C.0,0

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。