Visual-Basic程序設(shè)計(jì)期末復(fù)習(xí)試題(A)含答案

班級(jí)姓名學(xué)號(hào)VB課程試卷（班級(jí)姓名學(xué)號(hào)題號(hào)一二三四五六七八九十總分說(shuō)明:本課程考試分為上機(jī)考試和筆試兩部分,滿分100分,其中上機(jī)占40分,筆試60分,本試卷為筆試試卷，卷面滿分60分。一.填空題(每空1分,共16分)1.VB應(yīng)用程序至少有______、______兩種文件需要保存。2.把寫成VB表達(dá)式_______________。3.產(chǎn)生一個(gè)三位整數(shù)的表達(dá)式____________________。4.在屬性窗口中設(shè)置______________屬性，可以把指定的圖形放入當(dāng)前對(duì)象中。5.標(biāo)簽和文本框都用于顯示文本，它們的主要區(qū)別是：____________中的文本是只讀文本，________________中的文本是可編輯文本。6.在同一個(gè)過(guò)程中，數(shù)組名不能與變量名______________，否則會(huì)出錯(cuò)。7.在窗體上添加一個(gè)圖片框控件（name屬性為P1），要在運(yùn)行時(shí)將位于C：盤根目錄下名為p1.jpg的圖形文件裝入該圖片框，則所使用的語(yǔ)句為：__________________________。8.在多窗體程序中，顯示一個(gè)窗體的方法是_______________。9.寫出如下程序的運(yùn)行結(jié)果:___________dimx!,y!x=1.5y=0.5ifx<>0theny=x+yelseify>0.5theny=xelsey=x*yendifprintx,y10.表示滾動(dòng)條控件取值范圍最大值的屬性是_______________。11.在VisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是_______________。12.下面程序運(yùn)行后輸出的結(jié)果是_________________。Forn=1to20ifnmod3<>0thenm=m+n\3nextnprintn13.下面程序運(yùn)行后輸出的結(jié)果是_________________。Dima%,b%x=5y=6x=x+yy=x+yPrintx,y14.下列程序的結(jié)果是________________。Fori=1to4X=4Forj=1to3X=3Forr=1to5X=X+iNextrNextjNextiPrintX二.選擇題(每小題1分,共12分)1.以下敘述中,錯(cuò)誤的是()。(A)對(duì)象的任何屬性既可以通過(guò)屬性窗口設(shè)定,也可以通過(guò)程序語(yǔ)句設(shè)定(B)在VB中,對(duì)象所能響應(yīng)的事件是由系統(tǒng)定義的(C)VB中允許不同的對(duì)象使用相同名稱的方法(D)VB中的對(duì)象具有自己的屬性和方法………………密……封……線…… 班級(jí)姓名學(xué)號(hào)VB課程試卷（班級(jí)姓名學(xué)號(hào)2.工程文件的擴(kuò)展名為()。(A).fix(B).bas(C).vbp(D).frm3.執(zhí)行語(yǔ)句s=len(mid(“VisualBasic”,1,6))后，s的值是()。(A)Visual(B)Basic(C)6(D)114.下列選項(xiàng)中，合法的變量名()。(A)c%aaa(B)sum__3(C)Else(D)5persons返回系統(tǒng)當(dāng)前日期和時(shí)間的函數(shù)是()。(A)Time() (B)Day()(C)Date() (D)Now()6.運(yùn)行以下程序后，x的值是()。x=2fori=1to10step2x=x+inexti(A)25 (B)27(C)38(D)577.要讓一個(gè)控件不顯示，應(yīng)將該控件的（）屬性設(shè)置成False。(A)Caption(B)Enabled(C)Default(D)Visible8.下列不屬于文本框?qū)傩缘氖牵ǎ?A)Caption(B)Locked(C)Text(D)Font9.使“多媒體技術(shù)”在當(dāng)前窗體上輸出的語(yǔ)句是（）。(A)Print“多媒體技術(shù)”(B)Picture.Print“多媒體技術(shù)”(C)Printer.Print“多媒體技術(shù)”(D)Debug.Print“多媒體技術(shù)”10.以下關(guān)于圖像框控件的說(shuō)法中，錯(cuò)誤的是（）。(A)不可以通過(guò)Print方法在圖像框中輸出文本。(B)清空?qǐng)D像框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形。(C)圖像框控件可以作為容器使用。(D)用Stretch屬性可以自動(dòng)調(diào)整圖像框中圖形的大小。11.當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是（）。（A）0（B）1（C）2（D）312.在窗體上有一個(gè)列表框控件List1，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是（）。（A）List1.List（B）List1.ListIndex（C）List1.Index（D）List1.Text三.編程題(每小題4分,共32分)1.用輸入框輸入x，根據(jù)下式計(jì)算對(duì)應(yīng)的y，并在窗體上輸出y的值。2.求一元二次方程的兩個(gè)實(shí)根。3.輸出100-1000之間的所有素?cái)?shù)。4.求兩自然數(shù)m,n的最小公倍數(shù)。5.已知三角形的三個(gè)邊分別為a、b、c，求三角形面積。注：要求三角形的三個(gè)邊a、b、c用InputBox函數(shù)輸入，輸出結(jié)果顯示在窗體上。6.有50個(gè)整數(shù)存放在一維數(shù)組中，編程序，求出最小數(shù)及其位置7.編寫窗體上命令按鈕command1的click事件過(guò)程，完成如下功能：（1）定義一個(gè)大小為100的數(shù)組A，其元素?cái)?shù)值為隨機(jī)產(chǎn)生的0~1000之間的數(shù)。（2）編寫一個(gè)子過(guò)程，將A（1）和A（100）交換、A（2）和A（99）交換、A（3）和A（98）交換，……，A（50）和A（51）交換。（3）輸出數(shù)組A，每行5個(gè)元素。8.在窗體上一個(gè)命令按鈕command1，編寫command1的click事件過(guò)程，完成如下功能：（1）編寫一個(gè)子過(guò)程，計(jì)算1×2+2×3+……+（n-1）×n的值。（2）輸入n的值，將計(jì)算結(jié)果顯示在窗體上?！堋狻€……

