vb單選判斷題題庫資料

vb單項選擇判斷題題庫資料vb單項選擇判斷題題庫資料122/122vb單項選擇判斷題題庫資料序號題干答案1VB是一種面向?qū)ο蟮某绦蛟O(shè)計語言。對2VB經(jīng)過窗體管理組成應(yīng)用程序的各樣文件的會集。錯3VB支持彈出菜單，所謂“彈出菜單”是指單擊鼠標(biāo)后打開的錯菜單。4VisualBasic程序的運行，僅能從某一窗體啟動，如Form1錯窗體。VisualBasic程序的運行能夠從Main()過程啟動，也能夠從5某對個窗體啟動。VisualBasic供應(yīng)的幾種標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)的原點都是在畫圖區(qū)域

的左上角，若是要把坐標(biāo)原點放在其他地址，則需使用自定

義

坐標(biāo)系統(tǒng)。

單擊并拖拽工具箱中所需的控件到窗體上即可完成增加控件任務(wù).

Dimi,jasinteger表示i和j都是整型變量。

Single和Double型用于保留浮點數(shù),在VB中定義單精度浮

點8位9

,雙浮點16位.

10Visual_basic是合法的變量名。

能夠用"&"，"+"合并字符串，但是用在數(shù)值變量時，"+"可能

會

將兩個數(shù)值加起來。

某一過程中的靜態(tài)變量在過程結(jié)束后，靜態(tài)變量及其值能夠

在

其他過程中使用。

全局變量用global或public要點字聲明，且僅在通用聲明

處可13以定義。若是某子程序add用publicstaticsubadd()定義，則該子14程序的變量都是局部變量。

對

錯

錯

錯

對

對

錯

錯

錯

設(shè)A=3,B=4,C=5,D=6，則表達式A>BAndC<=DOr2*A>C

15錯的值是False。16全部的VB的變量,都有隱含說明字符和重申聲明兩種方法來錯定義.17在VB中，運算"ABCDE123A"Like"[a*a]"的結(jié)果是True。錯18在VB中,運算"D"Like"[!A-Z]"的結(jié)果是True.錯19在VB中，運算"ABA"Like"[a?a]"的結(jié)果是False。對20MsgBox()函數(shù)建立的信息框能顯示信息也能輸入信息。錯21MsgBox()函數(shù)建立的信息框能顯示信息也能輸入用戶的信錯息.Picture圖片框既可用來顯示圖片和繪制圖形,也可用Print22方錯法來顯示文字.

在框架控件內(nèi)的幾個單項選擇按鈕中，可有一個或多個單項選擇按鈕

23的Value屬性為True。（正確答案：只有一個）錯*.bmp格式的圖片，若是在autosize設(shè)為False的圖片框，24它會錯以圖片框大小完滿顯示出來?！安藛尉帉懫鳌敝凶钌僖睢懊Q”和“標(biāo)題”這兩個框，25才錯能正確完成菜單欄的設(shè)計。ActiveX控件是擴展名為*.ocx的獨立文件，使用時需用26“工程”/“部件”載入或移去。對Circle方法繪制扇形或圓弧圖形時，圖形的形狀不但與初步27角、對停止角的大小相關(guān)，而且與初步角、停止角的正或負(fù)相關(guān)。28Frame控件是一種容器控件,因此它可有它自己的坐標(biāo)系.錯29Function函數(shù)有參數(shù)傳達，而且必然有返回值。錯30Image控件不能夠用作容器使用。對31Image控件使用的資源比Picture控件使用的多.錯32Line(500,500)–(2500,2500)命令能夠正確畫出矩形。錯33List1.Clear是除去List1的全部列表項，因此Clear是對象對的方法。move方法的一般形式是:對象名.moveA,B[,C,D],其中A指34Left錯,C指width.

35Shape控件和Line控件能夠在窗體中搬動，因此它們擁有錯Move方法。36Text與Label有好多共同特點，它們都能顯示和輸入文本。錯Variant是一種數(shù)據(jù)種類,因此只能存放象其他數(shù)據(jù)種類一37樣,錯無特別值.（正確：有特別值）

Variant是一種特其他數(shù)據(jù)種類，Variant種類變量能夠儲藏

除

了定長字符串?dāng)?shù)據(jù)及自定義種類外的全部系統(tǒng)定義種類的數(shù)據(jù)。

Variant種類變量還可擁有Empty、Error和Null等特別值。

VB規(guī)定窗體文件的擴展名是.vbp。

VB若同一個工程有好多窗體，能夠指定任一窗體為啟動窗體。

VB贊同設(shè)計和使用用戶自己設(shè)計的控件。

VB贊同用戶使用Type語句在窗體模塊的通用聲明中自己定義

數(shù)42

據(jù)種類。

標(biāo)簽控件能夠用來讓用戶輸入數(shù)據(jù)。

標(biāo)簽沒有Change事件和SetFocus方法。

菜單中每一菜單項都是控件，能夠經(jīng)過點擊菜單項或經(jīng)過光

標(biāo)選

擇并按回車鍵，以觸發(fā)Click事件。

除了標(biāo)準(zhǔn)控件外，還可引入其他控件及第三方廠商研制的控

件。

窗體的Enabled屬性值為False時,該窗體上的按鈕、文本框

等

控件就不會對用戶的操作做出反響。

從幾十個項目中任選其中一項或多項時可采用列表框或組合

框控

件實現(xiàn).

單項選擇鈕控件和復(fù)選框控件都擁有Value屬性，它們的作用完全相同。

50當(dāng)窗體的ScaleTop=0,ScaleLeft=0時,這個窗體Top和Left值也是0.當(dāng)準(zhǔn)時器控件的Interval屬性值設(shè)置為0時，會連續(xù)不斷地激發(fā)

對

錯

對

對

對

錯

錯

對

對

對

錯

錯

錯

錯

Timer事件。

當(dāng)需要在同一窗體中建立幾組相互獨立的單項選擇鈕時，就要用52框?qū)軐⒚恳唤M單項選擇鈕框起來。當(dāng)在一個簡單組合框的文本框中輸入一個它的列表框中的沒53有錯的條目時，組合框會自動將這一條目增加到它的列表框中。54準(zhǔn)時將文本框中的數(shù)據(jù)保留到磁盤，應(yīng)用于采用Timer計時器控件。對對窗體Form內(nèi)各控件不能夠用鼠標(biāo)隨意精確定位是由于窗體中55的對定位網(wǎng)格起作用.56對象的可見性用Enabled屬性設(shè)置，可用性用Visible屬性設(shè)置。錯57對象的屬性都能夠在屬性窗口中設(shè)置。錯對象是基本的運行實體，它既包括了數(shù)據(jù)(屬性)，也包括作58對用于對象的操作(方法)和對象的響應(yīng)動作(事件)。關(guān)于文件系統(tǒng)控件，當(dāng)驅(qū)動器控件Drive1中的驅(qū)動器符改變時，

59文件夾列表控件Dir1中顯示的文件夾也作相應(yīng)改變，能夠在對Drive1中的Change事件中使用以下命令：Dir1.Path=Drive1.Drive。60方法是VB對象能夠響應(yīng)的用戶操作。錯61轉(zhuǎn)動條控件不能作為用戶輸入數(shù)據(jù)的方法。對62轉(zhuǎn)動條控件不能作為用戶輸入數(shù)據(jù)的一種方法.錯63轉(zhuǎn)動條控件可作為用戶輸入數(shù)據(jù)的一種方法.錯計時器(Timer)控件的Interval屬性的單位是毫秒，即若將64此對屬性值設(shè)為10，則每0.01秒產(chǎn)生一次Timer事件。計算機在辦理數(shù)據(jù)時必定將其裝入內(nèi)存,在高級語言中經(jīng)過內(nèi)65對存單元名來接見其中的數(shù)據(jù),命名的內(nèi)存單元就是常量或變量.

