2021年度VB題庫及答案

最新VB題庫及答案

一、選取題

第1某些

1、在窗體(名稱為Forml)上畫一種名稱為Textl文本框和一種名稱為Commandl

命令按鈕，然后編寫一種事件過程。程序運(yùn)營后，如果在文本框中輸入一種字符,

則把命令按鈕標(biāo)題設(shè)立為“計(jì)算機(jī)級(jí)別考試”。如下能實(shí)現(xiàn)上述操作事件過程是

A^PrivateSubTextlChange()

Command1.Caption=”計(jì)算機(jī)級(jí)別考試”

EndSub

B、PrivateSubCommandl_Click()

Caption="計(jì)算機(jī)級(jí)別考試”

EndSub

C、PrivateSubForm_Click()

Text1.Caption="計(jì)算機(jī)級(jí)別考試”

EndSub

D^PrivateSubCommandl_Click()

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

EndSub

2、在一行內(nèi)寫多條語句時(shí)，每個(gè)語句之間用()符號(hào)分隔。

A、，B>：C、.D、；

3、下面()是合法變量名。

B、123ABCC、INTEGERD、X-Y

4、下面()是合法字符常量。

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

5、表達(dá)式16/4-2A5*8MOD5\2值為()。

A、14B、4C、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,l1,10)

7、設(shè)a="a",b="b",c="c",d="d",執(zhí)行語句x=IIf((a<b)Or(c>d),"A","B")

后，x值為

A、"a"B."b"C、"B"D."A"

8、在窗體上畫一種文本框，然后編寫如下事件過程：

PrivateSubForm_Click（）

x=InputBox（"請(qǐng)輸入一種整數(shù)"）

Printx+Text1.Text

EndSub

程序運(yùn)營時(shí)，在文本框中輸入456,然后單擊窗體，在輸入對(duì)話框中輸入123,單

擊“擬定”按鈕后，在窗體上顯示內(nèi)容為

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

9、在BASIC中，三個(gè)邏輯運(yùn)算符NOT,AND,OR在運(yùn)算過程中，優(yōu)先級(jí)從高

到低順序是（）o

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

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

10、下面程序段運(yùn)營時(shí)內(nèi)層循環(huán)循環(huán)總次數(shù)（）。

FORX=1TO2

FORY=1TOX

NEXTY

NEXTX

A.、1B、2C、3D、4

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

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

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

12、若要退出For循環(huán)，可使用語句為（）o

A、ExitB、ExitDoC、TimeD、ExitFor

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

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

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

14、在代碼窗口內(nèi)將表單Form—Caption”屬性設(shè)立為“時(shí)鐘”，對(duì)的書寫形式是（）

A、Forml.Caption"時(shí)鐘"B、Forml.Caption="時(shí)鐘"

C、Caption="時(shí)鐘”D、Fopml.Caption（“時(shí)鐘”）

15、保存文獻(xiàn)時(shí)，窗體所有數(shù)據(jù)存儲(chǔ)格式為（）

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

16、在窗體上畫一種文本框和一種計(jì)時(shí)器控件，名稱分別為Text1和Timer1,在屬

性窗口中把計(jì)時(shí)器Interval屬性設(shè)立為1000,Enabled屬性設(shè)立為False。程序運(yùn)營

后，如果單擊命令按鈕，則每隔一秒中在文本框中顯示一次當(dāng)前時(shí)間。如下是實(shí)

現(xiàn)上述操作程序:

PrivateSubCommand1_Click()

Timer1._______

EndSub

PrivateSubTimerl_Timer()

Text1.Text=Time

EndSub

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

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

17、把窗體KeyPreview屬性設(shè)立程為True,然后編寫如下事件過程

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序運(yùn)營后，按鍵盤上“A”鍵，則在窗體上顯示內(nèi)容是

A、AB、BC、CD、D

18、VB中變量如果沒有顯示聲明其數(shù)據(jù)類型，則默以為（）

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

19、在VB中，通過變化列表框（）屬性值，可覺得列表框添加項(xiàng)目。

