第1頁共6頁VB專業(yè)給水排水班級(jí)11002專業(yè)給水排水班級(jí)11002姓名0000班內(nèi)序號(hào)一、單項(xiàng)選擇題當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的__A___事件過程。（A）Load（B）Click（C）Unload（D）GotFocus不論何控件，共同具有的是__B___屬性。（A）Text（B）Name（C）ForeColor（D）Caption要判斷在文本框是否按下Enter鍵，可在文本框的_B____中判斷。（A）Change（B）Getfocus（C）Click（D）KeyPress在一行語句內(nèi)寫多條語句時(shí)，每個(gè)語句之間用__B___符號(hào)分隔。（A），（B）：（C）、（D）；在VB中最基本的對(duì)象是__C___，它是應(yīng)用的基石，是其它控件的容器。（A）文本框（B）命令按鈕（C）窗體（D）標(biāo)簽多窗體程序是由多個(gè)窗體組成的。在默認(rèn)情況下，VB在應(yīng)用程序執(zhí)行時(shí)，總是把__C___指定為啟動(dòng)窗體。（A）不包含在任何控件的窗體（B）設(shè)計(jì)時(shí)的第一個(gè)窗體（C）包含控件最多的窗體（D）包含控件最少的窗體有程序代碼如下：Text1.Text=”Text1.text”則Text1、Text、”Text1.text”分別代表__C___。（A）對(duì)象、值、屬性（B）對(duì)象、方法、屬性（C）對(duì)象、屬性、值（D）屬性、對(duì)象、值8、下面正確的賦值語句是__C___。（A）x+y=30（B）Int(y)=30（C）y=x+30（D）3y=x9、為了給三個(gè)變量賦初值，下面正確的賦值語句是__A___。（A）x=1:y=1:z=1（B）x=1,y=1,z=1（C）x=y=z=1（D）xyz=110、賦值語句：a=123&Mid(“123456”,3,2)執(zhí)行后，變量中的值是__A（A）“12334”（B）123（C）12334（D）15711、下面程序段由三種基本結(jié)構(gòu)組成，下面屬于三種結(jié)構(gòu)之一的是__D___。（A）遞歸結(jié)構(gòu)（B）選擇結(jié)構(gòu)（C）過程結(jié)構(gòu)（D）輸入輸出結(jié)構(gòu)12、對(duì)于語句Ifx=1Theny=1，下列說法正確的是__C___。（A）x=1和y=1均為賦值語句（B）x=1和y=1均為關(guān)系表達(dá)式（C）x=1為關(guān)系表達(dá)式，y=1為賦值語句（D）x=1為賦值語句，y=1為關(guān)系表達(dá)式13、一條語句要在下一行繼續(xù)寫，用__C___符號(hào)作為續(xù)行符。（A）+（B）=（C）_（D）…14、數(shù)學(xué)表達(dá)式3≤x<10在VB中的邏輯表達(dá)式為__B___。（A）3<=x<10（B）3<=xANDx<10（C）x>=3ORx<10（D）3<=xAND<1015、與數(shù)學(xué)表達(dá)式對(duì)應(yīng)，不正確的VB表達(dá)式是__D___。（A）a*b/(3*c*d)（B）a/3*b/c/d（C）a*b/3/c/d（D）a*b/3*c*d16、Rnd函數(shù)不可能為下列__B___值。（A）0（B）1（C）0.1234（D）0.000517、Int(198.555*100+0.5)/100的值__C___。（A）198（B）199.6（C）198.56（D）20018、表達(dá)式Len(“123程序設(shè)計(jì)ABC”)的值是__A___。（A）10（B）14（C）20（D）1719、下列關(guān)于Do…Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是__D___。（A）DoWhile…Loop循環(huán)和Do…LoopUntil循環(huán)至少都執(zhí)行一次（B）DoWhile…Loop循環(huán)和Do…LoopUntil循環(huán)可能都不執(zhí)行（C）DoWhile…Loop循環(huán)至少都執(zhí)行一次，Do…LoopUntil循環(huán)可能不執(zhí)行（D）DoWhile…Loop循環(huán)可能不執(zhí)行，Do…LoopUntil循環(huán)至少執(zhí)行一次20、用If語句表示分段函數(shù)，下列不正確的是__A___。（A）ifx>=1Thenf=Sqr(x+1)f=x*x+3（B）Ifx>=1Thenf=Sqr(x+1)Ifx<1Thenf=x*x+3（C）Ifx>=1Thenf=Sqr(x+1)Elsef=x*x+3（D）Ifx<1Thenf=x*x+3Elsef=Sqr(x+1)二、程序閱讀題1、下面程序段,運(yùn)行后顯示的結(jié)果是A。PrivateSubForm_Click()Dimxx=Int(Rnd+5)SelectCasexCase5Print"優(yōu)秀"Case4Print"良好"Case3Print"通過"CaseElsePrint"不通過"EndSelectEndSub（A）優(yōu)秀（B）良好（C）通過（D）不通過2、下面程序段的運(yùn)行結(jié)果為多少C？PrivateSubCommand1_Click()Dimi%,j%Fori=1To5n=0Forj=iTo5n=n+1NextjNextiPrintnEndSub(A)10(B)5(C)15(D)13、下列程序的運(yùn)行結(jié)果是B。Privatesubcommand1_click()Dimx$,n%n=15dowhilen<>0a=nmod2n=n\2x=chr(48+a)&xloopprintxendsub(A)1(B)1111(C)10100(D)11110三、程序填空題1以下程序的功能是用輾轉(zhuǎn)相除法求兩個(gè)自然數(shù)m，n的最大公約數(shù)和最小公倍數(shù)。程序運(yùn)行后，先從鍵盤上輸入兩個(gè)自然數(shù)，求出并輸出這兩個(gè)數(shù)的最大公約數(shù)和最小公倍數(shù)。請(qǐng)?jiān)诔绦蛑杏邢聞澗€的地方填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubForm_Click()Dimm%,n%,m1%,n1%,r%n1=InputBox("輸入n")m1=InputBox("輸入m")Ifm1>n1Thenm=m1:n=n1Elsem=n1:n=m1EndIfDor=m-nIfr=0ThenExitdom=nn=rLoopPrintm1;",";n1;"的最大公約數(shù)為";nPrint"最小公倍數(shù)=",m1*n1/nEndSub2請(qǐng)?zhí)羁胀瓿梢韵鲁绦颍狠敵?00~200之間的素?cái)?shù)。PrivateSubForm_Click()DimNumber%,x%,i%,k%Number=0Forx=101to199Step2'外循環(huán)直接排除偶數(shù)，只對(duì)奇數(shù)進(jìn)行判斷i=2:k=Int(x/2)DoWhilei<=k'內(nèi)循環(huán)判斷x是否為素?cái)?shù)Ifxmodi=0ThenExitDoi=i+1LoopIfi>kThen'Printx,Number=Number+1'統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)IfNumberMod5=0ThenPrintElsePrintx,'每輸出5個(gè)數(shù)就換行EndIfNextxEndSub四程序設(shè)計(jì)題利用隨機(jī)函數(shù)產(chǎn)生20-80范圍內(nèi)的20個(gè)隨機(jī)數(shù)，顯示其中的最大值，最小值和平均值。解：PrivateSubForm_Click()Dima!,min!,max!,sum!,i!sum=0min=80max=20Fori=1To20a=20+Fix(Rnd*60)i=i+1sum=sum+aIfmin>aThenmin=aIfmax<aThenmax=aPrinta;NextiPrintPrint"最大值";maxPrint"最小值";minPrint"平均數(shù)";sum/20EndSub2、編程從大到小依次顯示出所有的水仙花數(shù)。所謂水仙花數(shù)是指一個(gè)三位整數(shù)，其值等于它的三個(gè)數(shù)位的值的立方之和，例如：371=33+73+13。解：PrivateSubForm_Click()Dima%,b%,c%,m%Print"水仙花數(shù)"Form=100To999a=m\100b=(m-a*100)\10c=mMod10Ifm=a^3+b^3+c^3ThenPrintm;Next