66將焦點主動設(shè)置到指定的控件或窗體上，應(yīng)采用Setfocus方對法。67能夠利用鍵盤光標(biāo)選擇菜單項,因此可響應(yīng)KeyPress事件.錯68控件是對象，而窗體不是對象，它可是控件對象的窗口。錯69框架控件和形狀控件都不能夠響應(yīng)用戶的鼠標(biāo)的單擊事件。錯70利用PrivateConst聲明的符號常量，在代碼中不能夠夠再賦對值。71列表框包括了組合框的功能。錯72列表框的中的項目不能夠夠多列顯示。錯每個對象都有一系列起初定義好的對象事件，但要使對象能73響對應(yīng)詳盡的事件，則編寫該對象相應(yīng)的事件過程。74面向?qū)ο蟪绦蛟O(shè)計是一種以對象為基礎(chǔ)，由事件驅(qū)動對象執(zhí)對行的設(shè)計方法。命令Picture1.Circle(500,800),800能夠在圖片框75Picture1對中畫出的圖形是圓心在(500,800)的一個圓。76目錄列表框中的列表項不能夠夠經(jīng)過AddItem方法進行增加。對77除去Combo1對象的內(nèi)容是Combo1.Clear。對78除去list1列表框?qū)ο蟮膬?nèi)容的語句是list1.cls。錯79若是一個菜單項的Visible屬性為False，則它的子菜單也不對會顯示。若是一個列表框一共有5個選項,而當(dāng)選中第三項時,這時列80表對框的ListIndex屬性為2.output，append方式若要新建一個磁盤上的次前言件，可用81打?qū)﹂_文件。

若已在窗體中加入了一個通用對話框：要求在運行時，經(jīng)過

82ShowOpen打開對話框時，只顯示擴展名為DOC的文件，則錯對通用對話框的Filter的屬性設(shè)置應(yīng)該是："(*.DOC)|(.DOC)"。83三種方式的組合框都能夠接受DblClick事件。對84菜單設(shè)計中的每一個菜單項分別是一個控件，每個控件都有對自己的名字。85時鐘控件的屬性Interval值為0時，表示障蔽計時器。對

使用驅(qū)動器列表框、目錄列表框和文件列表框組成一個文件管

理系統(tǒng)時，三者之間能夠?qū)崿F(xiàn)自動同步，即當(dāng)在驅(qū)動器列表框

改變驅(qū)動器時，目錄列表框和文件列表框的內(nèi)容馬上同跟著變。

事件過程由某個用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行,它不能夠被其

它87

過程調(diào)用.

事件過程與Sub過程,它們相同點都是事件驅(qū)動,而不相同的只

是

事件過程由控件屬性決定,而Sub過程是由戶自定義.

全部的對象都有caption屬性。

全部的控件在程序運行今后都是可見的。

經(jīng)過改變屬性窗口中的題。Name屬性，能夠改變窗體上顯示的標(biāo)

通用對話框只能用SHOW方法進行調(diào)用。

同一Form窗體中的各控件能夠相互重疊,其顯示的上基層次

的93

次序不能夠夠調(diào)整.

圖片框的Move方法不但能夠搬動圖片框,而且還可以夠改變該

圖94

片框的大小,同時也會改變該圖片框相關(guān)屬性的值.

圖片框的Move方法不但能夠搬動圖片框,而且還可以夠改變該

圖片

框的大小,同時也會改變該圖片框相關(guān)屬性的值.

圖片框的屬性Enabled設(shè)置為FALSE，圖片框上的控件仍可響

錯

錯

對

錯

錯

錯

錯

錯

錯

錯96錯

應(yīng)用戶操作。

圖象框中的Stretch屬性為true時，其作用是圖形自動調(diào)整

97對

大小以適應(yīng)圖象控件。

98文本框控件有Caption屬性。錯

99文件依照數(shù)據(jù)編碼方式能夠分為ASCII碼文件和二進制文件。對

100要使準(zhǔn)時器控件起作用，其屬性Interval不能夠夠設(shè)置為0。對

搬動框架內(nèi)的控件時框架內(nèi)的控件也隨從搬動,因此框架內(nèi)各控錯101件的Left和Top屬性值也將分別隨之改變.

已知窗的fillcolor=rgb(255,0,0)

紅,forecolor=rgb(0,255,0)

102綠,fillstyle=0(solid)語句circle(200,100),500,,,,2的錯輸出結(jié)果是紅邊綠心的長橢圓.103用Cls方法能除去窗體或圖片框圖中用Picture屬性設(shè)置的錯圖形.104用dim語句聲明的局部變量能保留前一次過程調(diào)用后的值.錯用VB6.0僅能開發(fā)擁有窗口菜單的應(yīng)用程序,開發(fā)的應(yīng)用中105不錯能支持彈出式菜單.

用鼠標(biāo)選中某菜單控件時,觸發(fā)Click事件;而用鍵盤選中該

106錯菜單控件時,觸發(fā)KeyPress事件.107由VisualBasic語言編寫的應(yīng)用程序有講解和編譯兩種執(zhí)行對方式.由變量名對變量的內(nèi)容進執(zhí)行用或更正,則使用變量就是引108用對變量的內(nèi)容.109有的對象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)對定。有一個程序在屬性窗口中設(shè)置了它的窗體字體大小為10號，而110程序代碼若設(shè)置了它的窗體字體大小為20號，那么當(dāng)程序運對行后實質(zhì)的窗體字體大小為20號。欲在PictureBox控件上設(shè)置其他控件,能夠經(jīng)過把窗體上原111已錯設(shè)計好的控件拖動到PictureBox控件上來實現(xiàn).112在MsgBox函數(shù)中prompt參數(shù)是必定的.對113在Sub過程中，能夠用Return語句退出Sub過程。對

在VB6.0中，若是要使窗體上的多個控件擁有相同的尺寸，114在對選擇了這些控件此后，應(yīng)執(zhí)行VB"格式"菜單中的命令。在VB6.0中，若是要增加工具箱中的控件，應(yīng)執(zhí)行VB"文件"115菜錯單中的命令。在VB5中,文件菜單的"刪除工程"的作用是將當(dāng)前VB工程在116硬錯盤中刪除掉.117在VB6.0中命令按鈕不但響應(yīng)Click事件,而且響應(yīng)DbClick事件.錯在VB的工具欄中包括了全部的VB控件，我們不能夠再加載其118他的錯控件。119在VB中，函數(shù)Fix(-3.6)的返回值是–4。錯在VB中，計時器(Timer)如期激活Timer事件，使Timer中120的對代碼執(zhí)行一次。121在VB中,可經(jīng)過函數(shù)Now返回計算機系統(tǒng)的日期和時間.對在VB中,能夠?qū)⒃赑icture控件中繪制的圖形以文件的形式122保留對在磁盤上.123在VB中,用DIM定義數(shù)組時數(shù)組元素也自動賦初值為0.錯在VB中將一些通用的過程和函數(shù)編寫好并封裝作為方法供用124戶對直接調(diào)用.在VB中通用對話框的Filename屬性返回的是一個輸入或選125取的文錯件名字符串.在VisualBasic中Dima,b,casinteger和126錯Dimaasinteger,basinteger,casinteger相同。在標(biāo)準(zhǔn)模塊的聲明部分中用Publice聲明的變量的有效范圍127是對

其所在的工程。

在表達式中,運算符兩端的數(shù)據(jù)種類要求一致.

在程序中Name屬性是作為對象的表記而引用,不會顯示在窗

體129

上,而控件上顯示的內(nèi)容由Caption屬性決定.

在窗體模塊的聲明部分中用Private聲明的變量的有效范圍

是其

所在的工程。

在多文檔應(yīng)用中，每次只能有一個活動的子窗體能夠進行輸入/編寫。

在過程中用Dim和Static定義的變量都是局部變量.在框架控件內(nèi)的幾個單項選擇按鈕中，只能有一個單項選擇按鈕的

Value

屬性為True。

在框架控件上放置的控件能夠搬動到框架控件的外面.

在利用通用對話框件顯示字體對話框從前必定設(shè)置Flags屬

性,

否則將發(fā)生不存在字體的錯誤.

在命令按鈕的Click事件過程中,exit與end等效.在盤驅(qū)動器列表框Drive1的Change事件過程中,代碼

137Dir1.Path=Drive1.Drive的作用是:當(dāng)Drive1的驅(qū)動器改變時,Dir1的目錄列表隨不相同驅(qū)動器的作相應(yīng)改變.在圖片框中放置的控件既能夠在該圖片框內(nèi)搬動,也能夠移138出該圖片框外.在一個窗體的代碼中不能夠使用Unload語句來卸載本窗體,即一個

