VB期中考试题-精品文档.docx
VB期中考试题VB期中考试题一、填空题1、VisualBasic是一种面向_的可视化程序设计语言，采取了_的编程机制。2、在VB中工程文件的扩展名是_，窗体文件的扩展名是_，标准模块文件的扩展名3、一个控件在窗体的位置由_和_属性决定，其大小由_和_属性决定。4、设置控件背景颜色的属性名称是_。5、x=InputBox(_,)6、写出显示下列图信息框的MsgBox函数MsgBox(,)二、选择题1、下面不是VB工作形式的是()A.设计形式B.运行形式C.汇编形式D.中断形式2、可视化编程的最大优点是()A.具有标准工具箱B.一个工程文件由若干个窗体文件组成C.不需要编写大量代码来描绘图形对象D.所见即所得3、下列不能打开属性窗口的操作是()A.执行“视图菜单中的“属性窗口命令B.按F4键C.按Ctrl+TD.单击工具栏上的“属性窗口按钮4、下列能够打开立即窗口的操作是()A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G5、VisualBasic的编程机制是()A.可视化B.面向对象C.面向图形D.事件驱动6、下面能够触发文本框Change事件的操作是()A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容7、应用程序设计完成后，应将程序保存，保存的经过是()A.只保存窗体文件即可B.只保存工程文件即可C.先保存工程文件，之后保存窗体文件D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件8、任何控件都具有的属性是()A.TEXTB.CAPTIONhttpdocsj/doc/119500d576eeaeaad1f3306a.D.FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是()A.TEXTB.CAPTIONhttpdocsj/doc/119500d576eeaeaad1f3306a.D.FONT9、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的()设置为0A.INDEXB.TABINDEXC.TABSTOPD.ENABLED10、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值进而改变了文本框的TEXT属性值时，将触发文本框的()事件A.CLICKB.DBLCLICKC.GOTFOCUSD.CHANGE11、下面窗体名中哪些是非法的窗体名()。A._aformB.3frmC.f_1D.frm5E.f_1*12、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为()。A.myfrm_clickB.form1_clickC.form_clickD.me_click13、执行下面语句：print“5*20的结果是()。A.“5*20B.出现错误信息C.5*20D.10014、下列语句代码不可正常执行的是()。A、Print32765+3B、Print5+7=14C、Print256/128D、Print"14"+1215、当用户单击命令按钮时，()属性能够使得命令按钮对激发事件无效。A.NameB.EnabledC.DefaultD.Cancel16、下列语句中的()语句能够用来正确地声明一个动态数组。A.PrivateA(n)asintegerB.DimA()asintegerC.DimA(,)asintegerD.Dima(1ton)16、下面选顶中，不是VisualBasic6.0默认控件名称的是httpdocsj/doc/119500d576eeaeaad1f3306a.mand1B.Text1C.Option1httpdocsj/doc/119500d576eeaeaad1f3306a.be117、表达式Fix(26.99)+Int(24.56)的值为A.2B.3C.1D.018、用下面语句定义的数组元素个数是Dima(3T03，2)asIntegerA.6B.12C.14D.2119、在VisualBasic6.0的立即窗口中，表达式Print5>2的输出是A.1B.0C.TrueD.False20、VisualBasic6.0变量名Num的类型是A.字符串类型B.单精度型C.整型D.货币三、写出运算或程序执行的结果1、设s1,s2均为字符串变量，s1=VisualBasic,s2=b,写出下面关系表达式中结果。A.Mid(s1,8,1)>s2B.Len(s1)2*Instr(s1,l)C.Chr(66)&Right(s1,4)=BasicD.Instr(Left(s1,6),a)+60>Asc(Ucase(s2)2、求出下列表达式的运算结果;A.Mid("visualbasic",1,12)=Right("Programminglanguagevisualbasic",12)B."ABCRG">="abcde"C.Int(134.69)>=CInt(134.69)D.78.9/32.77-4.98E.Str(32.345)=CStr(32.345)3、PrivateSubForm_Click()DimxAsInteger,yAsIntegerDimzAsSinglex=0.2y=1If(x>=1)Thenz=Log(x)ElseIfx>=0Andx=0Thenz=2*x-yElsez=Exp(x+y)EndIfPrint"z="+Str(z)EndSub4、PrivateSubForm_Click()DimchAsString,iAsIntegerch="c"SelectCasechCase"A","a"i=1Case"B","b"i=2Case"C","c"i=3Case"D","d"i=4CaseElsei=5EndSelectPrint"运行结果"+Ucase(ch)+Str(i)EndSub5、运行下面的程序，单击窗体后在窗体上的内容是();若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是()PrivateSubForm_Click()DimaAsInteger,bAsIntegera=0:b=0DoWhilea=10ThenExitForNextiPrinti,p,nEndSub
