最新VB8S庫(kù)及答案

壹、選擇題

第1部分

1、在窗體(名稱(chēng)懸Forml)上畫(huà)壹種名稱(chēng)懸Textl的文本框和壹種名稱(chēng)卷

Commandl的命令按鈕，然彳爰編寫(xiě)壹種事件謾程。程序運(yùn)行彳機(jī)假如在文本框中

輸入壹種字符，則把命令按鈕的檄1S設(shè)置卷”計(jì)算機(jī)等級(jí)考試如下能實(shí)琨上述

操作的事件遇程是

A、PrivateSubTextlChange()

Commandl.Caption="計(jì)算機(jī)等級(jí)考試"

EndSub

B、PrivateSubCommandl_Click()

Caption二”計(jì)算機(jī)等級(jí)考試“

EndSub

C、PrivateSubForm_Click()

Textl.Caption="計(jì)算機(jī)等級(jí)考試"

EndSub

D、PrivateSubCommandlClick()

Textl.Text="計(jì)算機(jī)等級(jí)考試”

EndSub

2、在壹行內(nèi)寫(xiě)多條^句口寺，每他言吾句之間用()符號(hào)分隔。

As,C、.D、；

3、下面（）是合法的變量名。

B、123ABCC、INTEGERD、X-Y

4、下面（）是合法的字符常量。

A、ABC$B、"ABC"C、'ABC'D、ABC

5、體現(xiàn)式16/4-2八5*8MOD5\2的值卷()?

A、14C、20D、2

6、設(shè)a=,,MicrosoftVisualBasic,\則如下使變量的b值封'VisualBasic”的言吾句是

A、b=Left(a,10)B、b=Mid(a,10)

C、b=Right(a,10)D、b=Mid(a,llt10)

7、設(shè)a二"a",b="b",c="c",d="d",執(zhí)行^句x=llf((a<b)Or(c>d),”A「B”)

彳麥,x的值懸

A,"a"B、C、“B"D.."A"

8、在窗體上畫(huà)壹種文本框，然彳令編寫(xiě)如下事件謾程：

PrivateSubForm_Click()

x=InputBox（喘青輸入壹種整數(shù)"）

Printx+Textl.Text

EndSub

程序運(yùn)行口寺，在文本框中輸入456,然彳麥罩擊窗體，在輸入封話框中輸入123,M

擊“確定”按鈕彳麥，在窗體上顯示的內(nèi)容懸

A、123B、456C、579D、123456

9、在BASIC中，三他邏輯運(yùn)算符NOT,AND,OR在運(yùn)算遇程中，優(yōu)先級(jí)彳住高到

低的次序是（）o

A、AND->NOT->ORB、NOT->ANC->OR

C、OR->NOT->ANDD、NOT->OR->AND

10、下面程序段運(yùn)行日寺內(nèi)層循環(huán)的循環(huán)東恩次數(shù)（）。

FORX=1TO2

FORY二ITOX

NEXTY

NEXTX

A.、1B、2D、4

11s在VB中,復(fù)寫(xiě)框（Check）的Value值有三種，分別是（）。

A、-1,0,1B、0,1,2

C、1,2,3D、True,False,0

PrivateSubTimerl_Timer()

Text1.Text=Time

EndSub

在一處應(yīng)填入的內(nèi)容是

A、Enabled=TrueB、Enabled=FalseC、Visible=TrueD、Visible=False

17、把窗體的KeyPreview屬性設(shè)置程卷True,然彳爰編寫(xiě)如下事件遇程

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCcse(ch))

PrintChr(KeyAscii+2)

EndSub

程序運(yùn)行彳爰，按鍵盤(pán)上的“A”鍵，則在窗體上顯示的內(nèi)容是

AsAB、BC、CD、D

18、VB中的變量假如沒(méi)有顯示申明其數(shù)據(jù)類(lèi)型，則默認(rèn)懸()

A、日期型B、數(shù)據(jù)型C、字符型D、變體型

19、在VB中，通謾變化列表框()屬性的值，可認(rèn)懸列表框添加項(xiàng)目。

B、(名稱(chēng))C、CaptionD、Text

20、已知A$="12345678”，則體現(xiàn)式Val(left$(a$,4)+Mid$(a$,4,2))的值卷()。