窗體只能由其他窗體卸載.

直線控件能夠在窗體上拖動，因此它擁有MOVE方法。只要用拖拽的方法,將工具箱中所需的控件拖到窗體上即可

完成.

對

錯

錯

對

對

對

錯

對

錯

對

錯

錯

錯

錯

屬性是用來描述和反響對象特點的參數(shù),不相同的對象擁有各142自錯不相同的屬性,對象的全部屬性都能夠在屬性窗口中設(shè)置.143組合框包括了列表框的功能.對組合框兼有文本框和列表框兩者的功能，用戶能夠經(jīng)過鍵入144文對本或選擇列表中的項目來進行選擇。過程中的靜態(tài)變量是局部變量，當(dāng)過程再次被執(zhí)行時，靜態(tài)145變量對的初值是前一次過程調(diào)用后的值。函數(shù)過程(FunctionProcedure)用來完成特定的功能，但不146返錯回相應(yīng)的結(jié)果。若是沒有使用Public、Private也許Friend,Sub過程在缺省147情況錯下是公用的、若是在過程調(diào)用時使用按地址傳達參數(shù)，則在被調(diào)過程中不148可錯以改變實參的值。若是在過程調(diào)用時使用按值傳達參數(shù)，則在被調(diào)過程中能夠149改錯變實參的值。多文檔界面是指在一個父窗口下面能夠同時打開多個子窗口。150對子窗口歸屬于父窗口，,當(dāng)父窗口關(guān)閉時，全部子窗口所相關(guān)閉。1.在多文檔應(yīng)用中,每次只能有一個活動的子窗體能夠進行輸入/編寫.答案：Y

第11題文本框控件中將Text的內(nèi)容全部顯示為所定義的字符的屬性項是().

A:PasswordCharB:需要編程來實現(xiàn)C:PasswordD:以上都不是答案：A

第12題下面()控件不擁有Caption屬性.

A:標(biāo)簽框B:單項選擇鈕C:命令按鈕D:文本框答案：D

第2題三種方式的組合框都能夠接受

DblClick

事件.

答案：

Y

第

20題在多文檔應(yīng)用中

,每次只能有一個活動的子窗體能夠進行輸入

/編寫.

答案：Y

一、判斷共10題（共計10分）第1題Shape控件和Line控件能夠在窗體中搬動,因此它們擁有Move方法.答案：N第2題VisualBasic程序的運行能夠從Main()過程啟動,也能夠從某個窗體啟動.答案：Y第3題圖片框的屬性Enabled設(shè)置為FALSE,圖片框上的控件仍可響應(yīng)用戶操作.答案：N第4題若已在窗體中加入了一個通用對話框:要求在運行時,經(jīng)過ShowOpen打開對話框時,只顯示擴展名為DOC的文件,則對通用對話框的Filter的屬性設(shè)置應(yīng)該是:"(*.DOC)|(.DOC)".N第5題設(shè)計菜單中每一個菜單項分別是一個控件,每個控件都有自己的名字.答案：Y第6題除去list1列表框?qū)ο蟮膬?nèi)容的語句是list1.cls.答案：N第7題圖片框的Move方法不但能夠搬動圖片框,而且還可以夠改變該圖片框的大小,同時也會改變該圖片框相關(guān)屬性的值.答案：N

第8題當(dāng)窗體的ScaleTop=0,ScaleLeft=0時,這個窗體Top和Left值也是0.答案：N

第9題框架控件和形狀控件都不能夠響應(yīng)用戶的鼠標(biāo)的單擊事件.答案：Y第10題通用對話框只能用SHOW方法進行調(diào)用.答案：N二、單項選擇共10題（共計10分）第1題用戶能夠經(jīng)過設(shè)置菜單項的()屬性值為FALSE來使該菜單項不能見.A:HideB:CheckedC:VisibleD:Enabled答案：C第2題準(zhǔn)時器的Interval屬性以()為單位指定Timer事件之間的時間間隔.分B:秒C:毫秒D:微秒答案：C

第3題要在圖片框P1中打印字符串"HowAreYou",應(yīng)使用語句().A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"

答案：

C第4題以下關(guān)于設(shè)置控件屬性的表達正確的選項是

().用戶必定設(shè)置屬性值B:全部的屬性值都能夠由用戶隨意設(shè)定C:屬性值不用一一重新設(shè)置D:不相同控件的屬性項都完滿相同

第5題啟動VisualBasic后,系統(tǒng)為用戶新建的工程起一個名為

答案：C

()的臨時名稱

.工程1B:窗體1C:工程D:窗體答案：A

第6題設(shè)a=10,b=5,c=1,執(zhí)行語句Printa>b>c后,窗體上顯示的是().A:TrueB:FalseC:1D:出錯信息答案：B第7題MSGBOX函數(shù)中有4個參數(shù),其中必定寫明的參數(shù)是().指定對話框中顯示按鈕的數(shù)目B:設(shè)置對話框標(biāo)題C:提示信息D:全部參數(shù)都是可選的

C

第8題應(yīng)用程序設(shè)計完成后,應(yīng)將程序保留,保留的過程是().

只保留窗體文件即可B:只保留工程文件即可C:先保留工程文件,此后保留窗體文件

D:先保留窗體文件(或標(biāo)準(zhǔn)模塊文件),此后還要保留工程文件答案：D

第9題改變控件在窗體中的左右地址應(yīng)更正該控件的()屬性.

A:TopB:LeftC:WidthD:Right答案：B第10題

VB

認(rèn)為下面

()組變量是同一個變量

.

A:A1和a1B:SUM和SUMMARYC:AVER和

三、程序填空共3題（共計30分）

第1題'【程序填空】

AVERAGED:A1

和

A_1

答案：A'功能：以下程序的功能如(圖1)。

'

PrivateSubForm_Click()

Dima%,b%,c%,d!

Dimx1,x2

Dimp,q,r

a=InputBox("請輸入a的值")

b=InputBox("請輸入b的值")

c=InputBox("請輸入c的值")d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

'SPACE

If【?】Then

r=Sqr(d)/(2*a)

x1=p+r

x2=p-r

Else

x1=p

x2=p

'SPACE

?】

Print"x1=";x1,"x2=";x2

'SPACE

?】

q=Sqr(-d)/(2*a)

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：1).d>0或0<d2).EndIf3).Else

第2題'【程序填空】

'功能：完成程序，使程序輸出值為15

'

PrivateSubCommand1_Click()

'SPACE

Dimi,j,x,【?】AsInteger

Fori=1To4

x=4

Forj=1To3

x=3

'SPACE

For【?】=1To2

'SPACE

x=x+【?】

Nextk

Nextj

Nexti

Printx

EndSub

答案：1).k2).k3).6

第3題'【程序填空】

'功能：用輸入對話框輸入x，依照如圖公式計算對應(yīng)的y，

在窗體上輸出y的值。

'

PrivateSubCommand1_Click()

'SPACE

DimxAsSingle,【?】AsSingle

'SPACE

x=Val(【?】("Pleaseinputx:","輸入X的值"))

Ifx=10Then

'SPACE

?】

ElseIfx>10Then

'SPACE

y=Sqr(x)【?】

Else

y=2*x^3+6

EndIf

Printy

EndSub

答案：1).y2).InputBox3).y=04).+Sin(x)

四、程序改錯共3題（共計30分）

第1題'【程序改錯】

'題目:設(shè)窗體中有圖片框Pic1，現(xiàn)要求在其中繪制10個同心圓，

爾后將此圖以Test.BMP作文件名存入磁盤。

'

OptionExplicit

PrivateSubCommand1_Click()

DimXAsInteger

DimYAsInteger

DimIAsInteger

Dimrad(9)AsInteger

X=Pic1.ScaleWidth/2

Y=Pic1.ScaleHeight/2

'FOUND

ForI=1To9

rad(I)=500*Rnd

NextI

I=9

'FOUND

DoUntilI<1

Pic1.Circle(X,Y),rad(I),RGB(256*Rnd,256*Rnd,256*Rnd)

'FOUND

I=I+1

Loop

SavePicturePic1.Image,"Test.BMP"

