本专题介绍了面向对象程序设计思想和方法VB应用程序界面

Label显示的标 型6~7型14~15各种类型的数据可以分为常量和变量常量是指在程序执行过程中其值不能改变的单元或数据。变量是数据的一个区，在程序运行过程中，这些区中的值可以被改变。级）取余、+加、-减（7。关系运算有：=相等、<>不相等、<小于、>大于、<=小于等于、>=大于等于（8。含算以及这些运算所涉及到的数据。Abs(-x数Int(-4.1-2Val(“--Str(-“-4取字符串xnk30~100（（1）IfIfThen1Else2If条件表达式Then语句IfIfElseIf2ElseIfnEndifFortostepNextDoWhile过程：Sub处理过程名 自定义函数：Founction函数名（参数表）As类型名 End End OOP和的概念（必试+加试）13-11（20126）VisualBasic图所示，该对象名是（） 名，CommandButton，Appearance，Command1C。【参考答案】中的Click是 对象 B.属性 C.本题考查的是面向对象设计中对象、属性、方法、等概念。该对象的对象名应为“Command1。代码中不存在属性名，B选项也错误。而Click是按钮的单击名。【参考答案】13-3（20093）下列关于对象的描述中，错误的是（对象的发生会驱动该对象相应处理过程的执、、【参考答案】 VB常用控VB本改为“转换，可在其属性窗口（图2）中将 图 图【参考答案】控件工具是（） VB类。1指向的是，2指向的是文本框，3指向的是框架，4指向的是按钮，故答案选A【参考答案】【例13-6】(浙江省2012年6月会考)在VisualBasic中，如果要在Lab上显示（） B.Lab.Text=“注意事项C.Lab.Caption=“注意事项 D.Label.Width=“注意事项【参考答案】 【例13-7在VisualBasic中用变量code学生的借阅卡编（“XS 则变量code的数据类型应说明为（） ）型数据，故答案选C。Integer是整数型，Single是单精度实数型，Date是日期型。【参考答案】13-8（20123）VB（ 本题考查的是变量名规则。A选项中&不能作为变量名的组成部分，B选项中+不能作为变量名的组成部分，CAsD【参考答案】13-9VisualBasicDima（2to6）AsInteger的个数是（） 本题考查的是数组变量的定义形式：Dim数组变量名（A1ToA2）AS元素的类型。其a(4)、a(5)、a(65【参考答案】4VBVB13-10（20126VisualBasic56（ D.Abs(-VBMid(“”,5,3)是表示从字符串“53567，Len(“55”)+1“553Sqr(56)表示-55156，D。【参考答案】是（） 13\52,2Mod42.【参考答案】 D.Len(“-VBSqr(2)+1212.41421，Abs(-1)-2121，Asc(“1”)+21D。【参考答案】 C。【参考答案】 VB基本语[学习目标]掌握赋值、选择和循环等基本语句的使用方法，学会使用y If【参考答案】y=y+1VB（）Ifa=0Andb=0ThenIfa*b=0ThenIfa=0,b=0ThenIfa,b=0ThenC和D【参考答案】13-1320126VisualBasicFori=10To_Step-1s=s*i*（i-Nextss*i*（i1）5i -1ss*i*（i1i1ii65【参考答案】13-1620139VislualBasicDoWhilex<x=x+2x DoDox1x<0x1。继续判断条件x1。【参考答案】 【例13-14】(浙江省2009年3月高考)窗体装载过程可以对程序进行初始化。VB窗体装载过程的名称是（）本题考查的是处理过程的名称，必须符合规则即对象名_的标准名。C【参考答案】13-15（2012）VisualBasicPrivateSubCommand1_Click()DimxAsInteger,iAsIntegerFori=1To10Step3x=i*(i+2)List1AddItemStr(x)NextiEndCommand1引起该错误的语句是（Fori=1To10Step B.x=i*(i+C.List1AddItem D.Nextxi*(i2)，并将x的值从列表框中显示出来，则需要使用的正确的语句是List1.AddItemStr(x)，AddItemList1C【参考答案】PrivatesubObj_DblClick()End下列说法正确的是（该是一个单击该过程的过为该是一个双击Interval（ C.1000：kg，据类型应定义为（） 13-4VisualBasicDima(9)AsInteger（ VB（）Val(Mid(s,5,1))ModVal(Mid(s,5,1))Mod13-6VisualBasicFori=1To10Step3s=s+iNextssi（ DimiAsInteger,cAsString,sAsString,tAsStrings="2017o":t=""Fori=1ToLen(s)c=Mid(s,i,1)Ifc>="a"Andc<="z"Thent=t+cNextiText1.Text=Text1（ B. D.201713-8VisualBasicFunction(xAsString,nAsInteger)AsStringIfLen(x)>nThen=xElse=""End该函数