vb试卷合集

A12010─2011学年第一学期《VB程序设计》课程考试试卷(A卷:共6页)专业：全校的开课专业统考考试方式：闭卷学分：4考试时间：120分钟注意：1.姓名、序号必须写密封线内的指定地方；2.答案必须填写在随试卷一起提供的专用答题纸上，否则无效。一、选择题（每题2分，共20分）(1)在以下VB窗口中，可以用来调试简单程序的窗口为：()。A)属性窗口B)代码窗口C)工程管理器窗口D)立即窗口(2)若要使某个命令按钮不可操作，应将其()属性的值设置为False。A)EnabledB)VisibleC)NameD)Caption(3)当程序运行时，系统自动执行启动窗体的（）事件过程。A)LoadB)ClickC)CLSD)Print(4)设整型变量x,y,z的初始值均为0,下列哪个选项可以在程序中作为一个语句行，并使x的值变为5,y的值变为15，z的值变为3。A)x=5,y=15,z=3B)x=5;y=15;z=3C)x=5:y=15:z=3D)x=5y=15z=3(5)VB中的四种运算符的优先级由高到低的排列顺序是：（）A)算术运算、关系运算、字符连接运算、逻辑运算B)算术运算、字符连接运算、关系运算、逻辑运算C)算术运算、关系运算、逻辑运算、字符连接运算D)算术运算、逻辑运算、关系运算、字符连接运算(6)利用随机函数产生一个[10,99]区间内的正整数的式子为：()。A)Int(10+Rnd*99)B)Int(Rnd*10+99)C)Int(10+Rnd*89)D)Int(10+Rnd*90)(7)下面程序段运行后，显示的结果是：()。Dimx%:x=1:IfxThenPrintx+1elsePrintx-1A)0B)1C)2D)程序出错(8)下面的程序段用于求变量x和y中的大者m，不正确的是：()。A)m=IIf(xy,x,y)B)if(yx)Thenm=yelsem=xC)m=x:if(my)Thenm=yD)m=x:if(my)Thenm=y(9)下面的程序段用于定义一维数组M，不正确的是：()。A)DimM%(1to10)B)DimN%:N=10:DimM%(N)C)DimM%(0to10)D)ConstN%=10:DimM%(N)(10)下面是定义Function过程或Sub过程的第一条语句，正确的是：()。A)Privatesubsub1(ByValn%())B)Privatesubsub2(ByValn%)asIntegerC)Functionfun1(ByValfun1%)asIntegerD)Functionfun2%(ByValn%)A2二、基本概念填空题(每空1分，共20分)(1)在VB的基本数据类型中，基本整数型的关键字为Integer，类型符为%；单精度实数型的关键字为【1】，类型符为【2】。(2)在VB中，文本框控件有两个作用，一是用于【3】；二是通过对它的Text属性赋值，将其作为【4】的对象。(3)文本框对象（如Text1）的KeyPress事件中有一个参数KeyAscii，它是一个【5】类型的值；如果用户按下的键为“A”键，则KeyAscii的值为【6】(4)在VB中，用于输入数据的函数名为【7】；其第一个参数的类型为【8】，第一个参数的含义为【9】。(5)设有整型变量x=5:y=15:z=3，试写出下列表达式的值。Int(z-y/2)=【10】；x&y=【11】；xModz+x^2\y+z=【12】；Ucase(Mid(Thisisabook),2*z,x-1)=【13】；Instr(abacdergh,ac)=【14】(6)声明一个值为3.1415926的双精度型常量PI的语句为【15】。(7)在VB的赋值语句中，等号左边的数据对象可以有三种形式，它们分别是：【16】、【17】和【18】。(8)用VB程序段创建一个数据文件的过程通常分为如下三步：首先，打开一个新的用于保存数据的顺序文件，如C:\blank8.txt，语句为：【19】；然后，向其中写入一行文字，如abcdefg1234567，语句为：【20】；最后，用Close#1语句关闭该文件。三、程序填空题(每空2分，共14分)(1)在下面的程序中，gcd为求两个正整数的最大公约数的函数，事件过程Form_Click调用gcd函数求出x和y的最大公约数并将其赋值给z。请在空号【n】处填入适当的内容，用以实现程序的功能。Functiongcd%(ByValm%,ByValn%)Dimr%r=【1】DoWhile(r0)m=n:n=r:r=mModnLoopgcd=【2】EndFunctionPrivateSubForm_Click()Dimx%,y%,z%x=Val(InputBox(输入一个正整数x:))y=Val(InputBox(输入一个正整数y:))z=【3】Printx&与&y&的最大公约数为:&zEndSubA3(2)在下面的程序中，Sort是对其形参数组x按降序排序的过程，事件过程Command1_Click调用Sort过程对实参数组A进行排序。请在空号【n】处填入适当的内容，实现程序的功能。PrivateSubSort(x%())Dimi%,j%,m%,t%Fori=LBound(X())ToUBound(X())-1m=iForj=i+1ToUBound(X())If【4】Thenm=jNextjt=X(i):X(i)=X(m):X(m)=【5】NextiEndSubPrivateSubCommand1_Click()ConstM%=10DimA%(1ToM),i%Fori=1ToMA(i)=Int(Rnd*100)PrintA(i);Nexti【6】'过程调用语句Print排序后的数组为:Fori=1To【7】PrintA(i);NextiEndSub四、读程序写结果(每题4分，共16分)(1)运行程序，在空白的文本框Text1中输入7758四个字符，窗体显示的内容为：PrivateSubText1_change()PrintText1.textEndSub(2)写出下列代码运行的结果：PrinvateSubForm_click()Dimn%,s%s=0Forn=1to8s=s+nIfnmod2=0ThenPrintn=;n;s=;sEndIfNextnEndSub(3)写出下列程序运行的结果：A4PrinvateSubForm_click()Dimn%,char$,a$,m$a=a1B2c3D4e5F6!m=Forn=1tolen(a)char=Mid(a,n,1)selectcasecharcaseatozchar=chr(asc(char)+1)case0to9char=chr(asc(char)+2)caseAtoZchar=chr(asc(char)+32)Endselectm=m+char'注意先后顺序Ifnmod4=0ThenPrintmNextnPrintmEndSub(4)程序运行后，单击窗体，输入的数据为6,则输出结果为：PrivateSubForm_Click()DimiA,i%,n%,t%n=Val(inputbox(EnterN=?))iA=array(1,2,3,4,5,6,7,8,9,10)Fori=1ton\2t=iA(i):iA(i)=iA(n-i+1):iA(n-i+1)=tNextiFori=0toUbound(iA)PrintiA(i);NextiEndSub五、编程题(每小题10分，共30分)注意．．：所有代码均写在窗体．．．．．．．．．Form．．．．的．Click．．．．．事件中．．．(1)编写程序，从键盘输入一个三位的正整数，计算并输出这个三位数的逆序数，如输入851，输出158。(2)编写程序，根据从键盘输入的Taxi行驶里程数，计算出相应的收费金额。Taxi的收费标准为：起步价5元（含3公里行程），3公里以上10公里以内，每公里加收1.2元，10公里以上每公里再加收1.5元。(3)编程程序，从键盘输入一个小于8的正整数n，求n!+(n+1)!+(n+2)!...+9!，并输出。A52010─2011学年第一学期《VB程序设计》课程考试试卷(B卷:共6页)一、选择题（每题2分，共20分）(1)在以下VB窗口中，可以用来调试简单程序的窗口为：()。A)属性窗口B)代码窗口C)立即窗口D)工程管理器窗口(2)若要使某个命令按钮不可见，应将其()属性的值设置为False。A)NameB)CaptionC)EnabledD)Visible(3)当程序运行时，系统自动执行启动窗体的（）事件过程。A)ClickB)CLSC)PrintD)Load(4)设整型变量x,y,z的初始值均为0,下列哪个选项可以在程序中作为一个语句行，并使x的值变为5,y的值变为15，z的值变为13。A)x=5,y=15,z=13B)x=5:y=15:z=13C)x=5;y=15;z=13D)x=5y=15z=13(5)VB中的四种运算符的优先级由高到低的排列顺序是：（）A)算术运算、字符连接运算、关系运算、逻辑运算B)算术运算、关系运算、字符连接运算、逻辑运算C)算术运算、关系运算、逻辑运算、字符连接运算D)算术运算、逻辑运算、关系运算、字符连接运算(6)利用随机函数产生一个[20,99]区间内的正整数的式子为：()。A)Int(20+Rnd*99)B)Int(Rnd*20+99)C)Int(20+Rnd*80)D)Int(20+Rnd*79)(7)下面程序段运行后，显示的结果是：()。Dimx%:x=1:IfxThenPrintx-1elsePrintx+1A)0B)1C)2D)程序出错(8)下面的程序段用于求变量x和y中的小者m，不正确的是：()。A)m=IIf(xy,x,y)B)if(yx)Thenm=yelsem=xC)m=x:if(my)Thenm=yD)m=x:if(my)Thenm=y(9)下面的程序段用于定义一维数组M，不正确的是：()。A)DimM%(1to20)B)ConstN%=20:DimM%(N)C)DimM%(0to20)D)DimN%:N=20:DimM%(N)(10)下面是定义Function过程或Sub过程的第一条语句，正确的是：()。A)Privatesubsub1(ByValn%())B)Privatesubsub2(ByValn%)asIntegerC)Functionfun1%(ByValn%)D)Functionfun2(ByValfun1%)asInteger二、基本概念填空题(每空1分，共20分)A6(1)在VB的基本数据类型中，基本整数型的关键字为Integer，类型符为%；双精度实数型的关键字为【1】，类型符为【2】。(2)文本框对象（如Text1）的KeyPress事件中有一个参数KeyAscii，它是一个【3】类型的值；如果用户按下的键为“B”键，则KeyAscii的值为【4】(3)在VB中，文本框控件有两个作用，一是用于【5】；二是通过对它的Text属性赋值，将其作为【6】的对象。(4)在VB的赋值语句中，等号左边的数据对象可以有三种形式，它们分别是：【7】、【8】和【9】。(5)设有整型变量x=7:y=17:z=5，试写出下列表达式的值。Int(z-y/2)=【10】；x&y=【11】；xModz+x^2\y+z=【12】；Ucase(Mid(Thisisabook),7,z)=【13】；Instr(abacdergh,cd)=【14】(6)声明一个值为2.718281828的双精度型常量YI的语句为【15】。(7)在VB中，用于输出数据的函数名为【16】；其第一个参数的类型为【17】，第一个参数的含义为【18】。(8)用VB程序段创建一个数据文件的过程通常分为如下三步：首先，打开一个新的用于保存数据的顺序文件，如C:\blank9.txt，语句为：【19】；然后，向其中写入一行文字，如1234567abcd