A^ListB、（名稱）C、CaptionD、Text

20、已知A$="12345678“，貝1」表達(dá)式丫或怕在$伯$,4）+1^€1$（@$,4,2））值為（）。

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

21、下面程序段顯示成果是（）o

Dimx

Ifxthenprintxelseprintx+1

B、0C.、-1D、顯示出錯(cuò)信息

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

A、EofB、FreeFileC、LocD、Open

23、當(dāng)Long類型數(shù)據(jù)與Single類型運(yùn)算時(shí)，運(yùn)算成果類型為（

A、IntegerB、LongC、SingleD、Double

24、某一VB工程含F(xiàn)l、F2兩個(gè)窗體，執(zhí)行“Fl.Show：F2.Hide”語句后，F(xiàn)l、

F2窗體顯示成果為（）o

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

25、數(shù)學(xué)關(guān)系3=<x<10表達(dá)到對(duì)的VB表達(dá)式為（）

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

C、x)=3ORx(10D、3<=xAND(10

26.在窗體上畫一種名稱為Labell標(biāo)簽，然后編寫如下事件過程:

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

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

EndSub

程序運(yùn)營后，單擊窗體，在標(biāo)簽中顯示內(nèi)容是

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

27.在窗體上畫一種名稱為Listl列表框，一種名稱為Labell標(biāo)簽，列表框中顯示

若干個(gè)項(xiàng)目，當(dāng)單擊列表框中某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中項(xiàng)目名稱。下列

能正的確現(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、PrivateSubListlCIick()

Labell.Caption=Listl.Text

EndSub

28、設(shè)a=5,b=4,c=3,d=2,下列表達(dá)式值是

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

A>1B、TrueC>FalseD、2

30、下列操作不能打開代碼窗口是（）

A、選中對(duì)象,單擊鼠標(biāo)右鍵，在彈出快捷菜單中選取“查看代碼”命令

B、選中對(duì)象,雙擊鼠標(biāo)左鍵

C、按F7鍵

D、按F4鍵

第2某些

1、VB語言語法規(guī)定，多條語句放在同一行中，語句之間用（）分隔。

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

2、在VB中，執(zhí)行“A=l8MOD4”語句后，A值為（）。

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

3、A為True,B為False,則“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）”語句后，B數(shù)據(jù)構(gòu)造為（5

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

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

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

7、若要退出For循環(huán)，可使用語句為（）o

A、ExitB、ExitDoC、TimeD、ExitFor

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

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

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

9,在代碼窗口內(nèi)將表單Forml“Caption”屬性設(shè)立為“時(shí)鐘”，對(duì)的書寫形式是（）

A、Form.Caption"時(shí)鐘"B、Form.Caption="時(shí)鐘"

C、Caption="時(shí)鐘"D、Fopm.Caption（“時(shí)鐘”）

10、保存文獻(xiàn)時(shí)，窗體所有數(shù)據(jù)存儲(chǔ)格式為（）。

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

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

、UnloadC、ActivateD、GotFocus

12、某一VB工程含F(xiàn)l、F2兩個(gè)窗體，執(zhí)行“Fl.Show:F2.Hide”語句后,Fl、

F2窗體顯示成果為（）。

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

13、VB數(shù)據(jù)類型分為（）

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

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

型

14、VB中變量如果沒有顯示聲明其數(shù)據(jù)類型，則默以為（）

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

15、在VB中，通過變化表框（）屬性值，可覺得列表框添加項(xiàng)目。

B、（名稱）C、CaptionD、Text

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

順序是（）o

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

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

17、下面程序段運(yùn)營時(shí)內(nèi)層循環(huán)循環(huán)總次數(shù)（）o

FORX=1TO2

FORY=0TOX-l

NEXTY

NEXTX

A、1B、2c、3D、4

18、對(duì)的算術(shù)表達(dá)式是（）。

A、-3/8+5\INT24.6B、8*3/5

c、[（X+Y）*Z]/30D、（XA2+Y/3）*X3

19、若A=2,B=3,C=4,則值為真關(guān)系式是（）o

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

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

20、當(dāng)Long類型數(shù)據(jù)與Single類型運(yùn)算時(shí)，運(yùn)算成果類型為（）。

A、IntegerB、LongC、SingleD、Double

21、下面關(guān)于順序文獻(xiàn)描述對(duì)的是（）。

A.每條記錄長度必要相似

B.可通過編程對(duì)文獻(xiàn)中某條記錄以便修改。

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

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

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

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=0

Case10to15

Y=1

Endselect

25、下列說法中對(duì)的是（）。

A、數(shù)組只具備數(shù)組名，而沒有數(shù)組類型

B、數(shù)組只具備數(shù)組類型，而沒有數(shù)組名

C、數(shù)組類型和數(shù)組元素類型不同

D、數(shù)組和變量同樣，均有名稱和類型這兩種屬性

26、創(chuàng)立公用數(shù)組辦法是（）。

A、在模塊中用Private語句聲明B、在模塊中用Public語句聲明

C、在過程中用Private語句聲明D、在過程中用Public語句聲明

不是B就是D

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

A、傳值B、傳地址C、傳值和傳地址D、從實(shí)參到形參

28、已知A$="12345678”,貝1」表達(dá)式丫己1（后仕$5$,4）+1^61$^$,4,2））值為（）。

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

29、下面對(duì)的賦值語句是（）

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

30、要保存動(dòng)態(tài)數(shù)組原有內(nèi)容，應(yīng)當(dāng)使用（）語句。

A、RedimPreserveB、Redim

C、DimC、Public

不是A就是B

二、填空題（每空2分，共20分）

1、下面程序是求100以內(nèi)奇數(shù)和s值（S=l+3+5+7…+99）。請(qǐng)?jiān)谟校ǎ┑胤教钌?/p>

恰當(dāng)語句或表達(dá)式。（8分）

PrivateSubCommand1_Click()

DimsAsSingle

DimiAsSingle

s=(9)

Fori=lto100(ktep2|)

S=(|s+i|)

(nexti)

Prints

EndSub

2、在下列程序()內(nèi)寫上恰當(dāng)內(nèi)容，使能輸出如下圖形。

*

**

***

****

程序如下：

PrivateSubCommandl_Click()

Fori=lto(|6)

Forj=lto(i-6)

Print()

Nextj

(jrinlString。，"*"))

Nexti

EndSub

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

PrivateSubForm_Click()

Dima(lTo10)AsInteger

Dimb(1To10)AsInteger

Dimc(1To10)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

For1=1To10

Printc(1);

If1=5Then

Print

EndIf

Next1

EndSub

成果：1111111111

11111111II

4、在窗體上畫一種文本框和一種圖片框，然后編寫如下兩個(gè)事件過程：

PrivateSubForm_Click()

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

EndSub

PrivateSubTextl_Change()

Picturel.Print"VBProgramming"

EndSub

程序運(yùn)營后，單擊窗體，在文本框顯示內(nèi)容是_VB程序設(shè)計(jì)—,而在圖片

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

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

PrivateSubCommand1_Click()

s=0

Fori=9To42Step11

s=s+i

Nexti

Ifi>50Then

s=s+i

Else

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)營后，單擊窗體，輸出成果為-36一0

7、設(shè)有如下程序：用Array函數(shù)建立一種具有8個(gè)元素?cái)?shù)組，然后查找并輸出

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

OptionBase1

PrivateSubCommand1_Click()

Dimarr1

DimMinAsInteger,!AsInteger

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

Min=arr1⑴

Fori=2To8

Ifarr1(i)<MinThenmin=arr1(i)

Nexti

Print"最小值是："；min

EndSub

8、在名稱為Forml窗體上畫一種文本框，其名稱為Textl,在屬性窗口中把該

文本框MultiLine屬性設(shè)立為True,然后編寫如下事件過程：如下程序功能是，

把磁盤文獻(xiàn)smtext1.txt內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中

內(nèi)容存入磁盤文獻(xiàn)smtext2.txto

PrivateSubForm_Click()

Open"d:\test\smtext1.txt"For