2021年度VB题库及答案

最新VB题库及答案

一、选取题

第1某些

1、在窗体(名称为Forml)上画一种名称为Textl文本框和一种名称为Commandl

命令按钮，然后编写一种事件过程。程序运营后，如果在文本框中输入一种字符,

则把命令按钮标题设立为“计算机级别考试”。如下能实现上述操作事件过程是

A^PrivateSubTextlChange()

Command1.Caption=”计算机级别考试”

EndSub

B、PrivateSubCommandl_Click()

Caption="计算机级别考试”

EndSub

C、PrivateSubForm_Click()

Text1.Caption="计算机级别考试”

EndSub

D^PrivateSubCommandl_Click()

Textl.Text="计算机级别考试”

EndSub

2、在一行内写多条语句时，每个语句之间用()符号分隔。

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

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

B、123ABCC、INTEGERD、X-Y

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

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

5、表达式16/4-2A5*8MOD5\2值为()。

A、14B、4C、20D、2

6、设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、设a="a",b="b",c="c",d="d",执行语句x=IIf((a<b)Or(c>d),"A","B")

后，x值为

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

8、在窗体上画一种文本框，然后编写如下事件过程：

PrivateSubForm_Click（）

x=InputBox（"请输入一种整数"）

Printx+Text1.Text

EndSub

程序运营时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单

击“拟定”按钮后，在窗体上显示内容为

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

9、在BASIC中，三个逻辑运算符NOT,AND,OR在运算过程中，优先级从高

到低顺序是（）o

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

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

10、下面程序段运营时内层循环循环总次数（）。

FORX=1TO2

FORY=1TOX

NEXTY

NEXTX

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

11、在VB中，复写框（Check）Value值有三种，分别是（）。

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

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

12、若要退出For循环，可使用语句为（）o

A、ExitB、ExitDoC、TimeD、ExitFor

13、运用VB设计程序基本环节可分四步：

（1）设计顾客界；（2）（）；（3）运营调试程序；（4）生成执行文献。

A、编写代码B、设计算法C、信息反馈D、系统集成

14、在代码窗口内将表单Form—Caption”属性设立为“时钟”，对的书写形式是（）

A、Forml.Caption"时钟"B、Forml.Caption="时钟"

C、Caption="时钟”D、Fopml.Caption（“时钟”）

15、保存文献时，窗体所有数据存储格式为（）

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

16、在窗体上画一种文本框和一种计时器控件，名称分别为Text1和Timer1,在属

性窗口中把计时器Interval属性设立为1000,Enabled属性设立为False。程序运营

后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前时间。如下是实

现上述操作程序:

PrivateSubCommand1_Click()

Timer1._______

EndSub

PrivateSubTimerl_Timer()

Text1.Text=Time

EndSub

在____处应填入内容是

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

17、把窗体KeyPreview属性设立程为True,然后编写如下事件过程

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序运营后，按键盘上“A”键，则在窗体上显示内容是

A、AB、BC、CD、D

18、VB中变量如果没有显示声明其数据类型，则默以为（）

A、日期型B、数据型C、字符型D、变体型

19、在VB中，通过变化列表框（）属性值，可觉得列表框添加项目。

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

20、已知A$="12345678“，贝1」表达式丫或怕在$伯$,4）+1^€1$（@$,4,2））值为（）。

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

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

Dimx

Ifxthenprintxelseprintx+1

B、0C.、-1D、显示出错信息

22、用来测试指定文献结束状态函数是（）

A、EofB、FreeFileC、LocD、Open

23、当Long类型数据与Single类型运算时，运算成果类型为（

A、IntegerB、LongC、SingleD、Double

24、某一VB工程含Fl、F2两个窗体，执行“Fl.Show：F2.Hide”语句后，Fl、

F2窗体显示成果为（）o

A、都显示B、都不显示C、仅显示Fl窗体D、仅显示F2窗体

25、数学关系3=<x<10表达到对的VB表达式为（）

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

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

26.在窗体上画一种名称为Labell标签，然后编写如下事件过程:

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

程序运营后，单击窗体，在标签中显示内容是

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

27.在窗体上画一种名称为Listl列表框，一种名称为Labell标签，列表框中显示

若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目名称。下列

能正的确现上述操作程序是

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、设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语言语法规定，多条语句放在同一行中，语句之间用（）分隔。

A、逗号B、冒号C、分号D、单引号

2、在VB中，执行“A=l8MOD4”语句后，A值为（）。

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

3、A为True,B为False,则“AandB”和“AOrB”值分别是（）。

A^TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse

4、在VB中，执行“DimA,BAsString”语句后，A,B数据构造为（）。

A、整型数B、实型数C、字符型D、字节型

5、在VB中，执行“A=123：B=Str$（A）”语句后，B数据构造为（5

A、整型数、B、字节型C、实型数D、字符型

6、在VB中，复写框（Check）Value值有三种，分别是（）。

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

