《vb程序设计期末考试题和答案.docx》由会员分享,可在线阅读,更多相关《vb程序设计期末考试题和答案.docx(17页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、vb程序设计期末考试题和答案大一的vb期末考试题和答案一、选择题1在代码中引用一个控件时,应使用控件的b属性。ACaptionBNameCTextDIndex2设变量x=4,y=-1,a=7,b=-8,下面表达式a的值为“假。Ax+a0ANDyyDx+ya+bANDNOT(yb=cANDa=d的值为。6要使标签的大小自动与所显示的文本相适应,能够通过设置属性为True来实现。7若要在一行书写多条语句,则各语句间应加分隔符,VisualBasic的语句分隔符为。8要强迫显式声明变量,使用_语句完成。9在VB中,用户定义常量使用语句,声明变量使用语句。三、将下列数学表达式转换为VB表达式。6分1a
2、2+2ab+b2_2_38exln10_42sin(450)cos(450)_5_6_四、判定题,正确打“,错误打“10分1在VB中,控件的事件只能通过用户的操作触发。2字符型数据以双引号作为定界符,输出时双引号本身不会显示在屏幕上。3保存工程时,窗体文件和工程文件的文件名不能一样。4改变控件的大小,能够使用鼠标和键盘,还能够通过修改代码。5同一经过中,数组和简单变量能够同名。6VB函数中的参数能够是常量、变量、表达式,还能够是另一个函数。7代码ConstNumber1=15:Number1=10合法。8允许将块If-Then语句构造中的所有语句都写在一行上9定义数组语句Dima(b)AsIn
3、teger是正确的10在经过调用中,“实参表和“形参表中对应的变量名不必一样,但是变量的个数必须相等,而且实际参数的类型必须与相应形式参数的类型相符。五、根据题意,将下列程序补充完好。16分1产生20个10,100之间的随机整数,每行输出10个数据。PrivateSubcommand1_click()Dima(1To20)AsIntegerRandomizei=0DoWhilei10ThenPrinta(i);LoopEndSub2打印九九乘法表PrivateSubcommand1_click()Fori=1To9Forj=1To9PrintNextjPrintEndSub3判定一个数能否素数
4、PrivateSubcommand1_click()x=InputBox(请输入一个整数)flag=1Fori=2To)IfxModi=0Thenflag=0EndIfNextiIfThenPrintx;是素数ElsePrintx;不是素数EndSub4利用数组输出Fibonacci数列的前15项。该数列的第1项和第2项为1,其余各项均为其前两项之和。PrivateSubCommand1_Click()f(1)=1:f(2)=1List1.AddItemf(1):List1.AddItemf(2)Fori=3To15f(i)=)List1.AddItemf(i)Nexti许晋整理源自网络End
5、Sub六、写出下面程序的输出结果。每题3分,共18分1PrivateSubcommand1_click()x=InputBox(enterx)x的输入值为-8SelectCaseSgn(x)+2Case1Printy=;x2+1Case2Printy=;x-4Case3Printy=;x3+100EndSelectEndSub2PrivateSubcommand1_click()Dima,b,c,d,eAsStringa=ZhengZhoub=ZhongYuanGongXueYuanc=a+bd=Left(a,1)+Mid(a,7,1)e=Left(b,1)+Mid(b,12,1)Printc
6、Printd;eEndSub3设有Sub经过:PrivateSubp1(xAsInteger,ByValyAsInteger)x=4:y=5:z=6EndSub则如下程序段的运行结果是:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=2:z=3Printx,y,zCallp1(x,y)Printx,y,zEndSub4PrivateSubcommand1_click()k=0Fori=1To3k=k+1a=i*i*kPrinta;NextiEndSub5PrivateSubcommand1_click()Dima(5,5)AsIn
7、tegerFori=1To5Forj=1To5a(i,j)=i*2+jPrinta(i,j);NextjPrintNextiEndSub6设有Function经过:PrivateFunctionf1(b,a)a=a*a:b=b*bf1=a-bEndFunction则如下程序段的运行结果是什么?PrivateSubcommand1_click()a=4:b=3a=f1(a,b)PrintaEndSub七编程题共30分注意:艺术类学生环艺、装潢、表演、服设做第1、2、5、6小题;其他学生做第1、2、3、4小题。1给出一个百分制的成绩,要求输出成绩的相应等级。7分90分以上为“A,8089分为“B,
8、7079分为“C,6069分为“D,60分下面为“E。2求n!,n由键盘输入。7分3产生20个0,99之间的随机整数,并按从小到大的顺序输出。8分4产生并输出一个66的二维数组A:8分1两条对角线上元素的值为1,其余元素为小于30的随机整数。2计算各行元素的平均值,输出平均值最大和平均值最小的行号。5输出1+2+100的和,并求出1100之间能被17整除的数据的个数8分6从键盘输入10个数,求出其中的最大数,最小数和平均值。8分VB试题答案及评分标准一、单项选择题每题1分,共10分1B2A3C4C5D6D7A8B9D10B二、填空题每空1分,共10分1nMod13=0AndnMod17=01、
9、对象3LEFT(“VisualBasic6.0,6)465False6Autosize7:8OptionExplict9ConstDim三、将下列数学表达式转换成VB表达式每题1分,共6分1、a2+2*a*b+b22、x(1/3)*y(1/4)3、8*exp(x)*log(10)4、2*sin(3.1416/4)*cos(3.1416/4)5、(x+y+z)/sqr(x2+y2+z2)6、log(1+abs(a+b)/(a-b)四、判定题每题1分,共10分12345678910五、根据题意,将下列程序补充完好每空1分,共10分11int(rnd*91)+102I4182753456756789
10、789101191011121311121314156-7七、编写程序1.privatesubcommand1_click()dimxasinteger,gradeasstring1分x=text1.text1分selectcasex4分case90to100grade=Acase80to89grade=Bcase70to79grade=Ccase60to69grade=Dcaseisa(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1To202分Printa(i);NextiEndSub4PrivateSubCommand1_Click()Dima(1To6,1To6)AsInteger1分DimaverAsSingleRandomizeFori=1To63分Forj=1To6Ifi=jOri+j=7Thena(i,j)=1Elsea(i,j)=Int(Rnd*30)EndIfPrinta(i,j);NextjPrintNextiPrintMax=0:Min=304分Fori=1To6s=0Forj=1To6s=s+a(i,j)Nextjaver=s/6IfaverMaxThenMax=aver:row_max=IIfaverMaxThenMax=xIfx