vb语言习题集答案.doc

《vb语言习题集答案.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB语言习题集答案第一章VB环境和程序设计初步习题一、选择题1-5:ACBCA6-10:BACBA11-15:DCDAD16-20:BDBCA21-24:BDAD二、填空题(1)ADOActiveXDatabaseObject第9章介绍(2)视图(3)工具箱(4)工具(5)选项(6)编辑器(7)对象的性质，来描述和反映对象特征的参数(8)对象的动作和行为(9)Form窗体(10)Font(11)MultiLine(12)在程序运行时无效。有些属性只能在设计时才能设置，例如：BorderStyle,MaxButton等；有些属性只能在运行时设置，例如：SelS

2、tart,SelLenght等。(13)Style(14)工程(15)工程属性(16)通用(17)Form1.Show(18)SelStart(19)Locked(20)TabIndex(21)0三、编程题1、privatesubcmd运行_Click()txtShow.Caption=”Hi,Welcome”txtShow.Backup=RGB(200,200,0)txtShow.Forecolor=RGB(0,230,0)TxtShow.FontBold=TruetxtShow.FontSize=35Endsub2、第一小题：(必作题)①PrivateS

3、ubcmd运行_Click()AutoRedraw=TrueFori=1To4Forj=1To2*i-1Printi;NextjPrint9NextiEndSub②privateSubcmd结束_Click()unloadmeendsub第二小题：（高级问题）①PrivateSubcmd运行_Click()AutoRedraw=TrueFori=1To4Printtab(30-2*i);Forj=1To2*i-1Printstr(i);NextjPrintNextiEndSub②privateSubcmd结束_Click()unloadmeendsub3、P

4、rivateSubForm_Click()label1.autosize=trueLabel1.BackColor=vbGreenLabel1.ForeColor=RGB(250,0,200)&&或者Label1.ForeColor=&H8080FFLabel1.caption=”天天想你的365个日”EndSubPrivateSubForm_DblClick()Label1.BackColor=&H8000000FLabel1.ForeColor=&H80000012Label1.Caption="还原"EndSub4、PrivateSubForm_Res

5、ize()Text1.Width=Form1.Width/2Text1.Height=Form1.Height/2Text1.Left=Form1.Left/2Text1.Top=Form1.Top/2EndSub5、方法1：用方法实现PrivateSubForm_Load()ShowText3.SetFocusEndSub方法2：用属性实现PrivateSubForm_Load()AutoRedraw=True9Text3.TabIndex=0EndSub第二章简单的VB程序设计习题一、概念题1、合法常量有:(1)Single(3)Single(4)Dou

6、ble(7)String(9)Date(10)Double(12)八进制的整型(13)八进制的整型(14)十六进制的整型(15)Boolean(18)Single2、合法变量:(1)(2)(6)(9)(10)(11)3、(1)abs(x+y)+z^5(2)(1+x*y)^6(3)(10*x+sqr(3*y))/(x*y)(4)sin(45*3.1415926/180)+(exp(10)+log(10))/sqr(x+y+1)4、(1)chr$(67)andchr$(76)(2)int(rnd*101)+100(3)int(x/5)=x/5orint(x/7)

7、=x/7(4)略(5)int(x*100+0.5)/100(6)略(7)略(8)x>=10andx<20(9)xzandy>z5、写出下列表达式的值：(1)188(2)200100(3)68.56(4)876543(5)2000-2-29(6)66、略7、略8、略9、答：数字字符串转换成数值，用Val函数；用IsNumeric()函数可判断是否是数字字符串；用Mid()函数取字符串中的某几个字符；用Ucase()函数将小写字母转换成大写字母；用Lease()函数将大写字母转换成小写字母。10、答：Printformat(x,”0.0

8、”)显示1位小数位Printformat(y,”0.