资源描述：
《VB测试卷及答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VB期中测试卷班级：学号：姓名：一、判断题(1X10分)(1)VB是可视化的、而向对彖的、采用事件驱动的结构化高级程序设计语言。(2)VB的Double类型数据可以精确表示其数值范围内的所有实数。(3)要使文本框出现垂直滚动条，只要将该文本框的ScrollBars属性设置为2就可以了。(4)执行"UnloadFormlv语句后,窗体Forml消失，而且释放其所占的内存。(5)同一个窗体文件只能用于一个工程中。(6)xxx.vbp文件是用来管理构成应用程序xxx的所冇文件和对彖的清单。(7)决定对象是否可见的厲性是Visible屈性，决定对象
2、可用性的厲性是Enabled®性。(8)在逻辑运算符Not、Or.And中，运算优先级由高到低依次为Not、Or.And。(9)过程屮的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。(10)使用OnErrorGoTo语句并编写和应程序，可以捕获程序中的编译错误。二、选择题(2X10分)第1题：在设计模式双击窗体中的对象后，VisualBasic将显示的窗口是。A、属性窗口B、代码窗口C、工具箱D、工程窗口第2题：Integer类型的变量可存的最大整数为。A、255B、256C、32768D、32767第3题：下列哪个
3、函数返回值为Ascii码值？A、Chr(x)B、Str(x)C、Space(n)D、Asc(x)第4题：下列关TSelectCase之测试表达式的叙述中，错误的是。A、只能是变量名B、可以是整型C、可以是字符型D、可以是浮点类型第5题：执行语句后,执行语句"Text1.SeiStart=0:Textl.SelLength=Len(Textl)",可以使文木框控件Textl中的文本突出显示。A、Textl.Enabled=TrueB、Tcxtl.SctFocusC、Textl.Locked=FalseD、Textl.Move第6题：设置命令按
4、钮cml的背景色为红色，可以执行语句。A、cml.BackColor=vbrcdB、cm1.BackColor=vbred:cml.style=lC^cm1.Picture=RGB(255,0,0)D、cm1.BackColor=RGB(255,0,O):cml.enabled=True第7题：以下关于VB的叙述屮错误的是oA、是事件驱动型可视化编程工具B、应用程序中不具有明显的开始和结束语句C、某些控件的某些属性只能在运行吋设置D、VB工具箱中的所有控件都具有Width和Height属性第8题：下列不属于对象的基本特征的是。A、事件B、函
5、数C、方法D、属性第9题：InputBox函数用來返冋用户输入的值，该值的类型是A、整型B、字节型C、字符串型D、逻辑型第10题：若i的初值为8,则下列循环语句的循环次数为次。DoWhilei<=17iN+2LoopA、3次B、4次C、5次D、6次三、程序填空题(2X10分)第1题：用ti/4^1-1/3+1/5-1/7+……公式求71的近似值。PrivateSubCommand1_Click()DimsAsIntegerDimnAsSingle,tAsSingle,piAsSinglet=l:pi=O:n=l:s=l:While(Abs(
6、t)>0.000001)pi=pi+tn=_l_s=-st=_2_WendPi=_3—Printnpi-piEndSub第2题：以下的程序能使二维数组的主对角线为1,辅对角线元素为0,其它元素为其行列下标Z和。请为程序填空。ConstSIZE=4PrivateSubCommand1_Click()Dima(SIZE,SIZE)AsInteger,IAsInteger,jAsIntegerForI=0ToSIZEForj=OToSIZEif_4_thena(I,j)=1elseif_5_thena(I,j)=OElse_6_EndIfNext
7、jNextIForI=0ToSIZEForj=OToSIZEPrinta(I,j);NextjprintNextIEndSub第3题：在tcxtl•中输入一行字符，冋车后统计并输出其中英文字母、数字和其他字符的个数。PrivateSubText1_KcyPrcss(KcyAsciiAsInteger)Dimdigit%,1%,letter%,other%DimchAsString*1digit=0:letter=0:other=0If_7_ThenForI=1To8_ch=9_If(ch>=nanAndch<=nzM)Or(ch>=Andc
8、h<=”Z”)Thenletter=letter+1Elseifch>=”0”Andch<=,,9HThendigit=digit+1Else_10_EndIfNextIPrin
