vb程序设计期末考试题和答案

许晋整理源自网络大一的vb期末考试题和答案1．在代码中引用一个控件时，应使用控件的(b)属性。ACaptionBNameCTextD．Index2．设变量x=4，y=-1，a=7，b=-8,下面表达式(a)的值为“假”。A．x+a<=b-yB．x>0ANDy<0C．a=bORx>yD．x+y>a+bANDNOT(y<b)3．表达式Int(Rnd*71)+10产生的随机整数范围是(c)。4．函数Sgn(3.1416)的返回值是(c)。A．-1B．0C．1D．以上都不对5．67890属于(d)类型数据。A．整型B．单精度浮点数C．货币型D．长整型6．下列变量名中正确的是(d)。A．3SB．PrintC．SelectMyNameD．Select_17．下列赋值语句(a)是有效的。A．sum=sum-sumB．x+2=x+2C．x+y=sumD．last=y/08．以下的控件或方法具有输入和输出双重功能的为(b)。A．PrintB．TextboxC．OptionbuttonD．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问(d)属性来实现。A．NameB．ListIndexC．ListCountD．Text10．下列代码的运行结果为(b)。PrivateSubcommand1_click()Dimm(10)Fork=1To10m(k)=11-kNextkx=5Printm(2+m(x))EndSub二、填空题(10分)1．写出整数n能同时被13和17整除的Basic表达式nMod13=0AndnMod17=0。2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。4．函数Len(“abcdef”)的返回值是。abc-2，d=100，则a>b>=cANDa<b>=d的值为。6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True8．要强制显式声明变量，使用__________语句完成。9．在VB中，用户定义常量使用语句，声明变量使用语句。1．a2+2ab+b2_____________________________3．8exln10__________________________4．2sin(450)cos(450)_______________________________5．___________________________________________6．___________________________________________2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。()共6页第1页4/26/20225:54:50PM 理源自网络3．保存工程时，窗体文件和工程文件的文件名不能相同。()4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。()变量可以同名。()VB)8．允许将块If-Then语句结构中的所有语句都写在一行上()9．定义数组语句Dima(b)AsInteger是正确的()参表”中对应的变量名不必相同，但是变量的个数必须相等，而且的类型相符。()PrivateSubcommand1_click()Dima(1To20)AsIntegerRandomizeDoWhilei<20a(i)=()If()ThenPrinta(i);EndIfIfi=10ThenPrinta(i)Ifi>10ThenPrinta(i);oopEndSub2．打印九九乘法表PrivateSubcommand1_click()Fori=1To9Forj=1To9Print()NextjPrint()EndSub3．判断一个数是否素数PrivateSubcommand1_click()x=InputBox("请输入一个整数")flag=1Fori=2To()IfxModi=0Thenflag=0EndIfNextiIf()ThenPrintx;"是素数"ElsePrintx;"不是素数"EndSubPrivateSubCommand1_Click()()f(1)=1:f(2)=1List1.AddItemf(1):List1.AddItemf(2)Fori=3To15f(i)=()List1.AddItemf(i)Nexti共6页第2页4/26/20225:54:50PM共6页第3页4/26/20225:54:50PM 源自网络EndSubx=InputBox("enterx")'x的输入值为-8SelectCaseSgn(x)+2Case1Print"y=";x^2+1Case2Print"y=";x-4Case3Print"y=";x^3+100EndSelectEndSubDima,b,c,d,eAsStringa="ZhengZhou"b="ZhongYuanGongXueYuan"c=a+""+bd=Left(a,1)+Mid(a,7,1)e=Left(b,1)+Mid(b,12,1)PrintcPrintd;eEndSubPrivateSubp1(xAsInteger,ByValyAsInteger)x=4：y=5：z=6EndSub则如下程序段的运行结果是:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=2:z=3Printx,y,zCallp1(x,y)Printx,y,zEndSubk=0Fori=1To3k=k+1a=i*i*kPrinta;NextiEndSubDima(5,5)AsIntegerFori=1To5Forj=1To5a(i,j)=i*2+jPrinta(i,j);NextjPrintNextiEndSub共6页第4页4/26/20225:54:50PM 源自网络PrivateFunctionf1(b,a)a=a*a:b=b*bf1=a-bEndFunctionPrivateSubcommand1_click()a=4:b=3a=f1(a,b)PrintaEndSub七．编程题(共30分)注意：艺术类学生(环艺、装潢、表演、服设)做第1、2、5、6小题；(1)两条对角线上元素的值为1，其余元素为小于30的随机整数。(2)计算各行元素的平均值，输出平均值最大和平均值最小的行号。5．输出1+2+……+100的和，并求出1~100之间能被17整除的数据的个数(8分)VB6．D3．C8．B4．C9．D5．D1．nMod13=0AndnMod17=03．LEFT(“VisualBasic6.0”,6)4．65．False6．Autosize1．(1)int(rnd*91)+10(2)I<102．(1)i*j(2)nexti3．(1)int(sqr(x))或者x-1(2)flag=14．(1)dimf(15)asinteger(2)f(I-1)+f(I-2)2、ZhengZhouZhongYuanGongXueYuan2分ZZZG2分423共6页第5页4/26/20225:54:50PM 源自网络4．182756789789101191011121311121314156．-71.privatesubcommand1_click()dimxasinteger,gradeasstring1分x=text1.text1分selectcasex4分case90to100grade=”A”case80to89grade=”B”case70to79grade=”C”case60to69grade=”D”caseis<60grade=”E”caseelsemsgbox“请重新输入”endselecteendsub2．PrivateSubcommand1_click()sintegerfaslong1分3分2分n1分3分2分forI=1tonf=f*InextItext2.text=fendsubDima1To20)AsInteger'1分RandomizeFori=1To202分a(i)=Int(Rnd*100)Printa(i);NextPrintFori=1To193分Forj=i+1To20Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiForiFori=1To20Printa(i);NextiEndSub共6页第6页4/26/20225:54:50PM 源自网络Dima(1To6,1To6)AsInteger'1分DimaverAsSingleRandomizeFori=1To63分Forj=1To6Ifi=jOri+j=7Thena(i,j)=1ea(i,j)=Int(Rnd*30)EndIfPrinta(i,j);NextjPrintNextiPrintMax=0:Min=304分Fori=1To6s=0Forj=1To6s=s+a(i,j)Nextjaver=s/6Ifaver>MaxThenMax=aver:row_max=IIfaver<MinThenMin=aver:row_min=iNextiPrintrow_max,row_minEndSubDimiAsInteger,cAsIntegerDimsAsIntegerFori=1To1004分s=s+iIfiMod17=0Thenc=c+1NextiPrint"1+2+...+100=";s2分EndSubDimxAsIntegerx=Input