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

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

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