2024年VB试题库及答案

最新VB8S库及答案

壹、选择题

第1部分

1、在窗体(名称悬Forml)上画壹种名称悬Textl的文本框和壹种名称卷

Commandl的命令按钮，然彳爰编写壹种事件谩程。程序运行彳机假如在文本框中

输入壹种字符，则把命令按钮的檄1S设置卷”计算机等级考试如下能实琨上述

操作的事件遇程是

A、PrivateSubTextlChange()

Commandl.Caption="计算机等级考试"

EndSub

B、PrivateSubCommandl_Click()

Caption二”计算机等级考试“

EndSub

C、PrivateSubForm_Click()

Textl.Caption="计算机等级考试"

EndSub

D、PrivateSubCommandlClick()

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

EndSub

2、在壹行内写多条^句口寺，每他言吾句之间用()符号分隔。

As,C、.D、；

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

B、123ABCC、INTEGERD、X-Y

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

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

5、体现式16/4-2八5*8MOD5\2的值卷()„

A、14C、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,llt10)

7、设a二"a",b="b",c="c",d="d",执行^句x=llf((a<b)Or(c>d),”A「B”)

彳麦,x的值悬

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

8、在窗体上画壹种文本框，然彳令编写如下事件谩程：

PrivateSubForm_Click()

x=InputBox（喘青输入壹种整数"）

Printx+Textl.Text

EndSub

程序运行口寺，在文本框中输入456,然彳麦罩击窗体，在输入封话框中输入123,M

击“确定”按钮彳麦，在窗体上显示的内容悬

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

9、在BASIC中，三他逻辑运算符NOT,AND,OR在运算遇程中，优先级彳住高到

低的次序是（）o

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

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

10、下面程序段运行日寺内层循环的循环东恩次数（）。

FORX=1TO2

FORY二ITOX

NEXTY

NEXTX

A.、1B、2D、4

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

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

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

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(UCcse(ch))

PrintChr(KeyAscii+2)

EndSub

程序运行彳爰，按键盘上的“A”键，则在窗体上显示的内容是

AsAB、BC、CD、D

18、VB中的变量假如没有显示申明其数据类型，则默认悬()

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

19、在VB中，通谩变化列表框()属性的值，可认悬列表框添加项目。

B、(名称)C、CaptionD、Text

20、已知A$="12345678”，则体现式Val(left$(a$,4)+Mid$(a$,4,2))的值卷()。

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

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

Dimx

Ifxthenprintxelseprintx+1

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

22、用来测试指定文献结束状态的函数是()

A、EofB、FreeFileC、LocD、Open

23、1Long类型数据与Single类型运算日寺，运算成果的类型悬()。

A、IntegerB、LongC、SingleD、Double

24、某壹VB工程含FLF2两他窗体，执行“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的檄签，然彳令编写如下事件遇程：

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

程序运行彳麦，军击窗体，在襟签中显示的内容是

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、PrivateSubListlClick()

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=18MoD4甯句彳交A的值卷()。

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

3、ATrue,BSFalse,则“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的数据构造卷()。

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

6、在VB中，复写框(Check)的Value值有三种，分别是()。

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

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

A、ExitB、ExitDoC、Time

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

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

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

9、在代码窗口内将表罩Forml的“Caption”属性设置寓'曰寺钟”，封的的善写形式是

A、Form.Caption"日寺钟”

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

10、保留文献口寺，窗体的所有数据存储格式卷()。

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

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

A、LoadB、UnloadC、ActivateD、GotFocus

12、某壹VB工程含Fl、F2两值I窗体，执行“Fl.Show:F2.Hide”1§句彳爰，FLF2

窗体显示的成果悬（），

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

13、VB的数据类型分悬（）

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

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

型

14、VB中的变量假如没有显示申明其数据类型，则默认悬（）

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

15、在VB中，通遇变化表框（）属性的值，可认卷列表框添加项目。

A、ListB、（名称）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=OTOX-1

NEXTY

NEXTX

As1B、2C、3D、4

18、封的的算术体现式是()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,则值卷真的关系式是()。

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、下面有关次序文献的描述封的的是（）o

A.每条记录度必须相似

B.可通遇编程封文献中的某条记录以便的修改。

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

D.文献的组织构造复杂。

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

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

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

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

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

X=inputbox（"输入壹种数”）

Selectcasex

Case1to5

Y=-l

Case5to10

Y=C

Case10to15

Y=1

Endselect

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

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”，则体垣式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、要保留勤态数组原有的内容，应常使用0^句。

AsRedimPreserveB、Redim

C、DimC、Public

不是A就是B

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

1、下面的程序是求100以内奇数和s的值(S=1+3+5+7…+99)。言青在有()的地

方填上合适的句或体垣式。(8分)

PrivateSubCommandl_Click()

DimsAsSingle

DimiAsSingle

s=(0)

Fori=lto100(step2)

S=(s+i)

(nexti)

Prints

EndSub

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

程序如下：

PrivateSubCommandl_Click()

Fori=lto(6)

Forj=lto(i-6)

Print("*")

Nextj

(PrintString(i."*1))

Nexti

EndSub

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

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、在窗体上画壹种文本框和壹种图片框，然彳奏编写如下两彳固事件谩程：

PrivateSubForm_Click()

Textl.text="VB程序设计”

EndSub

PrivateSubTextl_Change()

Picturel.Print'VBProgramming"

EndSub

程序运行彳机罩击窗体，在文本框显示的内容是_VB程序设计而在图片

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

PrivateSubForm_Click()

DimaAsInteger.sAsInteger

n=8

s=0

Do

s=s+n

n二n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是计算1到8的累加。程序运行彳机罩击窗体，输出成果悬一36一。

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

该数组中各元素的最小值。

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、在名称卷Forml的窗体上画壹种文本框，其名称卷Textl,在属性窗口中把

该文本框的MultiLine属性设置卷True,然彳会编写如下的事件遇程：如下程序的

功能是，把磁盘文献smtextl.txt的内容^到内存并在文本框中显示出来，然彳爰把

该文本框中的内容存入滋盘文献smtext2.txto

PrivateSubFormClick(i

Open"d:\tes