A、12345B、123445C、8D.6

21、下面程序段顯示的成果是()o

Dimx

Ifxthenprintxelseprintx+1

A.1B、0C.s-1D、顯示出金者信息

22、用來(lái)測(cè)試指定文獻(xiàn)結(jié)束狀態(tài)的函數(shù)是()

A、EofB、FreeFileC、LocD、Open

23、1Long類(lèi)型數(shù)據(jù)與Single類(lèi)型運(yùn)算日寺，運(yùn)算成果的類(lèi)型懸()。

A、IntegerB、LongC、SingleD、Double

24、某壹VB工程含F(xiàn)LF2兩他窗體，執(zhí)行“Fl.Show：F2.Hide嗡句彳機(jī)Fl、

F2窗體顯示的成果懸()o

A、都顯示B、都不顯示C、僅顯示Fl窗體D、僅顯示F2窗體

25、數(shù)擘關(guān)系3二<x(10表到達(dá)封的的VB體現(xiàn)式卷()

A、3〈二x<10B、3=<xANDx(10

C、x>=3ORx<10D、3〈=xAND<10

26.在窗體上畫(huà)壹種名稱(chēng)懸Labell的檄簽，然彳令編寫(xiě)如下事件遇程：

PrivateSubFormClick()

Dimarr(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Next]

Nexti

Labell.Caption=Str(arr(2,2)+arr(3,3))

EndSub

程序運(yùn)行彳麥，軍擊窗體，在襟簽中顯示的內(nèi)容是

A、12B、13C、14D、15

27.在窗體上畫(huà)壹種名稱(chēng)懸Listl的列表框，壹種名稱(chēng)卷Labell的本票簽，列表框中

顯示若干彳固項(xiàng)目，常罩由列表框中某他項(xiàng)目日寺，在年票簽中顯示被選中項(xiàng)目的名稱(chēng)。

下列能封的實(shí)現(xiàn)上述操作的程序是

A、PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

B、PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

C、PrivateSubListl_Click()

Labell.Name=Listl.Text

EndSub

D、PrivateSubListlClick()

Labell.Caption=Listl.Text

EndSub

28、設(shè)a=5,b=4,c=3,d=2,下列體壬兄式的值是

3>2*bOra=cAndb<>cOrc>d

A、1B、TrueC、FalseD、2

30、下列操作不能打^代碼窗口的是()

A、選中封象軍擊鼠襟右鍵，在彈出的快捷菜軍中選擇“查看代碼”命令

B、選中堂寸象雙擊鼠用票左鍵

C、按F7鍵

D、按F4鍵

第2部分

1、VB^言的^法規(guī)定多條言吾句放在同壹行中，言吾句之間用()分隔。

A、逗號(hào)B、冒號(hào)C、分號(hào)D、罩引號(hào)

2、在VB中，執(zhí)行“A=18MoD4甯句彳交A的值卷()。

A、2B、4C、6D、8

3、ATrue,BSFalse,則“AandB”和“AOrB”的值分別是()。

A、TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse

4、在VB中，執(zhí)行“DimA,BAsString”言吾句彳爰，A,B的數(shù)據(jù)構(gòu)造卷()。

A、整型數(shù)B、實(shí)型數(shù)C、字符型D、字節(jié)型

5、在VB中,執(zhí)行“A二123：B=Str$(A)”整包魚(yú)B的數(shù)據(jù)構(gòu)造卷()。

A、整型數(shù)、B、字節(jié)型C、實(shí)型數(shù)D、字符型

6、在VB中，復(fù)寫(xiě)框(Check)的Value值有三種，分別是()。

A、-1,0,1B、0,1,2C、1,2,3D、True,False,0

7、若要退出For循環(huán)，可使用的言吾句卷()。

A、ExitB、ExitDoC、Time

8、運(yùn)用VB設(shè)計(jì)程序的基本環(huán)節(jié)可分四步：

(1)設(shè)計(jì)顧客界；(2)()；(3)運(yùn)行調(diào)試程序；(4)生成執(zhí)行文獻(xiàn)。

A、編寫(xiě)代碼B、設(shè)計(jì)算法C、信息反饋D、系統(tǒng)集成

9、在代碼窗口內(nèi)將表罩Forml的“Caption”屬性設(shè)置寓'曰寺鐘”，封的的善寫(xiě)形式是

A、Form.Caption"日寺鐘”

C、Caption="日寺鐘"D、Fopm.Caphon（"畤鐘”）

10、保留文獻(xiàn)口寺，窗體的所有數(shù)據(jù)存儲(chǔ)格式卷()。

A、*.PRGB、*.FRMC、*.VBPD、*.EXE

11、窗體初始化程序應(yīng)寫(xiě)在（）事件中。

A、LoadB、UnloadC、ActivateD、GotFocus

12、某壹VB工程含F(xiàn)l、F2兩值I窗體，執(zhí)行“Fl.Show:F2.Hide”1§句彳爰，F(xiàn)LF2

窗體顯示的成果懸（），

A、都顯示B、都不顯示C、僅顯示Fl窗體D、僅顯示F2窗體

13、VB的數(shù)據(jù)類(lèi)型分懸（）

A、數(shù)值型、字符型、布爾型、日期型B、數(shù)值型、字符型、封象型、日期型

C、基本類(lèi)型、擴(kuò)展類(lèi)型D、整型、實(shí)型、字符型、日期型、布爾

型

14、VB中的變量假如沒(méi)有顯示申明其數(shù)據(jù)類(lèi)型，則默認(rèn)懸（）

A、曰期型B、數(shù)據(jù)型C、字符型D、變體型

15、在VB中，通遇變化表框（）屬性的值，可認(rèn)卷列表框添加項(xiàng)目。

A、ListB、（名稱(chēng)）C、CaptionD、Text

16、在VB中，三他邏輯運(yùn)算符NOT,AND,OR在運(yùn)算謾程中，優(yōu)先級(jí)優(yōu)高到低

的次序是（）o

A、AND->NOT->ORB、NOT->AND->OR

C、OR->NOT->ANDD、NOT->OR->AND

17、下面程序段運(yùn)行日寺內(nèi)層循環(huán)的循環(huán)^次數(shù)()o

FORX=1TO2

FORY=OTOX-1

NEXTY

NEXTX

As1B、2C、3D、4

18、封的的算術(shù)體現(xiàn)式是()o

A、二3/8+57NT24.6B、8*3/5

C、[(X+Y)*Z]/30D.(XA2+Y/3)*X3

19、￡A=2,B=3,C=4,則值卷真的關(guān)系式是()。

A.12/A+2=BA2B、3>2*BORA=CANDB>CORA>B

C、A>BANDB<=COR3*A>CD、A*B>C+3

20、常Long類(lèi)型數(shù)據(jù)與Single類(lèi)型運(yùn)算畤，運(yùn)算成果的類(lèi)型懸()。

A、IntegerB、LongC、SingleD、Double

21、下面有關(guān)次序文獻(xiàn)的描述封的的是（）o

A.每條記錄度必須相似

B.可通遇編程封文獻(xiàn)中的某條記錄以便的修改。

C.數(shù)據(jù)只能以ASCII碼形式寄存在文獻(xiàn)中，因此可通遇文本編輯軟件顯示。

D.文獻(xiàn)的組織構(gòu)造復(fù)雜。

22、下列（）不屬于YB的控件。

A、窗體B、數(shù)據(jù)C、形狀D、直線

23、下面（）是合法的變量名。

A、XYZB、123+ABCC、INTEGERD、X-Y

24、下面的程序段，輸入9彳麥，輸出成果是（）。

X=inputbox（"輸入壹種數(shù)”）

Selectcasex

Case1to5

Y=-l

Case5to10

Y=C

Case10to15

Y=1

Endselect

A、0B、1C、-1D、2

25、下列^法中封的的是（）。

A、數(shù)組只具有數(shù)組名，而沒(méi)有數(shù)組類(lèi)型

B、數(shù)組只具有數(shù)組類(lèi)型，而沒(méi)有數(shù)組名

C、數(shù)組的類(lèi)型和數(shù)組元素的類(lèi)型不壹樣

D、數(shù)組和變量同樣，均有名稱(chēng)和類(lèi)型造兩種屬性

26、創(chuàng)立公用數(shù)組的措施是（）。

A、在模塊中用Private言吾句申明B、在模塊中用Public言吾句申明

C、在謾程中用Private^句申明D、率謾程中用Public^句申明

不是B就是D

27、VisualBasic6.0中缺省的參數(shù)傳遞機(jī)制是（）。

A、傳值B、傳地址C、傳值和傳地址D、優(yōu)實(shí)參到形參

28、已知A$-12345678”，則體垣式Val(left$(a$,4)+Mid$(a$,4,2))的值懸()。

A、12345B、123445C、8D、6

29、下面封的的賦值^句是()

A、x+y=30B、y二*r*rC、y=x+30D、3y二x

30、要保留勤態(tài)數(shù)組原有的內(nèi)容，應(yīng)常使用0^句。

AsRedimPreserveB、Redim

C、DimC、Public

不是A就是B

二、填空SI(每空2分，共20分)

1、下面的程序是求100以?xún)?nèi)奇數(shù)和s的值(S=1+3+5+7…+99)。言青在有()的地

