VB程序設(shè)計(jì)試卷十

VB程序設(shè)計(jì)試卷十《VB程序設(shè)計(jì)》試卷十學(xué)號＿＿＿＿姓名＿＿＿＿得分＿＿＿＿一、單選題（每小題1分，共10分）1.以下關(guān)于vb語言的說法中，正確的是（1）a．vb是一種面向過程的語言b.vb是一種面向?qū)ο笳Z言c.vb是一種低級語言d.vb是一種機(jī)器語言2.下列的邏輯表達(dá)式中不正確的是(2)a.Ab.X<y<z<p="">c.1>2AND3>1d.X>YAND1=23.vb中的坐標(biāo)系最小刻度為(3)a.緹b.象素c.厘米d.一個(gè)標(biāo)準(zhǔn)字符寬度4.運(yùn)行下面的程序:CLSLINE(100,100)-(200,50)LINE-(150,150)LINE-(100,100)屏幕上顯示的是(4).a.三條放射形直線b.四條放射形直線c.矩形d.三角形5.在中斷狀態(tài)下可以運(yùn)行代碼，也可以在運(yùn)行狀態(tài)中作為輸出結(jié)果的窗口稱為（5）A．本地窗口B.立即窗口C．觀察窗口D.棧窗口6．欲使標(biāo)簽的內(nèi)容自動(dòng)換行，必須設(shè)置屬性（6）。A．AutoSizeB.AlignmentC.leftD.WordWrap7.當(dāng)用戶改變滾動(dòng)條的value屬性時(shí)將激發(fā)滾動(dòng)條的(7)事件a.changeb.scrollc.change和scrolld.gotfocus8.vb應(yīng)用程序是分層管理的,其最高的層次為(8)a.工程b.類模塊c.窗體d.過程9.下列（9）是窗體的擴(kuò)展名a.frmb.basc.clsd.dll10．能改變當(dāng)前磁盤驅(qū)動(dòng)器的是下列的哪個(gè)命令？（10）A.ChDirB.ChDriveC.CloseD.CurDir$二、判斷題：（每小題1分，共10分）1．MsgBox()函數(shù)建立的消息框能顯示信息也能輸入信息。（11）2．對象的屬性或事件過程都可以重新設(shè)置或修改，但是“方法”的內(nèi)容卻是固定、不能修改的，而且是看不見的。（12）3．在VisualBasic中Dima,b,casinteger和Dimaasinteger,basinteger,casinteger相同。（13）4．當(dāng)需要在同一窗體中建立幾組相互獨(dú)立的單選鈕時(shí)，就要用框架將每一組單選鈕框起來。(14)5．ActiveX控件是擴(kuò)展名為*.ocx的獨(dú)立文件，使用時(shí)需用“工程”/“部件”載入或移去。（15）6．由變量名對變量的內(nèi)容進(jìn)行使用或修改，則使用變量就是引用變量的內(nèi)容。(16)7．可以用“&”，“+”合并字符串，但是用在變異變量時(shí)，“+”可能會(huì)將兩個(gè)數(shù)值加起來。（17）8．在命令按鈕的Click事件過程中，exit與end等效。（18）9．“菜單編輯器”中至少要填“名稱”和“標(biāo)題”這兩個(gè)框，才能真確完成菜單欄的設(shè)計(jì)。（19）10．所有的對象都有caption屬性。(20)三、填空題（每空2分，共20分）1．變量min&表示___（21）_____類型的變量。2．VB表達(dá)式log(x)+1/(1+exp(a*x-b))對應(yīng)的數(shù)學(xué)表達(dá)式為______（22）______3．X=2：Y=8：PRINTX+Y=10的結(jié)果是_______（23）_______________4．如果：I=12：J=3：I=int(-8.6)+I\J+13/3MOD5，則I值是______（24）___________5．請寫出滿足以下條件的VB表達(dá)式：若a,b,c是三角形的三邊，判斷是否為直角三角形______（25）____。X為[100-200]之間的數(shù)，能被2整除，但不能被5整除___（26）_____。6．VisualBasic中的文本框中要使該框不允許多行輸入，應(yīng)設(shè)置（27）屬性為false.7．聲明單精度常量PI代表3.14159的語句為（28）。8．Val("123.55ab456")的值是多少___（29）9．OptionBase1的作用是確定數(shù)組的下界為（30）四、程序閱讀題：（每小題6分，共18分）1．程序1：PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimstarAsStringstar="#"Fori=1To6Forj=iTo6Form1.Printstar；NextjForm1.PrintNextiEndSub寫出程序運(yùn)行后，單擊窗體后，F(xiàn)orm1上輸出結(jié)果為（31）。2．程序2PrivateSubForm_Click()DimxAsStringDimiAsInteger,nAsIntegerForm1.Clsx="ABCDEFGHKL"n=Len(x)Fori=nTo1Step-2Form1.PrintTab(20-i);Mid(x,i,1)NextiEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。(32)3.程序3：PrivateSubCommand1_Click()N=3DimA(3，3)AsIntegerForI=IToNForJ=IToNA(I,J)=(J–l)*N+INextJNextIForI=2ToNForJ=1ToI–1TEMP=A(I,J)A(I,J)=A(J,I)A(J,I)=TEMPNextJNextIForX=1ToNPrintX,A(X,N–X+I),A(X,X)NextXEndSub結(jié)果：（33）五、程序填空題：（每小題9分，共18分）1、下列程序進(jìn)行-n階乘運(yùn)算，當(dāng)階乘的值超過-21147483648溢出報(bào)錯(cuò)，并將結(jié)果輸出為-1。Privatebjc(byvalnasinteger)_____(34)_____DimIasintegerDimresultaslongresult=1I=1Dowhile_______(35)___________If_______(36)___________thenResult=result*IElselblerr.caption=”溢出“________(37)________________(38)________EndifLoop___________(39)_________________Endfunction2、以下程序?yàn)榍笮辛惺絏（5，5）的值SPrivateFunctioncol(byvalx(5,5)asinteger)aslongdimfesultaslongdimtempaslongdimIasintegerdimjasintegerdimkasintegerresult=0forI=to5______(40)_______forj=1to5ifI+j>6thenk=(1+j)mod5elsek=1endiftemp=temp*x(k,j)_____(41)_________result=_____(42)_________(43)____________(44)_________Endfuncion六、綜合編程：（每小題12分，共24分）1、字符組合：程序界面如圖示，在文本框Text1中輸入若干個(gè)任意字符，單擊“顛倒”按鈕，將這些字符按相反的順序顯示在標(biāo)簽Lable1中。例如：輸入abcabc2：顯示為2cbabc2的組成字符數(shù)為4。試編寫有關(guān)事件的程序代碼。2．求解一元二次方程的實(shí)根?！禫B程序設(shè)計(jì)》試卷十一、選擇題：1．B2．B3．A4．D5．B6．D7．A8．A9．A10.B二、判斷題：11.F12.T13.F14.T15T16.T17.T18.F19.T20.F三、填空題：21．長整型22.baxex-++11ln23.True24.-125.a*a+b*b=c*cora*a+c*c=b*bora*a=b*b+c*c26.x>=100andx<=200andxmod2=0andxmod5<>027.MultiLine28.constpi=3.1415929.123.5530.1四、程序閱讀題：31．32.LHFDB33.131255379五、程序填空題：34:aslong35:I<=n36:result<2114748348/I37:jc=-I/result=-138:cxitfunction/exitfor39:jc=result40:temp=141:nextI42:result+temp43:nextI44:col=result六、綜合編程：1．PrivateSubcmdshow_Click()DimnAsIntegerDimIAsIntegerDimstr1AsStringN=Len(Text1.Text)ForI=nToStep-1Str1=Str1&Mid$(Text1.Text,I,1)NextILabel1.Caption=Str1EndSubPrivateSubcmdcount_Click()DimnAsIntegerDimmAsIntegerDimiAsIntegerDimjAsIntegerDimflagAsIntegerDimstr1AsIntegerDimstr2AsIntegerN=Len(Text1.Text)Str1=Mid$(Text1.Text,i.1)ForI=2TonStr2=mid$(Text1,Text,I,1)M=Len(str1)Flag=0Forj=1TomIfstr2=Mid$(str1,j,1)Thenflag=1;ExitForNextjIfflag<>1thenstr1=str1&str2NextILable2.Caption=Str$(Len(str1))EndSub2．程序如下：PrivateSubForm_Load()Dima,b,c,root1,root2,workAsDoubleA=Val(InputBox(“請輸入系數(shù)a的值”