EndSub

答案：1).fori=0to9或fori=0to9step1

2).DoUntilI<0或dountil0>i

3).I=I-1或i=-1+i

第2題'【程序改錯】

'題目：從計算機輸入三個數(shù),找出中間數(shù)

'

OptionExplicit

PrivateSubFindMidNum()

DimxAsInteger,yAsInteger,zAsInteger,AAsInteger

x=InputBox("PLEASEINPUTTHEFIRSTNUMBER")

y=InputBox("PLEASEINPUTTHESECONDNUMBER")

z=InputBox("PLESSEINPUTTHETHIRDNUMBER")

'FOUND

Ifx>yThen

A=x

x=y

y=A

EndIf

'FOUND

Ify=zThen

Printy

'FOUND

ElseIfx=zThen

Printz

Else

Printx

EndIf

EndSub

PrivateSubForm_Click()

FindMidNum

EndSub答案：

1).Ifx<yThen

或

Ify>xThen

2).Ify>=zThen或Ifz<=yThen

3).ElseIfx>=zThen或ElseIfz<=xThen

第3題'【程序改錯】

'題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5

個數(shù)一行。

'

OptionExplicit

PrivateSubForm_Click()

Cls

DimxAsInteger

DimiAsInteger

'FOUND

i=1

Forx=1To40

If(x/3)=(x\3)Then

'FOUND

Printx

i=i+1

EndIf

'FOUND

IfiMod3=0Then

Print

EndIf

Nextx

EndSub

答案：1).i=02).Printx;3).ifimod5=0then

五、程序設(shè)計共2題（共計20分）

第1題'【程序設(shè)計】

題目：編寫函數(shù)fun其功能是：依照整型形參m，計算以下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)比方：若m=9，則應(yīng)輸出：1.168229'要求：函數(shù)中

用到的中間變量必定聲明為Single種類。

'

答案：

DimyAsDouble

DimiAsInteger

Fori=0Tom

y=y+1/(i+5)

Next

Fun=y

第2題（10.0分）題號:488'【程序設(shè)計】

'題目：(事件)單擊窗體。(響應(yīng))已知sum=1/2!-1/4!+1/6!-1/8!+1/10!,請將sum結(jié)果值輸出到窗體上。使用dowhile...loop語句完成程序

'答案：DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=10p=p*iIfiMod2=0Thenn=n+1sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum一、判斷共10題（共計10分）第1題全部的對象都有caption屬性.答案：N第2題事件過程由某個用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行,它不能夠被其他過程調(diào)用.答案：N第3題當(dāng)準(zhǔn)時器控件的interval屬性值設(shè)置為0時,會連續(xù)不斷地激發(fā)Timer事件.答案：N第4題當(dāng)需要在同一窗體中建立幾組相互獨立的單項選擇鈕時,就要用框架將每一組單項選擇鈕框起來.答案：Y

第5題在窗體模塊的聲明部分中用Private聲明的變量的有效范圍是其所在的工程.答案：N第6題VisualBasic程序的運行能夠從Main()過程啟動,也能夠從某個窗體啟動.答案：Y第7題VB贊同設(shè)計和使用用戶自己設(shè)計的控件.答案：Y第8題在VB中,能夠?qū)⒃赑icture控件中繪制的圖形以文件的形式保留在磁盤上.答案：Y第9題Function函數(shù)有參數(shù)傳達,而且必然有返回值.答案：N第10題在VB的工具欄中包括了全部的VB控件,我們不能夠再加載其他的控件.答案：N置頂二、單項選擇共10題（共計10分）第1題代數(shù)式x1-|a|+ln10+sin(x2+2л)/cos(57o)對應(yīng)的VisualBasic表達式是().

A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)

B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)答案：A第2題設(shè)計動畫平時使用時鐘控件()來控制動畫速度.A:EnabledB:IntervalC:TimerD:Move答案：B第3題要把一個命令按鈕設(shè)置成無效,應(yīng)設(shè)置其哪一屬性值().A:VisibleB:EnabledC:DefaultD:Cancel答案：B第4題設(shè)a=10,b=5,c=1,執(zhí)行語句Printa>b>c后,窗體上顯示的是().A:TrueB:FalseC:1D:出錯信息答案：B第5題任何控件都擁有的屬性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C第6題當(dāng)事件能被觸發(fā)時,()就會對該事件作出響應(yīng).

對象B:程序C:控件D:窗體答案：A

第7題以下表達正確的選項是().

對象是包括數(shù)據(jù)又包括對象數(shù)據(jù)進行操作的方法的物理實體

B:對象的屬性只幸虧屬性窗口中設(shè)置

C:不相同的對象能鑒別不相同的事件

D:事件過程都要由用戶點擊對象來觸發(fā)答案：C

第8題以下關(guān)于設(shè)置控件屬性的表達正確的選項是().

用戶必定設(shè)置屬性值B:全部的屬性值都能夠由用戶隨意設(shè)定

C:屬性值不用一一重新設(shè)置D:不相同控件的屬性項都完滿相同答案：C

第9題表達式2+3*4^5-SIN(X+1)/2中最先進行的運算是().A:4^5B:3*4C:x+1D:SIN

答案：

C第10題一個對象能夠執(zhí)行的動作和可被對象識其他動作分別稱為

A:事件、方法B:方法、事件C:屬性、方法D:過程、事件

三、程序填空共3題（共計30分）

第1題'【程序填空】

().

答案：A'下面過程

max()用于求

3個數(shù)中最大值，利用這個過程求

5個數(shù)中最大值。'

PrivateSubForm_Click()Print"5個數(shù)34、124、68、73、352的最大值是："

max1=max(34,124,68)

'SPACE

max1=【?】

Printmax1

EndSub

PublicFunctionmax(ByVala%,ByValb%,ByValc%)

'SPACE

If【?】Then

m=a

Else

m=b

EndIf

'SPACEIf

【?】

Thenmax=m

Else

max=c

EndIf

EndFunction答案：

1).max(max1,73,352)2).a>b

或

b<a3).m>c

或

c<m第2題

'【程序填空】'功能：輸入數(shù)字1-7,顯示其對應(yīng)是星期幾(例:輸入

1,顯示星期日

,若是輸入其他內(nèi)容，一律顯示"輸入錯誤")'

PrivateSubCommand1_Click()

dimxasinteger

dimyasstring

x=val(text1.text)

'SPACE

?】

case1

y="今天是星期日"

case2

y="星期一"

case3

y="星期二"

case4

y="星期三"

case5

y="星期四"

case6

'SPACE

?】

case7

y="星期六"

'SPACE

?】

y="輸入錯誤"

endselect

Text2.Text=y

EndSub

答案：1).selectcasex2).y="星期五"3).CaseElse

第3題'【程序填空】

'功能：以下程序段用于求∑n!

'

PrivateSubForm_Click()

DimsumAsInteger,nAsInteger

n=InputBox("請輸入一個正整數(shù)")

sum=0

Fori=1Ton

'SPACE

sum=【?】

Nexti

Printsum

EndSub

PrivateFunctionmul(ByValxAsInteger)

DimsAsInteger,iAsInteger

s=1

'SPACE

Fori=1To【?】s=s*iNexti'SPACE【?】EndFunction答案：1).sum+mul(i)2).x3).mul=s四、程序改錯共3題（共計30分）第1題'【程序改錯】'題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果為5個數(shù)一行。'OptionExplicitPrivateSubForm_Click()ClsDimxAsIntegerDimiAsInteger'FOUNDi=1Forx=1To40If(x/3)=(x\3)Then'FOUNDPrintxi=i+1EndIfIfiMod5=0ThenPrintEndIf'FOUNDstepiEndSub答案：1).i=02).Printx;或?x;3).Nextx或Next第2題'【程序改錯】'題目:程序功能為求解一元二次方程的實根，請修正程序中錯誤。'OptionExplicitPrivateSubForm_Load()Dima!,b!,c!,root1#,root2#,workAsDoublea=Val(InputBox("請輸入系數(shù)a的值"))b=Val(InputBox("請輸入系數(shù)b的值"))c=Val(InputBox("請輸入系數(shù)c的值"))'FOUND

work=b*2-4*a*c

Ifwork>=0Anda<>0Then