方填上合適的句或體垣式。(8分)

PrivateSubCommandl_Click()

DimsAsSingle

DimiAsSingle

s=(0)

Fori=lto100(step2)

S=(s+i)

(nexti)

Prints

EndSub

2、在下列程序的()內(nèi)寫(xiě)上合適的內(nèi)容，使能輸出如下圖形。

程序如下：

PrivateSubCommandl_Click()

Fori=lto(6)

Forj=lto(i-6)

Print("*")

Nextj

(PrintString(i."*1))

Nexti

EndSub

3、寫(xiě)出下列程序的執(zhí)行成果

PrivateSubForm_Click(i

Dima(lTo10)AsInteger

Dimb(lTo10)AsInteger

Dimc(lTo10)AsInteger

Fori=1To10

a(i)=i

Nexti

b(l)=10

Forj=9To1Step-1

b(10-j+1)=j

Nextj

Fork=1To10

c(k)=a(k)+b(k)

Nextk

ForI=1To10

Printc(l);

IfI=5Then

Print

EndIf

NextI

EndSub

成果：1111111111

1111111111

4、在窗體上畫(huà)壹種文本框和壹種圖片框，然彳奏編寫(xiě)如下兩彳固事件謾程：

PrivateSubForm_Click()

Textl.text="VB程序設(shè)計(jì)”

EndSub

PrivateSubTextl_Change()

Picturel.Print'VBProgramming"

EndSub

程序運(yùn)行彳機(jī)罩擊窗體，在文本框顯示的內(nèi)容是_VB程序設(shè)計(jì)而在圖片

框顯示的內(nèi)容是_VBProgramming。

5、下列程序輸出的值是多少？

PrivateSubCommandl_Click()

s=0

Fori=9To42Step11

s=s+i

Nexti

Ifi>50Then

s=s+i

日se

s=s-i

EndIf

Prints

EndSub

成果是：155o

6、設(shè)有如下程序：

PrivateSubForm_Click()

DimaAsInteger.sAsInteger

n=8

s=0

Do

s=s+n

n二n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是計(jì)算1到8的累加。程序運(yùn)行彳機(jī)罩擊窗體，輸出成果懸一36一。

7、設(shè)有如下程序：用Array函數(shù)建立壹種具有8元素的數(shù)組，然彳發(fā)查找并輸出

該數(shù)組中各元素的最小值。

OptionBase1

PrivateSubCommandl_Click()

Dimarrl

DimMinAsInteger,!AsInteger

arrl=Array(12,435,76,-24,78,54,866,43)

Min=arrl(l)

Fori=2To8

Ifar「Mi)<MinThenmin=arrl(i)

Nexti

Print"最小值是：min

EndSub

8、在名稱(chēng)卷Forml的窗體上畫(huà)壹種文本框，其名稱(chēng)卷Textl,在屬性窗口中把

該文本框的MultiLine屬性設(shè)置卷True,然彳會(huì)編寫(xiě)如下的事件遇程：如下程序的

功能是，把磁盤(pán)文獻(xiàn)smtextl.txt的內(nèi)容^到內(nèi)存并在文本框中顯示出來(lái)，然彳爰把

該文本框中的內(nèi)容存入滋盤(pán)文獻(xiàn)smtext2.txto

PrivateSubFormClick(i

Open"d:\tes