VB期末考試試題(AB卷)

一、選擇題VB期末考試一試題(A卷）1.要改變控件的寬度，應(yīng)改正該控件的（B)屬性.A、TOPB、widthC、LeftD、Height2。將命令按鈕Command1設(shè)置為不行見(jiàn)，應(yīng)改正該命令按鈕的(A）屬性。A、VisibleB、ValueC、CaptionD、Enabled3。單機(jī)轉(zhuǎn)動(dòng)條兩頭的任何一個(gè)轉(zhuǎn)動(dòng)箭頭，將觸發(fā)該轉(zhuǎn)動(dòng)條的（C)事件.A、ScrollB、KeyDownC、changeD、Dragver4。（D)對(duì)象擁有clear方法。A、圖片框B、窗體C、復(fù)選框D、列表框5。中心定義圖片框控件的坐標(biāo)系統(tǒng)，可采納該圖片框的(A)形狀控件所顯示的圖形不行能是（D）A、圓B、橢圓C、圓角正方形D、等邊三角形8。由FroK=10TOoslept3：nextK循環(huán)語(yǔ)句控件的循環(huán)次數(shù)是(B）A、12B、0C、—11D、—109。以下數(shù)據(jù)種類(lèi)中，占用內(nèi)存最大值是（D）A、BoolwanB、ByteC、LntegerD、Single假如在圖片框上使用畫(huà)圖方法繪制一個(gè)實(shí)心圓,則圖片框的（C）屬性決定了該圖片的顏色。A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、選擇題1。要在垂直地點(diǎn)上挪動(dòng)控件，應(yīng)利用控件的（C）屬性。A、LeftB、WidthC、TopD、Height2。要在文本框中的文本顯示掩碼（密碼)符，在屬性設(shè)置時(shí)，第一一定設(shè)置（D）屬性為False。A、TxetB、EnabledC、VisibleD、Multline3。用鍵盤(pán)的光標(biāo)鍵選中某一菜單項(xiàng)，并按回車(chē)觸發(fā)菜單的(C）的事件。A、KeyPressB、KeyDownC、ClickD、Keyllp4。一下（D）對(duì)象不擁有Clear方法。A、列表框B、組合框C、剪貼框D、圖片框5。軟件列表中設(shè)定“文件列表"顯示文件種類(lèi)應(yīng)改該控件的（D)屬性。A、PathB、FileNameC、NameD、Patterw6．組合框有三種風(fēng)格,它們由Style屬性所決定，此中為簡(jiǎn)單組合框時(shí)，Style屬性值應(yīng)為（B）A、0B、1C、2D、37。以下可調(diào)整圖片框的大小以合適圖片的屬性是（B）A、StretchB、autosizeC、pictureD、oledropmode8。要想消除文本框中的內(nèi)容則可利用（A）進(jìn)行。A、CaptionB、TextC、ClearD、Cls以下表達(dá)式中，其值為0的是（C）A、7/9B、7mod15C、7\9D、15mod910。求以10為底X的常用對(duì)數(shù)的表達(dá)式為（A)A、LoG（X）/LoG（10）B、LN（X）C、LoG（X）/LoG(E)D、LoG(X）二、填空題（每空2分，共20分）1．代數(shù)式的VisualBasic表達(dá)式是sqr（（x^3+exp(-6）＊log（y）)*atn（a＊3.14159/180）/（x＊x+y*y））2。設(shè)x=2,y=4，a=4,b=6,表達(dá)式（a>xXorb〈x）ORx〈yIMPy<b的結(jié)果為T(mén)rue。3．a(chǎn)和b中有僅只有一個(gè)不為1，相應(yīng)的VisualBasic邏輯表達(dá)式為a<>1xorb〈〉1。4．把條件為1￡x￡5寫(xiě)成VB表達(dá)式為：x〉=1andx〈=5。5。語(yǔ)句Line(1000,1000)—Step(2000，1500），vbRed,BF的含義是：在窗體上繪制以角點(diǎn)為(2000，2000）和（4000，3500)的紅色實(shí)心的矩形。6．用隨機(jī)函數(shù)產(chǎn)生10個(gè)100～500的整數(shù),其表達(dá)可為：forI=1to10a(i）=100+int(400*rnd）nextI.7．當(dāng)x=2時(shí)，語(yǔ)句ifx=2thenPrintx=2的結(jié)果值是True。8.StaticPrivateSubcmdSum_Click（)DimSumasintegerSum=2＊Sum+1問(wèn)：第三次單擊命令按鈕cmdSum后,Sum的值為:7。9．申明單精度常量g(重力加快度)代表9．8可寫(xiě)成：constg=9。8。10．欲使在自己設(shè)計(jì)VB程序運(yùn)轉(zhuǎn)過(guò)程中，不中斷本程序的運(yùn)轉(zhuǎn)，同時(shí)又可調(diào)用系統(tǒng)中已有的應(yīng)用程序c：\windows\notepad。exe，可在程序代碼窗口必需的地方增添語(yǔ)句：shell(“c:notepad.exe”).三、編程題1隨機(jī)產(chǎn)生n個(gè)兩位正整數(shù)（n由對(duì)話框輸入，切n〉0).求出此中的偶數(shù)之和，并在標(biāo)簽框Labol1上顯示.程序?qū)懺诿畎粹oCommand1的click事件中。PrivateSubCommand1_Click（)DimnAsIntegerDimiAsInteger,sumAsLongn=Val(InputBox("Pleaseinputainteger"，"InputNvalue”)）Fori=1Tonrnddat=（10+Int(90＊Rnd））IfrnddatMod2=0Thensum=sum+rnddatEndIfNextiLabel1.Caption=sumEndSub2由輸入對(duì)話框中輸入100個(gè)數(shù)值數(shù)據(jù)，放入數(shù)組a，將此中的整數(shù)放入數(shù)組b，而后運(yùn)用選擇分類(lèi)將數(shù)組b中的數(shù)據(jù)按從大到小的次序擺列，并以每行5個(gè)數(shù)據(jù)在窗體上輸出。注：程序?qū)懺诖绑wform的click事件上。PrivateSubForm_Click（)Dima（1To100)Dimb（）asintegerDimiAsInteger,jAsInteger,kAsInteger,posAsInteger,tempasintegerFori=1To100a(i)=Val（InputBox(”P(pán)leaseinputdata”）)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）（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果:(222）2．程序2：

結(jié)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é)果:（1042783．程序3：31112）PrivateSubForm_click()Dimf1AsInteger,f2AsInteger，f3AsIntegerOpen”c：\a1.dat"ForOutputAs＃1f1=2:f2=3Print#1,"NO."；3,f1Print＃1,"NO.";4，f2ForI=5To7f3=f1+f2Print＃1,”NO.”；I,f3f1=f2f2=f3NextIClose#1EndSub寫(xiě)出文件a1。datNO。3