'FOUND

root1=(Sqr(work))/(2*a)'FOUNDroot2=(Sqr(work))/(2*a)Debug.Print"有二個實根"+Str$(root1)+","+Str$(root2)ElseDebug.Print"無實根!"EndIfEndSub答案：1).work=b^2-4*a*c或work=b*b-4*a*c2).root1=(-b+Sqr(work))/(2*a)或root1=(Sqr(work)-b)/(2*a)或root1=(-b+Sqr(work))/(a*2)3).root2=(-b-Sqr(work))/(2*a)或root2=(-Sqr(work)-b)/(2*a)或root2=(-b-Sqr(work))/(a*2)第3題'【程序改錯】'題目:本程序求3~100之間的全部素數(shù)（質(zhì)數(shù)）并統(tǒng)計個數(shù)；同時將這些素數(shù)從小到大依次寫入次前言件c:\dataout.txt；素數(shù)的個數(shù)顯示在窗體Form1上。'

DimCountAsInteger,FlagAsBoolean

Dimt1AsInteger,t2AsInteger

'FOUND

Ift1Modt2=0ThenFlag=False

Nextt2

'FOUND

Count=Count+1

'FOUND

Write#1,t2

1).Open"dataout.txt"ForOutputAs#1或Open"dataout.txt"ForOutputAs1

2).IfFlagThen或IfFlag=trueThen

3).Write#1,t1或Write1,t1

五、程序設(shè)計共2題（共計20分）

第1題'【程序設(shè)計】

'題目：

(事件)雙擊窗體。

(響應(yīng))s=20+21+22+

+263，求

s的值，并將結(jié)果儲藏到變量

S中。'

答案：

DimiAsInteger

i=20

Whilei<=263

s=s+i

i=i+1

Wend

Print(CStr(s))

第2題

'【程序設(shè)計】'題目：

(事件)單擊窗體。

(響應(yīng))編寫程序求

10×11×12+11×12×13++15×的16結(jié)×果17，并將結(jié)果輸出到窗體上。將結(jié)果存入變量

M中'

答案：

Dimi,jAsInteger

DimsAsLong

Fori=10To15

s=1

Forj=iToi+2

s=s*j

Next

m=m+s

Next

Print(CStr(m))

試卷編號：8111

一、判斷共20題（共計20分）

第1題由VisualBasic語言編寫的應(yīng)用程序有講解和編譯兩種執(zhí)行方式.答案：

Y第2題在VB中,運算"ABCDE123A"Like"[a*a]"的結(jié)果是True.答案：Y

第3題在圖片框中放置的控件既能夠在該圖片框內(nèi)搬動,也能夠移出該圖片框外.答案：N

第4題在MsgBox函數(shù)中prompt參數(shù)是必定的.答案：Y

第5題VB支持彈出菜單,所謂"彈出菜單"是指單擊鼠標(biāo)后打開的菜單.答案：N

第6題Listl.clear是除去Listl的全部列表項,因此Clear是對象的方法.答案：Y

第7題在過程中用Dim和Static定義的變量都是局部變量.答案：Y第8題在窗體模塊的聲明部分中用Private聲明的變量的有效范圍是其所在的工程.答案：N第9題通用對話框只能用SHOW方法進行調(diào)用.答案：N第10題對窗體Form內(nèi)各控件不能夠用鼠標(biāo)隨意精確定位是由于窗體中的定位網(wǎng)格起作用.Y第11題在框架控件內(nèi)的幾個單項選擇按鈕中,只能有一個單項選擇按鈕的Value屬性為True.Y第12題從幾十個項目中任選其中一項或多項時可采用列表框或組合框控件實現(xiàn).答案：N第13題若已在窗體中加入了一個通用對話框:要求在運行時,經(jīng)過ShowOpen打開對話框時,只顯示擴展名為DOC的文件,則對通用對話框的Filter的屬性設(shè)置應(yīng)該是:"(*.DOC)|

(.DOC)".答案：N第14題在VB中,用DIM定義數(shù)組時數(shù)組元素也自動賦初值為0.答案：N第15題利用PrivateConst聲明的符號常量,在代碼中不能夠夠再賦值.答案：Y第16題在VB中,計時器(Timer)如期激活Timer事件,使Timer中的代碼執(zhí)行一次.答案：Y第17題若是一個菜單項的Visible屬性為False,則它的子菜單也不會顯示.答案：Y第18題經(jīng)過改變屬性窗口中的Name屬性,能夠改變窗體上顯示的標(biāo)題.答案：N第19題在VB中,運算"D"Like"[!A-Z]"的結(jié)果是True.答案：N

第20題在利用通用對話框件顯示字體對話框從前必定設(shè)置Flags屬性,否則將發(fā)生不存在字

體的錯誤.Y

二、單項選擇共20題（共計20分）

第1題用戶能夠經(jīng)過設(shè)置菜單項的()屬性值為FALSE來使該菜單項不能見.A:HideB:CheckedC:VisibleD:Enabled

答案：

C第2題要使得窗體在出現(xiàn)從前就完成相關(guān)的程序設(shè)置可在

()事件中進行編程

.A:linkopenB:KeyPressC:loadD:click

答案：C第3題窗體的Caption屬性的作用是().A:確定窗體的名稱B:確定窗體的標(biāo)題

第4題"對象"是計算機系統(tǒng)運行的().

C:確定窗體的界線種類

D:確定窗體的字體

B程序單位B:邏輯單位C:物理實體D:基本實體答案：D

第5題設(shè)a=10,b=5,c=1,執(zhí)行語句Printa>b>c后,窗體上顯示的是().

A:TrueB:FalseC:1D:出錯信息答案：B

第6題在窗體上建立了多個控件,如TEXT、LABEL1、COMMAND1,若要使程序一運行焦點就定位在COMMAND1控件上,應(yīng)將COMMAND1控件的()設(shè)置為0.

A:INDEXB:TABINDEXC:TABSTOPD:ENABLED答案：B第7題將通用對話框種類,設(shè)置為字體對話框,可更正該控件的()屬性.A:fontB:filenameC:filterD:action答案：D第8題設(shè)置列表框選中的文本用()屬性.A:selectedB:captionC:textD:list答案：D第9題能夠改變窗體邊框線種類的屬性是().A:FontStyleB:BorderStyleC:BackStyleD:Border答案：B第10題以下哪個變量的取法是不正確的().A:sTmeB:T_TempC:T12%D:T_12答案：C第11題選中復(fù)選框控件時,value屬性的值,能夠是().A:TrueB:falseC:0D:1答案：D第12題要除去已經(jīng)在圖片框Picture中打印的字符串而不除去圖片框中的圖像,應(yīng)使用語句().A:A.P1.ClsB:P1.picture=LoadPicture("")C:P1.Print""D:P1.piture""答案：A第13題控件內(nèi)的對齊方式()屬性決定.A:AlignmentB:WordWrapC:AtuoSizeD:Style答案：A第14題除去列表框的全部選項應(yīng)選擇以下哪一種方法().A:ClearB:ClsC:ClearItemD:RemoveItem答案：A第15題以下賦值語句正確的選項是().A:Text1.text=Text.text+Text2.textB:T=Text1.Name+Text2.NameC:Text1.Caption=Text1.Caption+Text2.CaptionD:Text1.Enable=Text1.Enable+Text2.Enable答案：A

第16題已知A?B?C中C最小,則判斷A?B?C能否組成三角形三條邊長的邏輯表達式是().A:A>=BAndB>=CAndC>0B:A+C>BAndB+C>AAndC>0C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>0

答案：

B第17題形狀控件所顯示的圖形不能能是().

A:圓B:橢圓C:圓角正方形D:等邊三角形答案：D第18題要在圖片框P1中打印字符串"HowAreYou",應(yīng)使用語句().

A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")

C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C

第19題文本框中選定的內(nèi)容,由以下()屬性反響.A:TextB:CaptionC:SeltextD:sellenght答案：C第20題在一個語句行內(nèi)寫多條語句時,語句之間應(yīng)該用()分開.逗號B:分號C:頓號D:冒號答案：D

三、程序填空共2題（共計10分）

第1題'【程序填空】

'題目：以下程序的功能如(圖1)。

'