7、若要退出For循环，可使用语句为（）o

A、ExitB、ExitDoC、TimeD、ExitFor

8,运用VB设计程序基本环节可分四步：

（1）设计顾客界；（2）（）；（3）运营调试程序；（4）生成执行文献。

A、编写代码B、设计算法C、信息反馈D、系统集成

9,在代码窗口内将表单Forml“Caption”属性设立为“时钟”，对的书写形式是（）

A、Form.Caption"时钟"B、Form.Caption="时钟"

C、Caption="时钟"D、Fopm.Caption（“时钟”）

10、保存文献时，窗体所有数据存储格式为（）。

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

11、窗体初始化程序应写在（）事件中。

、UnloadC、ActivateD、GotFocus

12、某一VB工程含Fl、F2两个窗体，执行“Fl.Show:F2.Hide”语句后,Fl、

F2窗体显示成果为（）。

A、都显示B、都不显示C、仅显示FI窗体D、仅显示F2窗体

13、VB数据类型分为（）

A、数值型、字符型、布尔型、日期型B、数值型、字符型、对象型、日期型

C、基本类型、扩展类型D、整型、实型、字符型、日期型、布尔

型

14、VB中变量如果没有显示声明其数据类型，则默以为（）

A、日期型B、数据型C、字符型D、变体型

15、在VB中，通过变化表框（）属性值，可觉得列表框添加项目。

B、（名称）C、CaptionD、Text

16、在VB中，三个逻辑运算符NOT,AND,OR在运算过程中，优先级从高到低

顺序是（）o

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

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

17、下面程序段运营时内层循环循环总次数（）o

FORX=1TO2

FORY=0TOX-l

NEXTY

NEXTX

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

18、对的算术表达式是（）。

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,则值为真关系式是（）o

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

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

20、当Long类型数据与Single类型运算时，运算成果类型为（）。

A、IntegerB、LongC、SingleD、Double

21、下面关于顺序文献描述对的是（）。

A.每条记录长度必要相似

B.可通过编程对文献中某条记录以便修改。

C.数据只能以ASCH码形式存储在文献中，因此可通过文本编辑软件显示。

D.文献组织构造复杂。

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

A、窗体B、数据C、形状D、直线

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

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

24、下面程序段，输入9后，输出成果是（）。

X=inputbox（“输入一种数”）

Selectcasex

Case1to5

Y=-l

Case5to10

Y=0

Case10to15

Y=1

Endselect

25、下列说法中对的是（）。

A、数组只具备数组名，而没有数组类型

B、数组只具备数组类型，而没有数组名

C、数组类型和数组元素类型不同

D、数组和变量同样，均有名称和类型这两种属性

26、创立公用数组办法是（）。

A、在模块中用Private语句声明B、在模块中用Public语句声明

C、在过程中用Private语句声明D、在过程中用Public语句声明

不是B就是D

27、VisualBasic6.0中缺省参数传递机制是（）。

A、传值B、传地址C、传值和传地址D、从实参到形参

28、已知A$="12345678”,贝1」表达式丫己1（后仕$5$,4）+1^61$^$,4,2））值为（）。

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

29、下面对的赋值语句是（）

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

30、要保存动态数组原有内容，应当使用（）语句。

A、RedimPreserveB、Redim

C、DimC、Public

不是A就是B

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

1、下面程序是求100以内奇数和s值（S=l+3+5+7…+99）。请在有（）地方填上

恰当语句或表达式。（8分）

PrivateSubCommand1_Click()

DimsAsSingle

DimiAsSingle

s=(9)

Fori=lto100(ktep2|)

S=(|s+i|)

(nexti)

Prints

EndSub

2、在下列程序()内写上恰当内容，使能输出如下图形。

*

**

***

****

程序如下：

PrivateSubCommandl_Click()

Fori=lto(|6)

Forj=lto(i-6)

Print()

Nextj

(jrinlString。，"*"))

Nexti

EndSub

3、写出下列程序执行成果

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、在窗体上画一种文本框和一种图片框，然后编写如下两个事件过程：

PrivateSubForm_Click()

Textl.text="VB程序设计"

EndSub

PrivateSubTextl_Change()

Picturel.Print"VBProgramming"

EndSub

程序运营后，单击窗体，在文本框显示内容是_VB程序设计—,而在图片

框显示内容是_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、设有如下程序:

PrivateSubForm_Click()

DimaAsInteger.sAsInteger

n=8

s=0

Do

s=s+n

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序功能是计算1到8累加。程序运营后，单击窗体，输出成果为-36一0

7、设有如下程序：用Array函数建立一种具有8个元素数组，然后查找并输出

该数组中各元素最小值。

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属性设立为True,然后编写如下事件过程：如下程序功能是，

把磁盘文献smtext1.txt内容读到内存并在文本框中显示出来，然后把该文本框中

内容存入磁盘文献smtext2.txto

PrivateSubForm_Click()

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