VB习题(参考答案).ppt

VB学习版、专业版、企业版区别,VisualBasic学习版VisualBasic学习版让编程人员很容易地创建功能强大的MicrosoftWindows和WindowsNT(R)应用程序。它包括了所有的内部控件，加上网格、选项卡、和数据绑定控件。与此版本一起提供的文档包括LearnVBNow（这是一张多媒体CD-ROM的标题），加上包含了完整联机文档的MicrosoftDeveloperNetworkCD。学习版就是简装版VisualBasic专业版专业版向计算机专业人员提供了一套功能完整的工具，以便他们为其他人开发解决方案。专业版包含了学习版的所有功能，还加上了附加的ActiveX控件、InternetInformationServer应用程序设计器、集成数据工具和数据环境、ActiveDataObjects、以及动态HTML页面设计器。VisualBasic企业版企业版允许专业人员以小组的形式来创建强健的分布式应用程序。它包括专业版的所有特性，加上BackOffice工具，例如SQLServer、MicrosoftTransactionServer、InternetInformationServer、VisualSourceSafe、SNAServer等等。,建立一个应用程序分为以下几步,(1)建立用户界面的对象(2)对象属性的设置(3)对象事件过程及编程(4)保存和运行程序,VB默认安装目录,C:ProgramFilesMicrosoftVisualStudioVB98VB6.EXE默认保存目录C:ProgramFilesMicrosoftVisualStudioVB98VB常用图片、图标保存位置C:ProgramFilesMicrosoftVisualStudioCommonGraphics,习题二,对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。,对象的三要素：属性、事件和方法。,属性：存放对象的数据(决定对象外观及功能）对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句对象名.属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。,窗体和控件具有的基本属性,(1)Name属性：名称所创建的对象名称,在程序中引用。(2)Caption属性：标题该属性决定了对象上显示的内容。(3)Height、Width、Top和Left属性决定对象的大小和位置。(4)Enabled属性：对象是否允许操作(5)Visible属性：对象是否可见(6)Font属性组：文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体FontStrikethru删除线FontUnderline下划线,(7)ForeColor属性：前景颜色(8)BackColor属性：背景颜色(9)MousePointer属性：鼠标指针类型,设置值范围015，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。(10)MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。窗体的方法:（1）Print方法（2）Cls方法（3）Move方法,标签和文本框,标签：用于显示文本(输出)信息，不能作为输入信息的界面。其内容只能通过Caption属性设置或修改，不能直接编辑。文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。,文本框主要属性,（1)Text显示或输入的正文内容。(2)Maxlength设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。(3)MultiLine多行属性设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。(4)ScrollBars滚动条属性0-None无滚动条1-Horizontal水平滚动条2-Vertical垂直滚动条3-Both同时加水平和垂直滚动条注意：当MultiLine为True时，ScrollBars才有效,(5)PassWordChar设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。当MultiLine为True时，该属性不起作用，密码不允许多行。(6)Locked指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。注意：Locked与Enabled的区别。(7)文本内容进行选择操作的三个属性SelStart选定的正文开始位置SelLength选定的正文长度SelText选定的正文内容这3个属性互相关联,例如设置SelStart、SelLength后，SelText自动存放指定的文本。注意：属性窗口中没有这三个属性，只能在程序代码中使用。,让文本框活的焦点的方法是SetFocus，把光标移到指定的文本框中。文本款的Change时间和KeyPress事件(1)Change事件：当Text属性值发生改变时引发该事件(2)KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。对回车的判断KeyAscii=13清除文本框的内容Text1.Text=,启动窗体时将命令按钮定位在窗体中央的代码,PrivateSubForm_Load()nCommand1.Left=Form1.ScaleWidth/2-Command1.Width/2Command1.Top=Form1.ScaleHeight/2-Command1.Height/2EndSub,习题三,1.合法常量：(1)Double(2)错误(3)Double(4)Double(5)错误(6)Integer(7)String(8)String(9)Date(10)Double(11)错误（汉字字符）(12)Integer(八进制)(13)错误（八进制无数码8）(14)Integer(15)Boolean(16)错误(17)错误（十六进制无数码g）(18)Single说明：浮点型变量默认为Double类型而非Single。,2.合法变量名：,(1)(2)(3)误：数字开头(4)误：含空格(5)误：关键字(6)(7)误：关键字(8)误：有括号(9)(10)(11)(12)（汉字字符可作为变量名，但不常用）变量命名规则见P.41-42。字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。,(1)Abs(x+y)+z5(2)(1+x*y)6(3)(10*x+Sqr(3*y)/(x*y)(4)(-b+Sqr(b2-4*a*c)/(2*a)(5)1/(1/r1+1/r2+1/r3)(6)Sin(45*3.14159/180)+(Exp(10)+Log(10)/Sqr(x+y+1),3.写VB表达式,4.根据条件写表达式,(1)随机产生大写字母Chr(Int(Rnd*(Asc(L)-Asc(C)+1)+Asc(C)(2)100,200内的随机数Int(Rnd*101)+100(3)点(x,y)位于第一或第三象限x0Andy0Orx0(4)x是5或7的整数倍xMod5=0OrInt(x/7)=x/7(5)将两位整数x的个位与十位对换x10+(xMod10)*10(6)四舍五入取两位小数Round(x,2),(7)字符变量C是字母字符（不区分大小写）准确地说是：字符变量C的第一个字符是字母C=AAndC=aAndC=AAndUCase(C)=aAndLCase(C)zAndyz,6Shell函数调用,i=Shell(mspaint.exe,1)启动画图i=Shell(C:ProgramFilesMicrosoftOfficeOFFICE11winword.exe,1)启动Word,VB数据类型,数据类型符,integer%短整型longy,#使用SelectCase语句DimxAsSingle,yAsSinglex=Val(InputBox(x=)SelectCasexCaseIs20y=x2+3*x+2CaseIs=10y=Sqr(3*x)-2CaseIs0y=1/x+Abs(x)EndSelectPrinty=;y,（3）#使用If语句DimxAsSingle,yAsSingleDimzAsSingle,DimMaxAsSinglex=Val(InputBox(x=)y=Val(InputBox(y=)z=Val(InputBox(z=)Max=xIfyMaxThenMax=yIfzMaxThenMax=zPrintMax=;Max,#使用IIF函数x=Val(InputBox(x=)y=Val(InputBox(y=)z=Val(InputBox(z=)Max=IIf(xy,x,y)Max=IIf(zMax,z,Max)PrintMax=;Max,9.计算循环次数,（1）6（2）19（3）0（4）死循环直至溢出10.40号语句执行4次；第50号语句执行12次；执行第90号语句输出的结果是：13，0，2说明：该程序为嵌套循环，其中外循环由j值变化（1，4，7，10）控制执行4次，当j值为13时结束循环；内循环由k值变化（6，4，2）控制执行3次，当k值为0时结束循环。第40行是外循环的循环体，故执行4次；第50行是内循环的循环体，故执行4*3=12次。,11.可以定一个较大的循环次数，在循环体中根据条件用ExitFor退出。但这种情况通常用DoWhile循环控制。12.编程（并非唯一正确答案）（1）DimiAsInteger,sAsIntegerFori=1To10s=s+(i+1)*(2*i+1)NextiPrints=;s,（2）DimiAsInteger,n3AsInteger,n7AsIntegerFori=1To100IfiMod3=0Thenn3=n3+1IfInt(i/7)=i/7Thenn7=n7+1NextiPrint1-100中3的倍数有;n3;个Print1-100中7的倍数有;n7;个,（3）Dims1AsString,s2AsString,iAsIntegers1=InputBox(InputString)s2=Fori=1ToLen(s1)s2=Mid(s1,i,1)+s2NextiPrint原序：;s1Print反序：;s2,13.输出字符串“10100”。该程序功能是将十进制数转化为二进制。说明：要理解该程序需要了解数制转换的计算方法（有兴趣者参看百度百科,1550，100间的20个随机数，求最大值、最小值、平均值。,DimxAsInteger,su