vb期末考試試題

VB期末考試試題一、單項選擇題（共10分）1．在代碼中引用一種控件時，應(yīng)使用控件的（）屬性。A．CaptionB．NameC．TextD．Index2．設(shè)變量x=4，y=-1，a=7，b=-8,下面體現(xiàn)式（）的值為“假”。A．x+a<=b-yB．x>0ANDy<0C．a(chǎn)=bORx>yD．x+y>a+bANDNOT(y<b)3．體現(xiàn)式Int(Rnd*71)+10產(chǎn)生的隨機整數(shù)范圍是（）。A．（10，80）B．（10，81）C．[10，80]D．[10，81]4．函數(shù)Sgn(3.1416)的返回值是（）。A．-1B．0C．1D．以上都不對5．67890屬于（）類型數(shù)據(jù)。A．整型B．單精度浮點數(shù)C．貨幣型D．長整型6．下列變量名中對的的是（）。A．3SB．PrintC．SelectMyNameD．Select_17．下列賦值語句（）是有效的。A．sum=sum-sumB．x+2=x+2C．x+y=sumD．last=y/08．如下的控件或措施具有輸入和輸出雙重功能的為（）。A．PrintB．TextboxC．OptionbuttonD．Checkbox9．若要獲得列表框中被選中的列表項的內(nèi)容，可以通過訪問（）屬性來實現(xiàn)。A．NameB．ListIndexC．ListCountD．Text10．下列代碼的運行成果為（）。PrivateSubcommand1_click()Dimm(10)Fork=1To10m(k)=11-kNextkx=5Printm(2+m(x))EndSubA．2B．3C．4D．5二、填空題（10分）1．寫出整數(shù)n能同步被13和17整除的Basic體現(xiàn)式。2．代碼窗口中有兩個下拉列表框：左側(cè)是列表框，右側(cè)是過程列表框。3．寫出在字符串”VisualBasic6.0”中截取”Visual”的Basic體現(xiàn)式。4．函數(shù)Len(“abcdef”)的返回值是。5．設(shè)a=2，b=5，c=-2，d=100，則a>b>=cANDa<b>=d的值為。6．要使標(biāo)簽的大小自動與所顯示的文本相適應(yīng)，可以通過設(shè)置屬性為True來實現(xiàn)。7．若要在一行書寫多條語句，則各語句間應(yīng)加分隔符，VisualBasic的語句分隔符為。8．要強制顯式申明變量，使用__________語句完畢。9．在VB中，顧客定義常量使用__________語句，申明變量使用__________語句。三、將下列數(shù)學(xué)體現(xiàn)式轉(zhuǎn)換為VB體現(xiàn)式。（6分）1．a(chǎn)2+2ab+b2__________________________2．__________________________3．8exln10__________________________4．2sin(450)cos(450)_______________________________5．___________________________________________6．___________________________________________四、判斷題，對的打“√”，錯誤打“×”（10分）1．在VB中，控件的事件只能通過顧客的操作觸發(fā)。（）2．字符型數(shù)據(jù)以雙引號作為定界符，輸出時雙引號自身不會顯示在屏幕上。（）3．保留工程時，窗體文獻(xiàn)和工程文獻(xiàn)的文獻(xiàn)名不能相似。（）4．變化控件的大小，可以使用鼠標(biāo)和鍵盤，還可以通過修改代碼。（）5．同一過程中，數(shù)組和簡樸變量可以同名。（）6．VB函數(shù)中的參數(shù)可以是常量、變量、體現(xiàn)式，還可以是另一種函數(shù)。（）7．代碼ConstNumber1=15：Number1=10合法。（）8．容許將塊If-Then語句構(gòu)造中的所有語句都寫在一行上（）9．定義數(shù)組語句Dima(b)AsInteger是對的的（）10．在過程調(diào)用中，“實參表”和“形參表”中對應(yīng)的變量名不必相似，不過變量的個數(shù)必須相等，并且實際參數(shù)的類型必須與對應(yīng)形式參數(shù)的類型相符。（）五、根據(jù)題意，將下列程序補充完整。（16分）1．產(chǎn)生20個[10，100]之間的隨機整數(shù)，每行輸出10個數(shù)據(jù)。PrivateSubcommand1_click()Dima(1To20)AsIntegerRandomizei=0DoWhilei<20i=i+1a(i)=()If（）ThenPrinta(i);EndIfIfi=10ThenPrinta(i)Ifi>10ThenPrinta(i);LoopEndSub2．打印九九乘法表PrivateSubcommand1_click()Fori=1To9Forj=1To9Print（）NextjPrint（）EndSub3．判斷一種數(shù)與否素數(shù)PrivateSubcommand1_click()x=InputBox("請輸入一種整數(shù)")flag=1Fori=2To（)IfxModi=0Thenflag=0EndIfNextiIf（）ThenPrintx;"是素數(shù)"ElsePrintx;"不是素數(shù)"EndSub4．運用數(shù)組輸出Fibonacci數(shù)列的前15項。該數(shù)列的第1項和第2項為1，其他各項均為其前兩項之和。PrivateSubCommand1_Click()（）f(1)=1:f(2)=1List1.AddItemf(1):List1.AddItemf(2)Fori=3To15f(i)=（)List1.AddItemf(i)NextiEndSub六、寫出下面程序的輸出成果。（每題3分，共18分）1．PrivateSubcommand1_click()x=InputBox("enterx")'x的輸入值為-8SelectCaseSgn(x)+2Case1Print"y=";x^2+1Case2Print"y=";x-4Case3Print"y=";x^3+100EndSelectEndSub2．PrivateSubcommand1_click()Dima,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;eEndSub3．設(shè)有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,zEndSub4．PrivateSubcommand1_click()k=0Fori=1To3k=k+1a=i*i*kPrinta;NextiEndSub5．PrivateSubcommand1_click()Dima(5,5)AsIntegerFori=1To5Forj=1To5a(i,j)=i*2+jPrinta(i,j);NextjPrintNextiEndSub6．設(shè)有Function過程:PrivateFunctionf1(b,a)a=a*a:b=b*bf1=a-bEndFunction則如下程序段的運行成果是什么？PrivateSubcommand1_click()a=4:b=3a=f1(a,b)PrintaEndSub七．編程題（共30分）注意：藝術(shù)類學(xué)生（環(huán)藝、裝潢、演出、服設(shè)）做第1、2、5、6小題；其他學(xué)生做第1、2、3、4小題。1．給出一種百分制的成績，規(guī)定輸出成績的對應(yīng)等級。（7分）90分以上為“A”，80～89分為“B”，70～79分為“C”，60～69分為“D”，60分如下為“E”。2．求n!,n由鍵盤輸入。（7分）3．產(chǎn)生20個[0，99]之間的隨機整數(shù)，并按從小到大的次序輸出。（8分）4．產(chǎn)生并輸出一種6×6的二維數(shù)組A：（8分）（1）兩條對角線上元素的值為1，其他元素為不不小于30的隨機整數(shù)。（2）計算各行元素的平均值，輸出平均值最大和平均值最小的行號。5．輸出1+2+……+100的和，并求出1～100之間能被17整除的數(shù)據(jù)的個數(shù)（8分）6．從鍵盤輸入10個數(shù)，求出其中的最大數(shù)，最小數(shù)和平均值。（8分）VB試題答案及評分原則一、單項選擇題（每題1分，共10分）1．B2．A3．C4．C5．D6．D7．A8．B9．D10．B二、填空題（每空1分，共10分）1．nMod13=0AndnMod17=01、對象3．LEFT(“VisualBasic6.0”,6)4．65．False6．Autosize7．：8．OptionExplict9．ConstDim三、將下列數(shù)學(xué)體現(xiàn)式轉(zhuǎn)換成VB體現(xiàn)式（每題1分，共6分）1、a^2+2*a*b+b^22、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(x^2+y^2+z^2)6、log(1+abs((a+b)/(a-b)))四、判斷題（每題1分，共10分）1．×2．√3．×4．√5．×6．√7．×8．×9．×10．√五、根據(jù)題意，將下列程序補充完整（每空1分，共10分）1．（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)六、寫出下面程序的輸出成果（每題4分，共24分）1、y=652、ZhengZhouZhongYuanGongXueYuan2分ZZZG2分3．1234234．18275．3456756789789101191011121311121314156．-7七、編寫程序1.privatesubcommand1_click()dimxasinteger,gradeasstring1分x=text1.text1分selectcasex4分case90to100grade=”A”case80to89grade=”B”case70to79grade=”C”case60to69grade=”D”caseis<60grade=”E”caseelsemsgbox“請重新輸入”endselectprint“該學(xué)生成績?yōu)椤?grade1分endsub2．PrivateSubcommand1_click()Dimnasinteger,faslong1分n=text1.text1分f=1forI=1ton3分f=f*InextItext2.text=f2分endsub3．PrivateSubCommand1_Click()Dima(1To20)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)=tEndIfNextjNextiFori=1To202分Printa(i);NextiEndSub4．PrivateSubCommand1_Click()Dima(1To6,1To6)AsInteger'1分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)N