VB试题

一、填空共15题（共计30分）第1题（2.0分）一个工程可以包括多种类型的文件,其中扩展名为.bas的文件表示【1】文件.答案：=======(答案1)=======标准模块=========或=========模块第2题（2.0分）在VB中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值.答案：=======(答案1)=======Caption第3题（2.0分）要声明一个日期型变量str，正确的定义语句是【1】。答案：=======(答案1)=======dimstrasdate第4题（2.0分）在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案：=======(答案1)=======MultiLine第5题（2.0分）执行下面的程序段后，变量s的值为【1】。s=0Fori=2To4Step1s=s+1Nexti答案：=======(答案1)=======3第6题（2.0分）对象具有属性、事件和【1】三要素.答案：=======(答案1)=======方法第7题（2.0分）VB提供【1】函数用于将数字字符转换成数值型答案：=======(答案1)=======Val()=========或=========Val第8题（2.0分）所有控件都具有的共同属性是【1】属性.答案：=======(答案1)=======name=========或=========名称第9题（2.0分）窗体上有一标签,要使标签中显示红色的字符,应该对标签的【1】属性进行设置.答案：=======(答案1)=======ForeColor第10题（2.0分）如果要使命令按钮表面显示文字退出(X)(在字符X之下加下划线),则其Caption属性设置为【1】。答案：=======(答案1)=======退出(&X)=========或=========退出(&X)第11题（2.0分）VisualBasic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：=======(答案1)=======Picture1第12题（2.0分）CheckBox是【1】控件。答案：=======(答案1)=======复选框第13题（2.0分）文本框中所显示的内容是它的【1】属性的值.答案：=======(答案1)=======Text第14题（2.0分）要将名为MyForm的窗体显示出来，使用语句是【1】。答案：=======(答案1)=======MyForm.Show第15题（2.0分）VB6.0是运行于Windows操作系统环境下的一个快速可视化程序开发工具,用它进行程序设计,有三个基本的特点,即面向对象、可视化设计和【1】驱动编程机制.答案：=======(答案1)=======事件二、判断共10题（共计10分）第1题（1.0分）由VisualBasic语言编写的应用程序有解释和编译两种执行方式.答案：Y第2题（1.0分）除了标准控件外,还可引入其它控件及第三方厂商研制的控件.答案：Y第3题（1.0分）对象的属性只能在属性窗口中设置.答案：N第4题（1.0分）用dim语句声明的局部变量能保存上一次过程调用后的值.答案：N第5题（1.0分）定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案：Y第6题（1.0分）在表达式中,运算符两端的数据类型要求一致.答案：Y第7题（1.0分）VisualBasic的函数过程不一定会返回一个函数值答案：N第8题（1.0分）通用对话框只能用SHOW方法进行调用.答案：N第9题（1.0分）所有的控件在程序运行以后都是可见的.答案：N第10题（1.0分）在框架控件内的几个单选按钮中,可有一个或多个单选按钮的Value属性为True.答案：N三、单项选择共20题（共计20分）第1题（1.0分）假设bd是一个Boolean类型变量，以下数值语句错误的是（）A:bd=falseB:bd=trueC:bd=0D:bd=true答案：B第2题（1.0分）如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是______.A:HideB:ShowC:LoadD:Unload答案：D第3题（1.0分）下列不属于VB语言版本的是（）。A:学习版B:娱乐版C:专业版D:企业版答案：B第4题（1.0分）函数InStr(VB程序设计教程,程序)的值为().A:1B:2C:3D:4答案：C第5题（1.0分）在中断状态下可以运行代码,也可以在运行状态中作为输出结果的窗口称为().A:本地窗口B:立即窗口C:观察窗口D:栈窗口答案：B第6题（1.0分）下列关于属性设置的叙述错误的是().A:一个控件具有什么属性是VB预先设计好的,用户不能改变B:一个控件具有什么属性是VB预先设计好的,用户可以改变C:一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D:一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值答案：A第7题（1.0分）英文缩写OLE的含义是().A:面向对象程序设计B:对象链接C:对象嵌入D:对象链接与嵌入答案：D第8题（1.0分）要把一个命令按钮设置成无效,应设置其哪一属性值().A:VisibleB:EnabledC:DefaultD:Cancel答案：B第9题（1.0分）设a=6,则执行x=IIf(a5,-1,0)后,x的值为().A:5B:6C:0D:-1答案：D第10题（1.0分）设置框架的()属性值为False,其标题会变灰,框架中所有的对象均被屏蔽.A:NameB:CaptionC:EnabledD:Visible答案：C第11题（1.0分）可以惟一标识控件数组中的每一个控件属性的是A:NameB:CaptionC:IndexD:Enabled答案：C第12题（1.0分）引用列表框(List1)最后一个数据项应使用的语句是（）。A:List1.List(List1.ListCount)B:List1.List(List1.ListCount-1)C:List1.List(ListCount)D:List1.List(ListCount-1)答案：B第13题（1.0分）在VB中用()属性来设置字体颜色.A:FontColorB:ForeColorC:BackColorD:ShowColor答案：B第14题（1.0分）设a=3,b=5,则以下表达式值为真的是().A:a=bAndb10B:(ab)Or(b0)C:(a0)Eqv(b0)D:(-3+5a)And(b0)答案：B第15题（1.0分）下列可以把当前目录下的图形文件p1.jpg装入图片框picture1中,正确的语句是:A:Picture1=p1.jpgB:Picture1.Picture=p1.jpgC:Picture1.Picture=LoadPicture(p1.jpg)D:Picture=LoadPicture(p1.jpg)答案：C第16题（1.0分）可通过设置文本框对象的（）属性来实现文本框中用户的输入用*显示，而实际接收的仍为用户输入的文本。A:MultiLineB:ScrollBarC:PasswordCharD:MaxLength答案：C第17题（1.0分）在VB中能够产生随机数的函数是（）A:len(）B:rnd(）C:str(）D:space(）答案：B第18题（1.0分）下列符号中，在VB变量声明中可作为双精度精度数据类型类型符的是（）A:%B:#C:!D:&答案：B第19题（1.0分）标签文本的对齐方式由（）属性的设置值决定。A:BorderStyleB:BackStyleC:AutoSizeD:Alignment答案：D第20题（1.0分）设S=中华人民共和国，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）。A:国中人B:中国华人C:中国人D:中国人民答案：D四、程序填空共2题（共计20分）第1题（10.0分）'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人数。'成绩介于0到100(包括0和100)，当输入非法成绩时结束统计'-------------------------------------------------------PrivateSubForm_Click()Dimscore%,n1%,n2%,n3%,n4%,n5%,total%msg=请输入分数（介于0到100）msgtitile=输入数据score=Val(InputBox(msg,msgtitle))'**********SPACE**********While【?】total=total+1'**********SPACE**********SelectCase【?】CaseIs=90n1=n1+1CaseIs=80n2=n2+1CaseIs=70n3=n3+1CaseIs=60n4=n4+1CaseElsen5=n5+1'**********SPACE**********【?】score=Val(InputBox(msg,msgtitle))WendPrintn1,n2,n3,n4,n5,totalEndSub答案：=======(答案1)=======score=0Andscore=100=========或=========0=scoreAndscore=100=========或=========0=scoreAnd100=score=========或=========score=0And100=score=======(答案2)=======score=======(答案3)=======EndSelect第2题（10.0分）'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：根据输入的学习成绩,分别显示优秀(90分以上),良好'(75分以上),及格(60分以上),不及格几个等级。'-------------------------------------------------------PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx=90ThenLabel1.Caption=优秀'**********SPACE**********ElseIf【?】ThenLabel1.Caption=良好ElseIfx=60Then'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption=不及格EndIfEndSub答案：=======(答案1)=======x=75=========或=========75=X=======(答案2)=======Label1.Caption=及格=========或=========Label1=及格=======(答案3)=======Else五、程序设计共1题（共计10分）第1题（10.0分）'-------------------------------------------------'【程序设计】'-------------------------------------------------'