班級(jí)班級(jí)姓名學(xué)號(hào)題號(hào)一二三四五六七八九十總分說(shuō)明:本課程考試分為上機(jī)考試和筆試兩部分,滿分100分,其中上機(jī)占40分,筆試60分,本試卷為筆試試卷，卷面滿分60分。一.填空題(每空1分,共16分)1.VB應(yīng)用程序至少有_窗體文件_、_工程文件_兩種文件需要保存。2.把寫成VB表達(dá)式_log(7)/log(2)+exp(4)*2/3_。3.產(chǎn)生一個(gè)三位整數(shù)的表達(dá)式_int(rnd*900)+100或int(rnd*899)+100__。4.在屬性窗口中設(shè)置__picture__屬性，可以把指定的圖形放入當(dāng)前對(duì)象中。5.標(biāo)簽和文本框都用于顯示文本，它們的主要區(qū)別是：____標(biāo)簽____中的文本是只讀文本，_____文本框_____中的文本是可編輯文本。6.在同一個(gè)過(guò)程中，數(shù)組名不能與變量名___同名_____，否則會(huì)出錯(cuò)。7.在窗體上添加一個(gè)圖片框控件（name屬性為P1），要在運(yùn)行時(shí)將位于C：盤根目錄下名為p1.jpg的圖形文件裝入該圖片框，則所使用語(yǔ)句為p1.picture=loadpicture(“c:\p1.jpg”)_。8.在多窗體程序中，顯示一個(gè)窗體的方法是__show__。9.寫出如下程序的運(yùn)行結(jié)果:__1.52__dimx!,y!x=1.5y=0.5ifx<>0theny=x+yelseify>0.5theny=xelsey=x*yendifprintx,y10.表示滾動(dòng)條控件取值范圍最大值的屬性是__max___。11.在VisualBasic中有一種控件組合了文本框和列表框的特性，這種控件是_組合框__。12.下面程序運(yùn)行后輸出的結(jié)果是_____42_______。Forn=1to20ifnmod3<>0thenm=m+n\3nextnprintn13.下面程序運(yùn)行后輸出的結(jié)果是____1117_____。Dima%,b%x=5y=6x=x+yy=x+yPrintx,y14.下列程序的結(jié)果是___23____。Fori=1to4X=4Forj=1to3X=3Forr=1to5X=X+iNextrNextjNextiPrintX二.選擇題(每小題1分,共12分)1.以下敘述中,錯(cuò)誤的是(A)。(A)對(duì)象的任何屬性既可以通過(guò)屬性窗口設(shè)定,也可以通過(guò)程序語(yǔ)句設(shè)定(B)在VB中,對(duì)象所能響應(yīng)的事件是由系統(tǒng)定義的(C)VB中允許不同的對(duì)象使用相同名稱的方法(D)VB中的對(duì)象具有自己的屬性和方法………………密……封……線…… 班級(jí)班級(jí)姓名學(xué)號(hào)2.工程文件的擴(kuò)展名為(C)。(A).fix(B).bas(C).vbp(D).frm3.執(zhí)行語(yǔ)句s=len(mid(“VisualBasic”,1,6))后，s的值是(C)。(A)Visual(B)Basic(C)6(D)114.下列選項(xiàng)中，合法的變量名(B)。(A)c%aaa(B)sum__3(C)Else(D)5persons返回系統(tǒng)當(dāng)前日期和時(shí)間的函數(shù)是(D)。(A)Time() (B)Day()(C)Date() (D)Now()6.運(yùn)行以下程序后，x的值是(B)。x=2fori=1to10step2x=x+inexti(A)25 (B)27(C)38(D)577.要讓一個(gè)控件不顯示，應(yīng)將該控件的（D）屬性設(shè)置成False。(A)Caption(B)Enabled(C)Default(D)Visible8.下列不屬于文本框?qū)傩缘氖牵˙）。(A)Caption(B)Locked(C)Text(D)Font9.使“多媒體技術(shù)”在當(dāng)前窗體上輸出的語(yǔ)句是（A）。(A)Print“多媒體技術(shù)”(B)Picture.Print“多媒體技術(shù)”(C)Printer.Print“多媒體技術(shù)”(D)Debug.Print“多媒體技術(shù)”10.以下關(guān)于圖像框控件的說(shuō)法中，錯(cuò)誤的是（C）。(A)不可以通過(guò)Print方法在圖像框中輸出文本。(B)清空?qǐng)D像框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形。(C)圖像框控件可以作為容器使用。(D)用Stretch屬性可以自動(dòng)調(diào)整圖像框中圖形的大小。11.當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是（B）。（A）0（B）1（C）2（D）312.在窗體上有一個(gè)列表框控件List1，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是（D）。（A）List1.List（B）List1.ListIndex（C）List1.Index（D）List1.Text三.編程題(每小題4分,共32分)1.用輸入框輸入x，根據(jù)下式計(jì)算對(duì)應(yīng)的y，并在窗體上輸出y的值。解：dimx!,y!：x=InputBox("x=")ifx>10theny=sqr(x)+sin(x)elseifx=10theny=0elsey=2*x^2+6endifprinty2.求一元二次方程的兩個(gè)實(shí)根。解：dima%,b%,c%a=InputBox("a=")：b=InputBox("b=")：c=InputBox("c=")：D=B*B-4*A*CIFA<>0thenIFD>=0thenX1=(-B+SQR(D))/(2*A)：X2=(-B-SQR(D))/(2*A)：Printx1,x2ELSEPrint"此一元二次方程無(wú)實(shí)根！"ENDIFENDIF………………密……封……線……班級(jí)班級(jí)姓名學(xué)號(hào)3.輸出100-1000之間的所有素?cái)?shù)。解：dimi%,flag%,j%Fori=101to1000step2Flag=0Forj=2toint(sqr(i))Ifimodj=0thenFlag=1EndifNextjIfflag=0thenprintiNexti4.求兩自然數(shù)m,n的最小公倍數(shù)。解：dima%,b%,t%,i%A=inputbox(“第1個(gè)數(shù)”)：B=inputbox(“第2個(gè)數(shù)”)Ifa<bthenT=a：B=a：B=tEndifFori=atoa*bIfImoda=0andImodb=0thenPrinta&“和”&b“的最小公倍數(shù)是”&iExitfornext5.已知三角形的三個(gè)邊分別為a、b、c，求三角形面積。注：要求三角形的三個(gè)邊a、b、c用InputBox函數(shù)輸入，輸出結(jié)果顯示在窗體上。解：dima!,b!,c!,p!,s!A=inputbox(“a”)：b=inputbox(“b”)：c=inputbox(“c”)：p=(a+b+c)/2s=sqr(p*(p-a)*(p-b)*(p-c))：prints6.有50個(gè)整數(shù)存放在一維數(shù)組中，編程序，求出最小數(shù)及其位置解：dima%(50),i%,min%,wz%Fori=1to50A(i)=inputbox(“輸入一個(gè)數(shù)據(jù)”)NextMin=a(1)：wz=1fori=2to50ifa(i)<minthenmin=a(i):wz=inext