PrivateSubForm_Click()

Dima%,b%,c%,d!

Dimx1,x2

Dimp,q,r

a=InputBox("請輸入a的值")

b=InputBox("請輸入b的值")

c=InputBox("請輸入c的值")

d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

'SPACE

If【?】Then

r=Sqr(d)/(2*a)

x1=p+r

x2=p-r

Else

x1=p

x2=p

'SPACE

?】

Print"x1=";x1,"x2=";x2

'SPACE

?】

q=Sqr(-d)/(2*a)

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：1).d>0或0<d2).EndIf3).Else

第2題

'【程序填空】'下面過程

max()用于求

3個數(shù)中最大值，利用這個過程求

5個數(shù)中最大值。'

PrivateSubForm_Click()Print"5個數(shù)34、124、68、73、352的最大值是："

max1=max(34,124,68)

'SPACE

max1=【?】

Printmax1

EndSub

PublicFunctionmax(ByVala%,ByValb%,ByValc%)

'SPACEIf

【?】

Thenm=a

Else

m=b

EndIf

'SPACEIf

【?】

Thenmax=m

Else

max=c

EndIf

EndFunction答案：1).max(max1,73,352)2).a>b

四、程序改錯共2題（共計10分）

第1題'【程序改錯】

或

b<a3).m>c

或

c<m'題目：請更正程序中錯誤，保證程序最后輸出收效如圖

1所示。'注意：不能增加或刪除程序行，也不能夠夠更正程序結(jié)構(gòu)

'

PrivateSubForm_Click()

DimiAsInteger

Fori=1To7

'FOUNDPrintSpc(7);

'FOUND

Ifi>=1Then

Print"*"

Else

'FOUND

Print"*";Spc(2*(i-1));"*"

EndIf

Nexti

EndSub

答案：1).PrintSpc(7-i);2).Ifi=1Then

或

If1=iThen3).Print"*";Spc(2*(i-1)-1);"*"

第2題'【程序改錯】

'題目：該程序的功能是經(jīng)過鍵盤給一維數(shù)組a輸入10個整數(shù)，爾后將一維數(shù)組的這些數(shù)賦

值給一個2行5列的二維數(shù)組。最后在一行內(nèi)輸出一維數(shù)組、在兩行內(nèi)輸出二維數(shù)組。不能增加或刪除程序行，也不能夠夠更正程序結(jié)構(gòu)

'

PrivateSubForm_Click()

Dima(10),b(2,5)AsInteger

dimiasinteger,kasinteger,jasinteger

Fori=1To10

a(i)=InputBox("請供應(yīng)10個整數(shù)給數(shù)組")

a(i)=Val(a(i))

Nexti

k=0

Fori=1To2

Forj=1To5

k=k+1

b(i,j)=a(k)

Nextj

Nexti

PrintTab(10);"數(shù)組a的值"

PrintTab(10);

Fori=1To10

'FOUND

Printa(i)

Nexti

Print

PrintTab(10);"二維數(shù)組b的值是:"

Fori=1To2

PrintTab(10);

Forj=1To5

'FOUND

Printb(j,i);

Nextj

'FOUND

Paintb(i,j)

Nexti

EndSub

答案：1).Printa(i);2).print(i,j)3).Print

五、程序設(shè)計共2題（共計20分）

第1題'【程序設(shè)計】

'題目：(事件)單擊窗體。(響應(yīng))編寫代碼功能如(圖1)。將結(jié)果存入變量Sum中。使用

while...wend語句完成程序

'注意：請在指定的事件內(nèi)編寫代碼。

'

答案：

DimiAsInteger

i=1

whilei<=10

sum=sum+i^i

i=i+1

wend

Printsum

第2題'【程序設(shè)計】

'題目：(事件)雙擊窗體。(響應(yīng))把一元鈔票換成一分、二分和五分的硬幣（每種最少有一枚），

求出其全部的換法，把結(jié)果輸出在窗體上。將全部的換法的數(shù)目存入變量N中

'注意：請在指定的事件內(nèi)編寫代碼。

'

答案：

Dimi,j,kAsInteger

Fori=1To100

Forj=1To50

Fork=1To20

If((i+2*j+k*5)=100)Then

Print(CStr(i))

Print(CStr(j))

Print(CStr(k))

n=n+1

EndIf

Next

Next

Next

六、VB窗體設(shè)計共4題（共計20分）

第1題【窗體設(shè)計】

題目：請依照題目要求設(shè)計指定的窗體。建立如

(圖1)所示界面。

1：增加控件在窗體內(nèi)增加3個文本框(Text1，Text2，Text3)，

3個標(biāo)簽(Label1，Label2，Label3)，

2個水平轉(zhuǎn)動條(HScroll1，HScroll2)。

2：窗體設(shè)置：

設(shè)置窗體名稱(Name)為“Form6”。

設(shè)置窗體標(biāo)題(Caption)為“VB上機試卷”。

3：文本框設(shè)置：

在第1個文本框(Text1)中輸入文本(Text)“顏色彩節(jié)”，

設(shè)置文本的對齊方式為“居右對齊”。

設(shè)置第2個文本框(Text2)的內(nèi)容為空。

設(shè)置第3個文本框(Text3)的內(nèi)容為空。

全部文本框的字體、字號可任選。

4：標(biāo)簽設(shè)置：

設(shè)置第1個標(biāo)簽(Label1)標(biāo)題(Caption)為“文本框的前景色”。

設(shè)置第2個標(biāo)簽(Label2)標(biāo)題(Caption)為“文本框的背景色”。

設(shè)置第3個標(biāo)簽(Label3)標(biāo)題(Caption)為“當(dāng)前值”。

5：轉(zhuǎn)動條設(shè)置：適合調(diào)整水平轉(zhuǎn)動條的大小和地址。

第2題【窗體設(shè)計】

題目：請依照題目要求設(shè)計指定的窗體。建立如

(圖1)所示界面。

1：增加控件

增加菜單，名稱為menu_File，名稱為menu_Set。

在menu_Set下增加2個子菜單，名稱為menu_Set_Back和menu_Set_Fore。

在menu_Set_Back下增加3個子菜單名稱為menu_Set_Back_Red，

menu_Set_Back_Green，menu_Set_Back_Blue)。

2：窗體設(shè)置

窗體名稱(Name)為“Form4”。

窗體標(biāo)題(Caption)為“VB”。

3：菜單設(shè)置

設(shè)置菜單(menu_File)的標(biāo)題(Caption)為“文件(&F)”，并將菜單項設(shè)為

“無效”。

設(shè)置菜單(menu_Set)的標(biāo)題(Caption)為“設(shè)置(&S)”。

設(shè)置菜單(menu_Set)下的菜單(menu_Set_Back)的標(biāo)題(Caption)為“背景色”。設(shè)置菜單(menu_Set)下的菜單(menu_Set_Fore)的標(biāo)題(Caption)為“前景色”。設(shè)置菜單(menu_Set_Back)下的菜單(menu_Set_Back_Red)的標(biāo)題(Caption)

為“紅”，快捷鍵為Ctrl+A。

設(shè)置菜單(menu_Set_Back)下的菜單(menu_Set_Back_Green)的標(biāo)題(Caption)為“綠”，快捷鍵為Ctrl+B。

設(shè)置菜單(menu_Set_Back)下的菜單(menu_Set_Back_Blue)的標(biāo)題(Caption)為“藍(lán)”，快捷鍵為Ctrl+C。

第3題【窗體設(shè)計】

題目：請依照題目要求設(shè)計指定的窗體。建立如

(圖1)所示界面。

1：在窗體內(nèi)增加1個文本框(Text1)，3個標(biāo)簽(Label1，Label2，Label3)，3個按鈕(Command1，Command2，Command3)，1個組合框(Combo1)。

2：窗體設(shè)置：

設(shè)置窗體名稱(Name)為“Form9”。

設(shè)置窗體標(biāo)題(Caption)為“VB”。

3：標(biāo)簽設(shè)置：

設(shè)置第1個標(biāo)簽(Label1)的標(biāo)題(Caption)為“人員登記表”。

設(shè)置第2個標(biāo)簽(Label2)的標(biāo)題(Caption)為“姓名:”。

