VB语言基础（二）（课件）-高考信息技术一轮复习考点扫描（浙江专用）

专题十七VB语言基础（二）PART01语句作用是把赋值号(等号)右边表达式的计算结果存储到赋值号左边的变量或某个特定的对象属性中变量名＝表达式对象名．属性名＝表达式对象名．属性名＝属性值例：a＝1＋2*3

a=b

Tex.Text=Str(a+b)

lab.Caption=“你好”

k=Val(Text2.Text)赋值语句也称“分支结构语句”或“条件判断语句”，用来表示选择(条件)控制结构，使得程序在执行过程中，根据不同的判断结构，选择执行不同的处理。行if语句

If条件表达式Then语句If条件表达式Then语句1

Else语句2

选择语句If条件表达式1Then

语句块1ElseIf条件表达式2Then

语句块2……ElseIf

条件表达式nThen

语句块nElse

语句块0EndIfIf

条件表达式Then

语句1Else

语句2EndifIf

条件表达式Then

语句Endif块if语句循环语句是程序中实现重复控制的方法之一，常用的循环语句有For语句和Do语句。For循环语句：通过次数控制循环的计算过程。For语句主要用于循环次数已知的情况，因此，也被称为计数循环。For语句一般格式如下：For循环变量＝初值To终值Step步长循环体语句块Next循环变量循环语句通过条件控制循环的计算过程。常用格式如下：

Do

While条件表达式循环体语句块

Loop一般情况下，For语句都可以用Do语句来代替，而且在某些情况下，如果事先不知道循环应该执行的次数，但我们知道在什么条件下需要循环，则不能用For语句而必须用Do语句。因此，Do语句的适用面比For语句要广。Do循环语句小积累小积累注释是以（‘）开头的一串文字，可出现在程序中需要进行说明的位置上。注释的作用仅仅是为了增加程序的可读性，对程序执行效果没有任何影响。注释语句输入Inputbox()文本框输出Msgbox()文本框标签列表框x=val(Text1.Text)Text1.Text=str(x)Label1.caption=sList1.Additemstr(x)输入输出语句PART02运行中常见的几种错误要求对象除数为零数据溢出下标越界类型不匹配未找到方法或数据成员子程序或函数未定义参数不可选无效的过程调用或参数语法错误PART03典例分析（2017金丽衢十二校卷，2分）以下VB代码运行后，在文本框Text1中输入1，则语句Ifk<=9Then执行的次数为（）PrivateSubText1_Change() DimkAsInteger,iAsInteger k=Val(Text1.Text) Fori=1To3 Ifk<=9Thenk=k+i Nexti Text1.Text=Str(k)EndSubA.3 B.5 C.6 D.9D1PrivateSubCommand1_Click()

DimxAsInteger,iAsInteger Dima(1To10)AsInteger Fori=3To10Step2 a(i)=Int(Rnd()*40)-20 ′① x=Sqr(a(i)) ′② List1AdditemStr(x) ′③ Nexti Lable1.Caption=Str(Sum) ′④EndSub该程序多条语句出现错误，其中错误弹窗对应的序号错误的是（

）（2018改编，2分）某VB程序在界面设计时窗体上所有的对象都使用默认对象名称，其中过程代码如下：AC.③B.②A.①D.④2（2018改编，2分）有如下VB程序段：bianliang_a=3:bianliang_b=4Label1.Caption=“bianliang_a*bianliang_b”该程序段运行之后，标签Label1将显示()A.3*4

B.12C.bianliang_a*bianliang_b

D.3*4=12C3小提示（2018改编，2分）下列程序段中，可以实现交换变量x、y值的是()A.y=x:x=yB.z=x:y=z:x=yC.z=x:x=y:y=zD.z=x:w=y:y=z:x=yC小提示在程序设计中两个任意类型的变量交换值的方式，需要引入第三方变量进行，但若是数值型变量，则下列语句也可以实现变量值的交换：a=a+b:b=a-b:a=a-b。4（2017.11浙江选考，2分）有如下VB程序段：n=0Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc>=“0”Andc<=“9”Thenm=1Elsem=2a(m)=a(m)+1Ifa(m)=1Thenn=n+1Nexti数组a各元素的初始值都为0,文本框Textl的内容为“Happy2017”。执行程序后，变量n的值为（）A.1 B.2 C.4 D.9B5（2018改编，2分）有如下程序段：PrivateSubForm_Click()DimcAsIntegerDimdAsIntegerc=4d=Val(InputBox(“请输入一个数”)DoWhiled>0Ifd>cThe