VB期末考試試題(AB卷)

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

結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結果:（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寫出文件a1。datNO。3

的最后結果。2

（NO

。4

3NO.5NO5。68NO。713）五、程序填空題（每題9分,共18分）1.從計算機輸入三個數(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（”PLEASEINPUTN"）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

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