的最后結(jié)果。2

（NO

。4

3NO.5NO5。68NO。713）五、程序填空題（每題9分,共18分）1.從計(jì)算機(jī)輸入三個(gè)數(shù)，找出中間數(shù)PrivateSubFindMidNum（）X=INPUTBOX(“PLEASEINPUTTHEFIRSTNUMBER”)Y=INPUTBOX(“PLEASEINPUTTHESECONDNUMBER)Z=INPUTBOX（“PLESSEINPUTTHETHIRDNUMBER）IF（X<Y）THENA=XX=YY=AENDIFIF（Y〉=Z)THENPRINTYELSEIF(X〉=Z）THENPRINTZELSEPRINTXENDIF2。EndSub打印以下楊輝三角1形1112113311464115101051DimQ（)AsIntegerN=InputBox（”P(pán)LEASEINPUTN"）ReDimQ(N,N)ForI=1ToNForJ=1ToNQ（I,J)=（0）NextJNextIForK=0To(N–1）Q（K+1,1）=1Print1；ForI=1ToK1)）+Q(K,I)Q(K+1,I+1）=（Q(K，I+Print（Q（K+1，I+1)）NextIPrintNextK1（

VB期末考試一試題．以下代數(shù)式的Visual）.

(B卷)Basic

表達(dá)式是二、填空2．設(shè)x為大于零的實(shí)數(shù),則大于x的最小奇數(shù)的VisualBasic表達(dá)式是_IIF（int(x）mod2=0,int(x)+2,int（x）+1）。3．a(chǎn)1和a2之中有且只有一個(gè)與a3的值相等，相應(yīng)的VisualBasic邏輯表達(dá)式是：__a1=a3xora2=a3。若a1和a2之中沒(méi)有一個(gè)與a3的值相等,則相應(yīng)的表達(dá)式是:__a1<〉a3anda2<>a3___.4．設(shè)init的初值為10,則由以下循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是__6__。DoWhileinit>=5init=init—1Loop在VisualBasic中,變量從它的作用范圍來(lái)看，可分為_(kāi)全局變量___、模塊級(jí)變量_____和___過(guò)程級(jí)變量__三種。6．語(yǔ)句Picture1.Circle（800,1000），500的含義是_以圓心為（800,1000）半徑為500的圓_。7．申明定長(zhǎng)為10個(gè)字符變量Sstr的語(yǔ)句為：_DimSstrasString*10_。三、程序閱讀題，閱讀以下程序書(shū)寫(xiě)構(gòu)造。程序1PrivateStaticSubCommand1_Click（)DimxAsInteger，sAsIntegerx=Val(InputBox(”請(qǐng)輸入一個(gè)正整數(shù)＝”))Ifx<5Thens=s*xElses=s+xEndIfText1.Text=”s="+Str(s）EndSubCommand1，且設(shè)輸入的數(shù)是程序運(yùn)轉(zhuǎn)時(shí)連續(xù)三次單擊5,2和4時(shí)，分別寫(xiě)出文本框text1.text的值.結(jié)果：（s=5s=10s=40）b）程序2PrivateSubForm_Click()Form1.Clsw=3Fork=2To6Step2kForm1.Print”w=";w,"k=";w=w+1NextkForm1.Print”w=”;w，”k=”；kEndSub寫(xiě)出程序運(yùn)轉(zhuǎn)時(shí)單擊窗體后，F(xiàn)orm１上輸出結(jié)果.結(jié)果為：（w=3k=2W=4k=4W=5k=6W=6k=8）程序3Rem在窗體的通用申明區(qū)申明兩個(gè)模塊級(jí)變量a和yDimaAsInteger，yAsIntegerPrivateSubForm_Load（）Open"c：\a1。dat"ForOutputAs#1Close＃1EndSubPrivateSubCommand1_Click()Open"c:\a1.dat"ForAppendAs#1Callaa（5）y=y+aPrint#1，”y="；y,”a=”;a:Close#1EndSubSubaa（iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSubCommand1后，a1.dat寫(xiě)出程序運(yùn)轉(zhuǎn)時(shí)連續(xù)三次單擊文件的最后結(jié)果為：（y=5a=5y=15a=10y=30a=15)五、程序填空題(每題9分，共18分)a）程序說(shuō)明:利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)向秒表，如圖１所示。單擊“開(kāi)始“命令按鈕，秒表開(kāi)始計(jì)時(shí),單擊“結(jié)束“命令按鈕，秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)轉(zhuǎn)時(shí)間，如“運(yùn)轉(zhuǎn)了０小時(shí)２分１０秒“。（假定對(duì)象的屬性都在程序代碼中設(shè)定）。DimxAsLongDimhAsInteger，mAsInteger,sAsIntegerPrivateSubForm_Load（）Form1.Caption="動(dòng)向秒表（小時(shí)：分：秒)"Command1.Caption="開(kāi)始[&S]”Command2.Caption="結(jié)束［&E］"Label1。Alignment=2'居中對(duì)齊Label1.Caption=”0：0：0"timer1。Interval=__1000______Timer1。Enabled=Falsex=0EndSubPrivateSubCommand1_Click(）_timer1.enabled=True___EndSubPrivateSubCommand2_Click（)Timer1。Enabled=Falsex=_0___Label1。Caption="運(yùn)轉(zhuǎn)了”+Str（h）+”小時(shí)+Str(m）+”分”+Str（s）+"秒”EndSubPrivateSubTimer1_Timer（)x=x+1h=_x\3600______m=（xMod3600)\60s=_(xmod3600)mod60__Label1。Caption=Str（h)+"：”+Str（s）EndSub

”：”

+Str

（m）

+b）程序說(shuō)明:已知自然對(duì)數(shù)的底數(shù)e的級(jí)數(shù)表示以下：e=1+1/1!+1/2！+1/3！+。。。。。.+1/n！+。.。..本程序利用函數(shù)過(guò)程fact