vb期末考试练习卷3和答案-医药卫生

vb期末考试练习卷3和答案-医药卫生-让每个人同样地提高自我练习卷三一、语言基础题（40分）判断题（本题10分，每题1分）1．都能显示和输入文字是控件TextBox与Label的共同特点之一。2．DoUntil----Loop语句实现循环时,当条件为False时才执行循环。3．经过vb编译生成的文件拥有.EXE文件扩展名，该文件只能在VB环境下执行。4．InputBox函数的数据种类是String。5．变量尾部的%符号隐式申明变量为整型。6．Dima1,a2asInteger语句显式申明变量a1和a2都为整型变量。7．过程调用时，实质参数的个数与形式参数的个数不必然要相等。8．能够在窗体或标准模块的通用申明部分申明全局变量，但不能够够在过程里申明全局变量。1/99．控件数组的每个元素都有同样的Name属性值和不同样的Index属性值，此中最小的Index属性值为0。10．当拖曳转动条中的转动框时，便发生转动条Scroll事件。单项选择题（本题10分，每题1分）1．改变某控件在窗体中的上下地址应更正该控件的( )属性。[A][B][C]Top[D]Left2．假定flge是逻辑型变量,下边赋值语句中正确的选项是( )[A]flge='True'[B]flge=“True"[C]flge=#True#[D]flge=343．一个对象能够执行的动作和可被对象识其他动作分别称为:事件、方法[B]方法、事件属性、方法[D]过程、事件4．Sub过程与Function过程最根本的差别是:前者能够使用Call或直接使用过程名调用,后者不能够够.后者能够有参数,前者不能够够.两种过程参数的传达方式不同样.前者无返回值,但后者有.5．列表框控件的以下几个属性中,哪一个不是数组:[A]List[B]ListIndex[C]Selected[D]ItemData2/96．下边哪一各种类的对象不能够作为控件的容器:Form[B]PictureBox[C]Shape[D]Frame7．下边哪一种控件不支持Change事件:TextBox[B]Label[C]PictureBox[D]ListBox8．以下函数中,返回值是字符串的是:[A]Chr[B]InStr[C]Val[D]Asc9．搬动转动条中的转动框,将触发该转动条的什么事件:Scale[B]KeyDown[C]Change[D]Scroll10．下边哪一种对象没有Caption属性:Form[B]TextBoxCommondButton[D]Frame填空题（本题20分，每题2分）1．准时器控件的Interval属性值是指时间间隔，当每隔此间隔的时间，准时器会触发一次事件。2．VB为增添到窗体上的第一个图片框供给的默认对象名为。3．当复选框被选中,它的Value属性值为。4．在过程调用中，参数传达分为按值传达和按地址传达，此中按地址传达是默认方式。使用关-让每个人同样地提高自我键字来修饰参数，能够使之按值传达。3/95．判断变量X是否是能被5整除的偶数，逻辑表达式写为。6．表达式（-5）Mod8的值为。7．若是在模块的申明段中有OptionBase0语句,则在模块中使用Dima(6,3To5)申明的数组有个元素8．若是要强迫变量的申明,应在模块的申明段使用语句。9．已知a、b、c都是整型变量,，描述条件a和b中最少有一个大于c的VB逻辑表达式是。10．申明变量种类有二种方法，它们是：。二、程序阅读题（本题20分，每题5分）1．设窗体上有两个控件：文本框Text1和按钮Command1,下边是按钮的Click事件过程,单击按钮后,文本框中最后显示什么:PrivateSubCommand1_Click( )Dima(2,4)AsInteger,b(4)AsIntegerDimcAsIntegerDoWhilec=4a(1,c)=a(1,c)+2*c-1a(2,c)=a(2,c)+12-2*cc=c+1Loop4/9c=1DoWhilec=4b(c)=a(1,c)+a(2,5-c)=b(c)c=c+1LoopEndSub2．单击窗体打印出的结果是：PrivateSubForm_click( )A=1：B=ADoUntilA=5X=A*BPrintStr$(A)"*"Str$(B)"=";Str$(X)A=A+BB=B+ALoopEndSub3．单击窗体打印出的结果是：PrivateSubForm_Click( )5/9DimF(2)ForI=0To2F(I)=SQ(I*I+1)NextII=I-1DoUntilI=0I=I-1Print"F(";I;")=";F(I)-让每个人同样地提高自我LoopEndSubPublicFunctionSQ(X)X=X+2SQ=X*4-5EndFunction4．当单击窗体时,窗体上显示内容的第一行和第二行分别是:PrivateSubForm_Click( )test2EndSubPublicSubtest(xAsInteger)x=x*2+16/9Ifx6ThenCalltest(x)EndIfx=x*2+1PrintxEndSub三、程序填空题（本题20分，每空2分）1．用随机数产生十个[10---50]的随机整数(包含10和50),并按由小到大序次并五个一行打印出来OptionBase1Dima(10)AsIntegerPrivateSubForm_Click( )Dimi,jAsIntegerDimtAsIntegerRandomizeFori=1To10a(i)=----(1)---NextiPrint"排序前数据:"Fori=1To----(2)---Printa(i);7/9If----(3)---ThenPrintNextiPrintFori=1To9imin=iForj=----(4)---To10Ifa(imin)a(j)Thenimin=jNextjt=a(i)a(i)=a(imin)a(imin)=----(5)