設(shè)置第3個標(biāo)簽(Label3)的標(biāo)題(Caption)為“性別:”。

標(biāo)簽中的字體、字號可隨意選擇。

4：組合框設(shè)置：

適合設(shè)置組合框的大小和地址。

5：文本框設(shè)置：

設(shè)置文本框(Text1)的內(nèi)容(Text)為空。

6：按鈕設(shè)置：

設(shè)置第1個按鈕(Command1)的標(biāo)題(Caption)為“增加”。

設(shè)置第2個按鈕(Command2)的標(biāo)題(Caption)為“取消”。

設(shè)置第3個按鈕(Command3)的標(biāo)題(Caption)為“退出”。

第4題【窗體設(shè)計】

題目：請依照題目要求設(shè)計指定的窗體。建立如(圖1)所示界面：請按所給窗體的樣子設(shè)計

窗體（不要求控件的尺寸相同，運行時獲得所給窗體即可，有時需要簡單的事件過程）。

1：在窗體內(nèi)增加2個按鈕(Command1，Command2)，3個列表框(List1，List2，List3)，3個標(biāo)簽(Label1，Label2，Label3)，2個框架(Frame1，F(xiàn)rame2)，3個文本框(Text1，Text2，Text3)。

并在框架(Frame1)中增加1個復(fù)選框(Check1)，1個組合

框(Combo1)，1個標(biāo)簽(Label4)。

在框架(Frame2)中增加1個標(biāo)簽(Label5)。

2：窗體設(shè)置：

設(shè)置窗體名稱(Name)為“Form30”。

設(shè)置窗體標(biāo)題(Caption)為“字體”。

3：標(biāo)簽設(shè)置：

設(shè)置第1個標(biāo)簽(Label1)的標(biāo)題(Caption)為“字體(&F):”。

設(shè)置第2個標(biāo)簽(Label2)的標(biāo)題(Caption)為“字型(&Y):”。

設(shè)置第3個標(biāo)簽(Label3)的標(biāo)題(Caption)為“字號(&S):”。

4：文本框設(shè)置：

設(shè)置第1個文本框(Text1)的文本(Text)為“宋體”。

設(shè)置第2個文本框(Text2)的文本(Text)為“粗體”。

設(shè)置第3個文本框(Text3)的文本(Text)為“五號”。

5：列表框設(shè)置：

在第1個列表框(List1)中輸入文本“黑體”，“宋體”，“隸書”，“幼圓”。

在第2個列表框(List2)中輸入文本“規(guī)則”，“斜體”，“粗體”，“粗斜體”。

在第3個列表框(List3)中輸入文本“一號”，“二號”，“三號”，“四號”，“五號”。

6：按鈕設(shè)置：

設(shè)置第1個按鈕(Command1)的標(biāo)題(Caption)為“確定”。

設(shè)置第2個按鈕(Command2)的標(biāo)題(Caption)為“取消”。

7：框架設(shè)置：

設(shè)置第1個框架(Frame1)的標(biāo)題(Caption)為“特特收效”。

設(shè)置第1個框架(Frame1)中的復(fù)選框(Check1)的標(biāo)題(Caption)為“下劃線(&U)”。

設(shè)置第1個框架(Frame1)中的標(biāo)簽(Label4)的標(biāo)題(Caption)為“顏色(&C):”。

適合調(diào)整第1個框架(Frame1)中的組合框(Combo1)的大小和地址。

設(shè)置第2個框架(Frame2)的標(biāo)題(Caption)為“示范”。

設(shè)置第2個框架(Frame2)中的標(biāo)簽(Label5)的標(biāo)題(Caption)為“中文字體AaBbCc”。

試卷編號：8108

一、判斷共20題（共計20分）第1題VB經(jīng)過窗體管理組成應(yīng)用程序的各樣文件的會集.答案：N第2題若是一個列表框一共有5個選項,而當(dāng)選中第三項時,這時列表框的ListIndex屬性為2.Y第3題用VB6.0僅能開發(fā)擁有窗口菜單的應(yīng)用程序,開發(fā)的應(yīng)用中不能夠支持彈出式菜單.答：N第4題直線控件能夠在窗體上拖動,因此它擁有MOVE方法.答案：N第5題列表框包括了組合框的功能.答案：N第6題在表達式中,運算符兩端的數(shù)據(jù)種類要求一致.答案：Y第7題能夠利用鍵盤光標(biāo)選擇菜單項,因此可響應(yīng)KeyPress事件.答案：N第8題在盤驅(qū)動器列表框Drive1的Change事件過程中,代碼Dir1.Path=Drive1.Drive的作用是:當(dāng)Drive1的驅(qū)動器改變時,Dir1的目錄列表隨不相同驅(qū)動器的作相應(yīng)改變.答案：Y第9題VB規(guī)定窗體文件的擴展名是.vbp.答案：N第10題在Sub過程中,能夠用Return語句退出Sub過程.答案：Y

第11題VB若同一個工程有好多窗體,能夠指定任一窗體為啟始窗體.答案：Y第12題列表框的中的項目不能夠夠多列顯示.答案：N第13題準(zhǔn)時將文本框中的數(shù)據(jù)保留到磁盤,應(yīng)用于采用Timer計時器控件.答案：Y第14題由VisualBasic語言編寫的應(yīng)用程序有講解和編譯兩種執(zhí)行方式.答案：Y第15題對象是基本的運行實體,它既包括了數(shù)據(jù)(屬性).也包括作用于對象的操作(方法)和對象的響應(yīng)動作(事件).答案：Y

第16題在VB中將一些通用的過程和函數(shù)編寫好并封裝作為方法供用戶直接調(diào)用.答案：Y第17題除去list1列表框?qū)ο蟮膬?nèi)容的語句是list1.cls.答案：N第18題由變量名對變量的內(nèi)容進執(zhí)行用或更正,則使用變量就是引用變量的內(nèi)容.答案：Y第19題在VisualBasic中Dima,b,casinteger和Dimaasinteger,basinteger,casinteger相同.答案：N第20題在VB6.0中,若是要使窗體上的多個控件擁有相同的尺寸,在選擇了這些控件此后,應(yīng)執(zhí)行VB"格式"菜單中的命令.答案：Y二、單項選擇共20題（共計20分）第1題能夠獲得一個文本框中被采用文本的內(nèi)容的屬性是().A:TextB:LengthC:SelTextD:SelStart答案：C第2題計時器的interval屬性為0時,表示().A:計時器無效B:相隔0秒C:相隔0毫秒

D:計時器的

enable屬性為

false答案：

A第3題以下關(guān)于屬性設(shè)置的表達錯誤的選項是

().一個控件擁有什么屬性是VB起初設(shè)計好的,用戶不能夠改變B:一個控件擁有什么屬性是VB起初設(shè)計好的,用戶能夠改變

C:一個控件的屬性即能夠在屬性窗口中設(shè)置,也能夠用程序代碼設(shè)置

D:一個控件的屬性在屬性窗口中設(shè)置,還可以夠利用程序代碼為其設(shè)置新值

第4題要使一個文本框擁有水平和垂直轉(zhuǎn)動條,則應(yīng)先將其MultiLine

答案：A屬性設(shè)置為

True,爾后

再將ScrollBar屬性設(shè)置為().

A:0B:1C:2D:3答案：D

第5題已知A?B?C中C最小,則判斷A?B?C能否組成三角形三條邊長的邏輯表達式是().

A:A>=BAndB>=CAndC>0B:A+C>BAndB+C>AAndC>0

C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>0答案：B

第6題用語句DimA(-3To5)AsInteger定義的數(shù)組的元素個數(shù)是().

A:6B:7C:8D:9答案：D

第7題若是TAB函數(shù)的參數(shù)小于1,則打印地址在第()列.

A:0B:1C:2D:3答案：B

第8題錢幣型數(shù)據(jù)需()字節(jié).

A:2B:4C:6D:8答案：D

第9題在程序代碼中更正轉(zhuǎn)動條的value屬性時將激發(fā)轉(zhuǎn)動條的()事件.

A:changeB:scrollC:dragdropD:gotfocus答案：A

第10題在中斷狀態(tài)下能夠運行代碼,也能夠在運行狀態(tài)中作為輸出結(jié)果的窗口稱為().

