VB期末考試試題

VB期末考試試題（A卷）一、選擇題要改變控件的寬度，應(yīng)修改該控件的（B）屬性。A、TOPB、widthC、LeftD、Height將命令按鈕Command役置為不可見，應(yīng)修改該命令按鈕的（A）屬性。A、VisibleB、ValueC、CaptionD、Enabled單機(jī)滾動(dòng)條兩端的任何一個(gè)滾動(dòng)箭頭，將觸發(fā)該滾動(dòng)條的（C）事件。A、ScrollB、KeyDownC、changeD、Dragver（D）對(duì)象具有 clear方法。A、圖片框B、窗體C、復(fù)選框D、列表框中心定義圖片框控件的坐標(biāo)系統(tǒng)，可采用該圖片框的（A）A、scaleB、ScaleXC、scaleYD、setFocus將通過對(duì)話框CommdDialogl的類型設(shè)置成另存為對(duì)話框，可調(diào)用該控件的（B）方法。A、ShowopenB、ShowsaveC、ShowColorD、ShowFont形狀控件所顯示的圖形不可能是（D）A、圓B、橢圓C、圓角正方形 D、等邊三角形由FroK=10TOoslept3 ：nextK循環(huán)語句控件的循環(huán)次數(shù)是（B）A、12B、0C、-11D、-10下列數(shù)據(jù)類型中，占用內(nèi)存最大值是（D）A、BoolwanB、ByteC、LntegerD、Single如果在圖片框上使用繪圖方法繪制一個(gè)實(shí)心圓，則圖片框的（C）屬性決定了該圖片的顏色。A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、選擇題.要在垂直位置上移動(dòng)控件，應(yīng)利用控件的（C）屬性。A、LeftB、WidthC、TopD、Height.要在文本框中的文本顯示掩碼（密碼）符，在屬性設(shè)置時(shí)，首先必須設(shè)置（D）屬性為False。A、TxetB、EnabledC、VisibleD、Multline.用鍵盤的光標(biāo)鍵選中某一菜單項(xiàng)，并按回車觸發(fā)菜單的(C)的事件。AKeyPressB、KeyDownC、ClickD、Keyllp.一下(D)對(duì)象不具有Clear方法。A、列表框B、組合框C、剪貼框D、圖片框.軟件列表中設(shè)定“文件列表”顯示文件類型應(yīng)改該控件的(D)屬性。APathB、FileNameC、NameD、Patterw.組合框有三種風(fēng)格，它們由Style屬性所決定，其中為簡單組合框時(shí)，Style屬性值應(yīng)為(B)A0B、1C、2D、3.下列可調(diào)整圖片框的大小以適合圖片的屬性是( B)AStretchB、autosizeC、pictureD、oledropmode.要想清除文本框中的內(nèi)容則可利用( A)進(jìn)行。ACaptionB、TextC、ClearD、Cls.下列表達(dá)式中，其值為0的是(C)A7/9B、7mod15C、7\9D、15mod9.求以10為底X的常用對(duì)數(shù)的表達(dá)式為(A)ALoG(X)/LoG(10)B、LN(X)C、LoG(X)/LoG(E)D、LoG(X)二、填空題(每空2分，共20分).代數(shù)式的VisualBasic 表達(dá)式是sqr((xA3+exp(-6)*log(y))*atn(a*180)/(x*x+y*y)).設(shè)x=2,y=4,a=4,b=6,表達(dá)式(a>xXorb<x)ORx<yIMPy<b的結(jié)果為True。.a和b中有僅只有一個(gè)不為 1,相應(yīng)的VisualBasic邏輯表達(dá)式為a<>1xorb<>1。.把條件為1￡x￡5寫成VB表達(dá)式為：x>=1andx<=5。.語句Line(1000,1000)-Step(2000,1500),vbRed,BF的含義是：在窗體上繪制以角點(diǎn)為(2000,2000)和(4000,3500)的紅色實(shí)心的矩形。.用隨機(jī)函數(shù)產(chǎn)生10個(gè)100?500的整數(shù)，其表達(dá)可為：forI=1to10a(i)=100+int(400*rnd)nextI。.當(dāng)x=2時(shí)，語句ifx=2thenPrintx=2的結(jié)果值是True。.StaticPrivateSubcmdSum_Click()DimSumasintegerSum=2*Sum+1EndSub問：第三次單擊命令按鈕 cmdSumt,Sum的值為：乙.聲明單精度常量g(重力加速度)代表9.8可寫成^nstg=。.欲使在自己設(shè)計(jì)VB程序運(yùn)行過程中，不中止本程序的運(yùn)行，同時(shí)又可調(diào)用系統(tǒng)中已有的應(yīng)用程序 c:\windows\,可在程序代碼窗口必要的地方添加語句：shell(“c: ")。三、編程題1隨機(jī)產(chǎn)生n個(gè)兩位正整數(shù)(n由對(duì)話框輸入，切n>0)o求由其中的偶數(shù)之和，并在標(biāo)簽框 Labol1上顯示。程序?qū)懺诿畎粹oCommand的click事件中。PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,sumAsLongn=Val(InputBox("Pleaseinputainteger","InputNvalue"))Fori=1Tonrnddat=(10+Int(90*Rnd))IfrnddatMod2=0Thensum=sum+rnddatEndIfNexti=sumEndSub2由輸入對(duì)話框中輸入100個(gè)數(shù)值數(shù)據(jù)，放入數(shù)組a,將其中的整數(shù)放入數(shù)組b,然后運(yùn)用選擇分類將數(shù)組b中的數(shù)據(jù)按從大到小的順序排列，并以每行 5個(gè)數(shù)據(jù)在窗體上輸出。注：程序?qū)懺诖绑w form的click事件上。PrivateSubForm_Click()Dima(1To100)Dimb()asintegerDimiAsInteger,jAsInteger,kAsInteger,posAsInteger,tempasintegerFori=1To100a(i)=Val(InputBox("Pleaseinputdata"))Ifa(i)=Int(a(i))Thenj=j+1ReDimPreserveb(j)b(j)=a(i)EndIfNextiFork=1Toj-1pos=kForm=kTojIfb(m)<b(pos)Thenpos=mNextmIfk<>posThentemp=b(k)b(k)=b(pos)b(pos)=tempEndIfNextkFork=1TojIfkMod5=0ThenPrintb(k)ElsePrintb(k);NextkEndSub四、程序閱讀題(每小題 6分，共18分)1．程序1：DimYAsIntegerPrivateStubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger)Y=Z+XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction結(jié)果：(222 )2．程序 2：privatesubForm_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é)果：(10427831112)3．程序 3：PrivateSubForm_click()Dimf1AsInteger,f2AsInteger,f3AsIntegerOpen"c:\"ForOutputAs#1f1=2:f2=3Print#1,"NO.";3,f1Print#1,"NO.";4,f2ForI=5To7f3=f1+f2Print#1,"NO.";I,f3f1=f2f2=f3NextIClose#1EndSub寫出文件的最終結(jié)果。(235813 )五、程序填空題(每小題9分，共18分)1.從計(jì)算機(jī)輸入三個(gè)數(shù),找出中間數(shù)PrivateSubFindMidNum()X=INPUTBOX“(PLEASEINPUTTHEFIRSTNUMB”)ERY=INPUTBOX“（PLEASEINPUTTHESECONDNUMBER）Z=INPUTBOX“（PLESSEINPUTTHETHIRDNUMBER）IF（X<Y）THENA=XX=YY=AENDIFIF（Y>=Z）THENPRINTYELSEIF（X>=Z）THENPRINTZELSEPRINTXENDIFEndSub2.打印以下楊輝三角形 11112113311464115101051DimQ()AsIntegerN=InputBox("PLEASEINPUTN")ReDimQ(N,N)ForI=1ToNForJ=1ToNQ(I,J)= (0)NextJNextIForK=0To(N-1)Q(K+1,1)=1Print1;ForI=1ToKQ(K+1,I+1)= (Q(K,I+1) )+Q(K,I)Print(Q(K+1,I+1) )NextIPrintNextKVB期末考試試題(B卷).下列代數(shù)式的VisualBasic表達(dá)式是( )。二、填空.設(shè)x為大于零的實(shí)數(shù)，則大于x的最小奇數(shù)的VisualBasic表達(dá)式是IIF(int(x)mod2=0,int(x)+2,int(x)+1)。.a1和a2之中有且只有一個(gè)與a3的值相等，相應(yīng)的VisualBasic邏輯表達(dá)式是: a1=a3xora2=a3。若a1和a2之中沒有一個(gè)與a3的值相等，則相應(yīng)的表達(dá)式是： a1<>a3anda20a3 。.設(shè)init的初值為10,則由下列循環(huán)語句控制的循環(huán)次數(shù)是__6。DoWhileinit>=5init=init-1Loop.在VisualBasic中，變量從它的作用范圍來看，可分為_全局變量、模塊級(jí)變量和過程級(jí)變量三不中。.語句(800,1000),500 的含義是—以圓心為(800,1000)半徑為500的圓。.聲明定長為10個(gè)字符變量Sstr的語句為：DimSstrasString*10。三、程序閱讀題，閱讀下列程序書寫結(jié)構(gòu)。程序1PrivateStaticSubCommand1_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("請輸入一個(gè)正整數(shù)="))Ifx<5Thens=s*xElses=s+xEndIf="s="+Str(s)EndSub程序運(yùn)行時(shí)連續(xù)三次單擊 Command1且設(shè)輸入的數(shù)是5,2和4時(shí)，分別寫由文本框的值。結(jié)果：(s=5s=10s=40程序2PrivateSubForm_Click()w=3Fork=2To6Step2"w=";w,"k=";kw=w+1Nextk"w=";w,"k=";kEndSub寫生程序運(yùn)行時(shí)單擊窗體后， Form1上輸生結(jié)果。結(jié)果為：(w=3k=2W=4k=4W=5k=6W=6k=8 )程序3Rem在窗體的通用聲明區(qū)聲明兩個(gè)模塊級(jí)變量 a和yDimaAsInteger,yAsIntegerPrivateSubForm_Load()Open"c:\"ForOutputAs#1Close#1EndSubPrivateSubCommand1_Click()Open"c:\"ForAppendAs#1Callaa(5)y=y+aPrint#1,"y=";y,"a=";a:Close#1EndSubSubaa(iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSub寫生程序運(yùn)行時(shí)連續(xù)三次單擊 Command后，文件的最終結(jié)果為：(y=5a=5y=15a=10y=30a=15 )五、程序填空題(每小題9分，共18分)a)程序說明:利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表， 如圖1所示。單擊“開始”命令按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束“命令按鈕，秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間， 如“運(yùn)行了0小時(shí)2分10秒(假設(shè)對(duì)象的屬性都在程序代碼中設(shè)定)。DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()="動(dòng)態(tài)秒表(小時(shí)：分：秒)"="開始[&S]”="結(jié)束[&E]”=2'居中對(duì)齊="0:0:0"=__1000______=Falsex=0E