A:當(dāng)?shù)卮翱贐:馬上窗口C:觀察窗口D:棧窗口答案：B

第11題文本框控件中將Text的內(nèi)容全部顯示為所定義的字符的屬性項是().

A:PasswordCharB:需要編程來實現(xiàn)C:PasswordD:以上都不是答案：A

第12題下面()控件不擁有Caption屬性.

A:標(biāo)簽框B:單項選擇鈕C:命令按鈕D:文本框答案：D

第13題Rnd函數(shù)不能能產(chǎn)生的()值.

A:0B:1C:0.1234D:.00005答案：B

第14題若是X是一個正的實數(shù),將千分位四舍五入,保留兩位小數(shù)的表達式是().

A:0.01*int(x+0.05)B:0.01*int(100*(x+0.005))

C:0.01*int(100*(x+0.05))D:0.01*int(x+0.005)答案：B

第15題OPTIONEXPLICIT語句不能夠夠放在().

A:窗體模塊的聲明段中B:標(biāo)準(zhǔn)模塊的聲明段中C:類模塊的聲明段中D:任何事件過程中D

第16題以下各項變量中,哪一項所占的內(nèi)存空間最多().

A:dimxascurrencyx=99B:dimst1asstringst1='good'

C:dimst2asstringst2='goodbye'D:dimdasdatad='1898/09/12'答案：C

第17題骰子是一個正六面體,分別用1~6代表這六個面,擲一次骰子出現(xiàn)的數(shù)可表示為().A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)答案：A第18題為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程,需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是().A:ValueB:DefaultC:CancelD:Enabled答案：B第19題設(shè)在窗體上有兩個命令按鈕,其中一個命令按鈕的名稱為cmda,則另一個命令按鈕的名稱不能夠是().A:cmdcB:cmdbC:cmdAD:Command1答案：C第20題以下對變量的定義中,不能夠定義A為變體變量的是().A:DIMAASDOUBLEB:DIMAASVARIANTC:DIM;AD:A=24答案：A三、程序填空共2題（共計10分）第1題'【程序填空】'題目：以下程序的功能如(圖1)。'PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("請輸入a的值")b=InputBox("請輸入b的值")

c=InputBox("請輸入c的值")

d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

'SPACE

If【?】Then

r=Sqr(d)/(2*a)

x1=p+r

x2=p-r

Else

x1=p

x2=p

'SPACE

?】

Print"x1=";x1,"x2=";x2

'SPACE

?】

q=Sqr(-d)/(2*a)

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：1).d>0或0<d2).EndIf3).Else

第2題'【程序填空】

'下面過程max()用于求3個數(shù)中最大值，利用這個過程求5個數(shù)中最大值。

'

PrivateSubForm_Click()

Print"5個數(shù)34、124、68、73、352的最大值是："

max1=max(34,124,68)

'SPACE

max1=【?】

Printmax1

EndSub

PublicFunctionmax(ByVala%,ByValb%,ByValc%)

'SPACE

If【?】Then

m=a

Else

m=b

EndIf

'SPACE

If【?】Then

max=m

Else

max=c

EndIf

EndFunction

答案：

1).max(max1,73,352)2).a>b

或

b<a3).m>c

或

c<m

四、程序改錯

共

2

題（共計

10分）

第1題

'【程序改錯】

'題目：以下程序功能是輸入三個數(shù)，由大到小排序。

'注意：不能增加或刪除程序行，也不能夠夠更正程序結(jié)構(gòu)

'

DimAAsInteger

DimBAsInteger

DimCAsInteger

PrivateSubForm_Click()

DimnTempAsInteger

A=Val(InputBox("Pleaseinputfirstinteger","

輸入正整數(shù)

"))

B=Val(InputBox("Pleaseinputsecondinteger","

輸入正整數(shù)

"))

C=Val(InputBox("Pleaseinputthirdinteger","

輸入正整數(shù)

"))

'FOUND

IfA<=CThen

nTemp=A

A=B

B=nTemp

EndIf

'FOUND

IfB<=CThen

nTemp=A

A=C

C=nTemp

EndIf

'FOUND

IfA<=BThen

nTemp=B

B=C

C=nTemp

EndIf

Print"Theintegersinorderis";A;B;C

EndSub

答案：1).IfA<=BThen或IfB>=AThen

2).IfA<=CThen或IfC>=AThen

3).IfB<=CThen或IfC>=BThen

第2題'【程序改錯】

'題目:輸入一個字符串，將全部的小寫字母都變換為大寫字母。

'注意：不能增加或刪除程序行，也不能夠夠更正程序結(jié)構(gòu)

'

PrivateSubForm_Click()

Dims1AsString,s2AsString,iAsInteger,tAsString

s1=InputBox("輸入字符串，#號結(jié)束")

i=1

'FOUND

s1=Mid(s1,i,1)

Whilet<>"#"

'FOUND

Ift>="a"Andt<="z"Thent=Chr(Asc(t)-30)

s2=s2+t

i=i+1

t=Mid(s1,i,1)

Wend

'FOUND

Print"新字符串為：";s1

EndSub

答案：1).t=Mid(s1,i,1)

2).Ift>="a"Andt<="z"Thent=Chr(Asc(t)-32)

3).Print"新字符串為:";s2

五、程序設(shè)計共2題（共計20分）

第1題'【程序設(shè)計】

'題目：(事件)雙擊窗體。

(響應(yīng))求1+5+10+15++500的和，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。

'注意：請在指定的事件內(nèi)編寫代碼。

'

答案：

DimiAsInteger

Fori=1To500

IfiMod5=0Then

sum=sum+i

EndIf

Next

Printsum

第2題'【程序設(shè)計】

'題目：(事件)單擊窗體。(響應(yīng))求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中

'注意：請在指定的事件內(nèi)編寫代碼。

'

答案：

DimiAsInteger

Fori=1To100

IfiMod2=0Then

sum=sum+i

EndIf

Next

Printsum

六、VB窗體設(shè)計共4題（共計20分）

第1題【窗體設(shè)計】

題目：請依照題目要求設(shè)計指定的窗體。建立如(圖1)所示界面：請按所給窗體的樣子設(shè)

計窗體，不要求控件的尺寸相同，運行時獲得所給窗體即可，有時需要簡單的事件過程。

1：在窗體內(nèi)增加2個按鈕(Command1，Command2)，3個組合框(Combo1，

Combo2，Combo3)，1個文本框(Text1)，6個標(biāo)簽(Label1，Label2，

Label3，Label4，Label5，Label6)，2個復(fù)選框(Check1，Check2)。

2：窗體設(shè)置：

設(shè)置窗體名稱(Name)為“Form22”。

設(shè)置窗體標(biāo)題(Caption)為“字體”。

3：標(biāo)簽設(shè)置：設(shè)置第1個標(biāo)簽(Label1)的標(biāo)題(Caption)為“字體”。設(shè)置第2個標(biāo)簽(Label2)的標(biāo)題(Caption)為“字符間距”。設(shè)置第3個標(biāo)簽(Label3)的標(biāo)題(Caption)為“文字收效”。設(shè)置第4個標(biāo)簽(Label4)的標(biāo)題(Caption)為“縮放”。設(shè)置第5個標(biāo)簽(Label5)的標(biāo)題(Caption)為“間距”。設(shè)置第6個標(biāo)簽(Label6)的標(biāo)題(Caption)為“地址”。

4：文本框設(shè)置：

在文本框(Text1)中輸入文本(Text)“12?！?/p>

5：組合框設(shè)置：

設(shè)置組合框(Combo1)的文本(Text)為“75%”。

設(shè)置組合框(Combo2)的文本(Text)為“加寬”。

設(shè)置組合框(Combo3)的文本(Text)為“提升”。

6：復(fù)選框設(shè)置：

設(shè)置第1個復(fù)選框(Check1)的標(biāo)題(Caption)為“調(diào)整字體的字間距”。

設(shè)置第2個復(fù)選框(Check2)的標(biāo)題(Caption)為“若是定義了網(wǎng)格,則對齊網(wǎng)格”。

兩個復(fù)選框均為選中狀態(tài)。

7：按鈕設(shè)置：

設(shè)置按鈕(Command1)的標(biāo)題(caption)為“確