2023年VB试题库全国

一、选择题

1.以下叙述中错误的是一B—。

A..vbp文献是工程文献，一个工程可以包含.bas文献

B..frm文献是窗体文献，一个窗体可以包含.bas文献

C..vbp文献是工程文献，一个工程可以由多个.frm文献组成

D..vbg文献是工程组文献，一个工程组可以由多个工程组成

2.以下合法的VB变量名是__C____。

A.CaseB.t-nameC.namelOD.x*y

3.以下描述中错误的是—B—。

A.窗体的标题通过其Caption属性设立

B.窗体的名称（Name属性）可以在运营期间修改

C.窗体的背景图形通过其Picture属性设立

D.窗体最小化时的图标通过其Icon属性设立

4.在VisualBasic集成环境中，可以列出工程中所有模块名称的窗口是—A—。

A.工程资源管理器窗口B.窗体设计窗口

C.属性窗口D.代码窗口

5.在VisualBasic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是___A

A.「aB.酎C./D.囱

6.在VisualBasic集成环境中，要结束一个正在运营的工程，可单击工具栏上的一个按钮，这个按钮是

D—。

A.门B.►c.酎D.■

7.以下变量名中合法的是_C____o

A.x2~lB.printC.str_nD.2x

8.执行语句DimX,YAsInleger后，D。

A.X和丫均被定义为整型变量

B.X和丫均被定义为变体类型变量

C.X被定义为整型变量，丫被定义为变体类型变量

D.X被定义为变体类型变量，丫被定义为整型变量

9.在设计窗体时双击窗体的任何地方，可以打开的窗口是—A。

A.代码窗口B.属性窗口

C.工程资源管理器窗口D.工具箱窗口

10.以下叙述中错误的是一D。

A.标准模块文献的扩展名是.bas

B.标准模块文献是纯代码文献

C.在标准模块中声明的全局变量可以在整个工程中使用

D.在标准模块中不能定义过程

H.以下叙述中错误的是C_O

A.在VisualBasic的窗体中，一•个命令按钮是一•个对象

B.事件是可以被对象辨认的状态变化或动作

C.事件都是由用户的键盘操作或鼠标操作触发的

D.不同的对象可以具有相同的方法

12.设x是小于10的非负数。对此陈述，以下对的的VB表达式是_C.

A.OWxVlOB.0<=x<10

C.x>=0Andx<10D.x>=0Orx<-10

13.在设计阶段，当按Ctrl+R键时，所打开的窗口是_B。

A.代码窗口B.工程资源管理器窗口

C.工具箱窗口D.属性窗口

14.在设计阶段，当按下F4键时，所打开的窗口是一D—。

A.代码窗口B.工具箱窗口

C.工程资源管理器窗口D.属性窗口

15.在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是

A.工程资源管理器窗口B.属性窗口

C.工具箱窗口D.代码窗口

16.设x是整型变量,与函数Ilf(x>0-x,x)有相同结果的代数式是一B—。

A.|x|B.-|x|C.xD.-x

5x+3

2y—6

17.把数学表达式表达为对的的VB表达式应当是—Do

A.(5x+3)/(2y-6)B.x*5+3/2*y-6

C.(5*x+3)(2*y-6)D.(x*5+3)/(y*2-6)

18.以下关系表达式中，其值为True的是B_。Ascii码A65a97

A.'XYZ”>"XYz"B."VisualBasic,,o,,visualbasicM

C."the"="there"D.'Integer"<"Int"

19.若变量a未事先定义而直接使用(例如：a=0),则变量a的类型是_D—。

A.IntegerB.StringC.BooleanD.Variant

20.在VisualBasic中，表达式3*2\5Mod3的值是__A。

A.1B.0C.3D.出现错误提醒

21.设x=3.3,y=4.5,表达式x-Int(x)+Fix(y)的值是C。Int(n):取＜=n的最大整数；Fix(n)：取n的整

数部分

A.3.5B.4.8C.4.3D.4.7

22.以下关于窗体的叙述中，错误的是—D—。

A.窗体的Name属性用于标记一个窗体

B.运营程序时改变窗体大小，可以触发窗体的Resize事件

C.窗体的Enabled属性为False时，不能响应单击窗体的事件

D.程序运营期间，可以改变Name属性值

23.设有如下变量声明语句：

Dima,bAsBoolean

则下面叙述中对的的是—B。

A.a和b都是布尔型变量

B.a是变体型变量，b是布尔型变量

C.a是整型变量，b是布尔型变量

D.a和b都是变体型变量

24.为了使标签具“透明”的显示效果，需要设立的属性是一C

A.CaptionB.Alignment

C.BackStyleD.AutoSize

25.下列叙述中错误的是D—°

A.列表框与组合框都有List属性

B.列表框有Selected属性，而组合框没有

C.列表框和组合框都有Style属性

D.组合框有Text属性，而列表框没有

26.设窗体文献中有下面的事件过程：

PrivateSubCommandl_Click()

Dims

a%=100

Printa

EndSub

其中变量a和s的数据类型分别是C_o

A.整型，整型B.变体型，变体型

C.整型,变体型D.变体型，整型

27.下面有关标准模块的叙述中，错误的是一A—。

A.标准模块不完全由代码组成，还可以有窗体

B.标准模块中的Private过程不能被工程中的其他模块调用

C.标准模块的文献扩展名为.bas

D.标准模块中的全局变量可以被工程中的任何模块引用

28.执行以下程序段

a$=,'VisualBasicProgramming'*

b$="C++”

c$=UCase(Left$(a$,7))&b$&Right$(a$,12)

后,变量c$的值为B—。

A.VisualBASICProgramming

B.VISUALC++Programming

C.VisualC++Programming

D.VISUALBASICProgramming

29.为把圆周率的近似值3.14159存放在变量pi中，应当把变量pi定义为—C

A.DimpiAsIntegerB.Dimpi⑺AsInteger

C.DimpiAsSingleD.DimpiAsLong

30.以下选项中，不合法的VisualBasic的变量名是B。

A.a5bB._xyzC.a_bD.andif

31.窗体上有一个名称为Commandl的命令按钮，其中部分代码如下：

PrivateSubCommandl_Click()

Dima(10)AsInteger

DimnAsInteger

Callcalc(a,n)

EndSub

calc过程的首行应当是___A____o

A.Subcalc(x()AsInteger,nAsInteger)

B.PublicSubcalc(x()AsInteger)

C.PrivateSubcalc(a(n)AsInteger,nAsInteger)

D.PublicSubcalc(aAsInteger,nAsInteger)

32.下面定义窗体级变量a的语句中错误的是_D_____o

A.Dima%B.Privatea%

C.PrivateaAsIntegerD.Statica%

33.下列可作为VisualBasic变量名的是_D____。

A.A#AB.4ABC

C.?xyD.Erint.lext

34.下面可以产生20〜30(含20和30)的随机整数的表达式是__B—。

A.Int(Rnd*10+20)B.Int(Rnd*ll+20)

C.Int(Rnd*20+30)D.Int(Rnd*30+20)

35.设窗体上有一个命令按钮数组，可以区分数组中各个按钮的属性是—B.

A.NameB.IndexC.CaptionD.Left

36.下面哪个属性肯定不是柢架控件的属性—A—o

A.TextB.CaptionC.LeftD.Enabled

37.下面控件中，没有Caplion属性的是—C。

A.复选框B.单选按钮C.组合框D.框架

38.下列叙述中对的的是C_o

A.MsgBox语句的返回值是一个整数

B.执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作

C.MsgBox语句的第一个参数不能省略Msgbox（提醒，【，按钮】【，标题】）

D.假如省略MsgBox语句的第三个参数(Title),则信息框的标题为空

39.表达式2*3A2+4*2/2+3人2的值是__B。

A.30B.31C.49D.48

40.以下数组定义语句中，错误的是_C。

A.Statica(l0)AsInteger

B.Dimc(3,lTo4)

C.Dimd(-10)若省略下界时，默认为0

D.Dimb(0To5,1To3)AsInteger

41.设有如下程序：

Subf(xAsInteger,ByVaiyAsInteger)

x=2*x

y=y+x

EndSub

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=6:b=35

Callf(a,b)

Printa,b

EndSub

程序运营后，单击命令按钮Command1,输出结果为一D

A.6B.1247

C.6D.1235

例：Subs1(ByValxAsInteger,ByVaiyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

Subs2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=12

b=13

Callsl(a,b)

Printa,b

Calls2(a,b)

Printa,b

EndSub

输出结果为什么是12131312

s1是值传递，形参的改变不影响实参，s2是地址传递，形参的改变影响实参

42.表达式Int(Rnd(0)*50)所产生的随机数范围是C。

A.(0,50)B.(1,50)C.(0,49)D.(1,49)

43.假定一个滚动条的LargeChange属性值为100,则100表达—A。

A.单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量

B.滚动框位置的最大值

C.拖动滚动框时滚动框位置的变化量

D.单击滚动条箭头时滚动框位置的变化量

44.设窗体上有一个名称为HS1的水平滚动条，假如执行了语句：

HSl.Value=(HSl.Max-HSl.Min)/2+HSl.Min则C。

A.滚动块处在最左端

B.滚动块处在最右端

C.滚动块处在中间位置

D.滚动块也许处在任何位置，具体位置取决于Max、Min属性的值

45.滚动条可以响应的事件是—B。

A.LoadB.Scroll

C.ClickD.MouseDown

46.下面不能在信息框中输出“VB”的是_D。

A.MsgBoxWB"B.x=MsgBox("VBM)

C.MsgBox("VB")D.CallMsgBox'VB',

47.用来设立文字字体是否斜体的属性是_D。

A.FontUnderlineB.FontBold

C.FontSlopeD.Fontltalic

48.在窗体上画一个文本框(名称为Textl)和一个标签(名称为Labell),程序运营后，在文本框中每输入一个

字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是Ao

A.PrivateSubTextl_Change()

Label1.Caption=Str(Len(Text1.Text))

EndSub

B.PrivateSubTextl_Click()

LabelI.Caption=Str(Len(lextl.Text))

EndSub

C.PrivateSubTextl_Change()

Label1.Caption=Textl.Text

EndSub

D.PrivateSubLabell_Change()

Label1.C叩tion二Str(Len(Textl.Text))

EndSub

49.以下不能输出"Program"的语句是__D。

A.PrintMid("VBProgram",3,7)

B.PrintRightC'VBProgram",7)

C.PrintMid("VBProgram,\3)

D.PrintLeflC'VBProgram"，7)

50.现有语句：y=IIf(x>0,xMod3,0)®：x=10,则y的值是B__°

A.0B.1C.3D.语句有错

51.以下叙述中对的的是A。

A.窗体及窗体上所有控件的事件过程代码都保存在窗体文献中

B.在工程中只有启动窗体可以建立菜单

C.窗体名称必须与窗体文献的名称相同

D.程序一定是从某个窗体开始执行的

52.设x=5,执行语句Printx=x*10,窗体上显示的是_D。

A.15B.5C.TrueD.False

53.在窗体上面一个命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click()

MsgBoxStr(123+321)

EndSub

程序运营后，单击命令按钮，则在信息框中显示的提醒信息为__B____。

A.字符串”123+321"B.字符串“444”

C.数值"444"D.空白

54.窗体上有一个名称为Cbl的组合框，程序运营后，为了输出选中的列表项，应使用的语句是_B

A.PrintCb1.Selected

B.PrintCbl.List(Cbl.Listlndex)

C.PrintCb1.Selected.Text

D.PrintCb1.List(Listlndex)

55.设a=5,b=6,c=7,d=8,执行语句x=IIf((a>b)And(c>d),10,20)B,x的值是B。

A.10B.20C.30D.200

56.窗体上有一个名称为Oplion1的单选按钮数组,程序运营时，当单击某个单证按钮时,会调用下面的事件过

程

PrivateSubOptionl_Click(IndexAsInteger)

EndSub

下面关于此过程的参数Index的叙述中对的的是C—。

A.Index为1表达单选按钮被选中，为0表达未选中

B.Index的值可正可负

C.Index的值用来区分哪个单选按钮被选中

D.Index表达数组中单选按钮的数量

57.若看到程序中有以下事件过程，则可以肯定的是，当程序运营时D_o

PrivateSubClick_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

Print"VBProgram"

EndSub

A.用鼠标左键单击名称为“Commandl”的命令按钮时，执行此过程

B.用鼠标左键单击名称为“MouseDown”的命令按钮时,执行此过程

C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程

D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

58.在窗体上画两个单选按钮（名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”卜1个复选

框（名称为Checkl,标题为“粗体”）和1个文本框（名称为Textl,Texl属性为“改变文字字体”），窗体外

观如图所示。程序运营后，规定“宋体”单选按钮和“粗体”复选框被选中，则以下可以实现上述操作的

语句序列是_D_____o

A.Option1.Value=False

Check1.Value=True

B.Option1.Value=True

Checkl.Value=0

C.Option2.VaIue=False

Checkl.Value=2

D.Option1.Value=True

Checkl.Value=l

59.窗体上有一个名称为Framel的框架（如下图），若要把框架上显示的“Framel”修改为汉字“框架”，下

面对的的语句是B_o

A.Framel.Name二"框架"B.FrameLCaption="框架”

C.Framel.Texl="框架”D.Framel.Value="框架"

60.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设立为True,然后把ScrollBars属性

设立为D_o

A.0B.IC.2D.3

61.窗体上有一个名称为Commandl的命令按钮，其单击事件过程代码如下:

PrivateSubCommandl_Click()

StaticxAsVariant

n=0

x=Array(1,23,4,5,6,7,8,9,10)

Whilen<=4

x(n)=x(n+5)

Printx(n);

n=n+l

Wend

EndSub

运营程序，单击命令按钮Commandl,窗体上显示的是B

A.12345B.678910C.23456D.62345

62.设有如下数组声明语句：

Dimarr(-2To2,0To3)AsInteger

该数组所包含的数组元素个数是A

A.20B.16C.15D.12

63.假定有以下程序:

PrivateSubForm_Click()

a=l:b=a

DoUntila>=5

x=a*b

Printb;x

a=a+b

b=b+a

Loop

EndSub

程序运营后，单击窗体，输出结果是Do

A.11B.11C.11D.11

23243836

64.为了在窗体上建立2组单选按钮，并且当程序运营时，每组都可以有一个单选按钮被选中，则以下做法

中对的的是Do

A.把这2组单选按钮设立为名称不同的2个控件数组

B.使2组单选按钮的Index属性分别用同

C.使2组单选按钮的名称分别相同

D.把2组单选按钮分别画到2个不同的框架中

65.语句PrintSgn(-6A2)+Abs(—6A2)+Int(—6人2)的输出结果是—C。

A.~36B.1C.-1D.-72

66.设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发_B

A.Textl的SetFocus事件B.Textl的GotFocus事件

C.Texll的LoslFocus事件D.窗体的GolFocus事件

67.可以产生30〜50(含30和50)之间的随机整数的表达式是—A。

A.Int(Rnd*21+30)B.Int(Rnd*20+30)

C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)

68.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

c=1234

cl=Trim(Str(c))

Fori=lTo4

Print______

Next

EndSub

程序运营后，单击命令按钮，规定在窗体上显示如下内容：

1

12

123

1234

则在横线处应填入的内容为_B。

A.Right©,i)B.Left(cl,i)

C.Mid(cljJ)D.Mid(cl,i,i)

69.以下叙述中错误的是D_。

A.在通用过程中，多个形式参数之间可以用逗号作为分隔符

B.在Print方法中，多个输出项之间可以用逗号作为分隔符

C.在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D.当一行中有多个语句时，可以用逗号作为分隔符用冒号

70.文本框Textl的KeyDown事件过程如下：

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

EndSub

其中参数KeyCode的值表达的是发生此事件时_C。

A.是否按下了Alt键或Ctrl键B.按下的是哪个数字键

C.所按的键盘键的键码D.按下的是哪个鼠标键

71.窗体上有一个名称为Labell的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:

PrivateSubCommandl_Click()

x=InputBox（"输入x:",,0）

y=Inpu【Box（"输入y:",,0）

Label1.Caption=x+y

EndSub

运营程序，单击命令按钮，在输入对话框中分别输入2、3,运营的结果是—D____o

A.程序运营有错误，数据类型不匹配

B.程序运营有错误，InputBox函数的格式不对

C.在Label1中显示5

D.在Labell中显示23

72.现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是—B—。

A.NameB.IndexC.CaptionD.Value

73.在窗体上画一个名称为Listl的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市

名时，该城市名消失。下列在ListlClick事件过程中能正的确现上述功能的语句是D-o

A.Listl.RemoveitemListl.TextB.Listl.RemoveltemList1.Clear

C.Listl.RemoveltemListl.ListCountD.Listl.RemoveltemListl.Listindex

74.假如一个直线控件在窗体上呈现为一条垂直线，则可以拟定的是__B。

A.它的Yl、Y2属性的值相等

B.它的XI、X2属性的值相等

C.它的XI、Y1属性的值分别与X2、丫2属性的值相等

D.它的XI、X2属性的值分别与Yl、Y2属性的值相等

75.假如一个直线控件在窗体上呈现为一条水平线,则可以拟定的是__A_____。

A.它的Yl、Y2属性的值相等

B.它的XI、X2属性的值相等

C.它的XI、Y1属性的值分别与X2、Y2属性的值相等

D.它的XI、X2属性的值分别与Yl、Y2属性的值相等

76.VB中有3个键盘事件：KeyPress>KsyDown>KeyUp,若光标在Textl文本框中，则每输入一个字母

Ao

A.这3个事件都会触发B.只触发KeyPress事件

C.只触发KeyDown、KeyUp事件D.不触发其中任何一个事件

77.在程序运营时，下面的叙述中对的的是—Co

A.用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程

B.用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程

C.只装入而不显示窗体，也会执行窈体的Form_Load事件过程

D.装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程

78.假定有以下程序段：

Fori=lTo3

Forj=5To1Step-1

Printi*j

Nextj

Nexti

则语句Printi*j的执行次数是A—。

A.15B.16C.17D.18

79.设窗体上有一个列表框控件Listl,具有若干列表项。以下能表达当前被选中的列表项内容的是

____C，

A.List1.ListB.List1.Listindex

C.List1.TextD.List1.Index

80.窗体上有一个名称为HScrolll的滚动条，程序运营后，当单击滚动条两端的箭头时，立即在窗体上显示

滚动框的位置(即刻度值)。下面可以实现上述操作的事件过程是一A。

A,PrivateSubHScroHlChaneeC)

PrintHScrollLVa山e

EndSub

B.PrivateSubHScroIll_Change()

PrintHScroIl1.SmallChange

EndSub

C.PrivateSubHScroIll_Scroll()

PrintHScroIl1.Value

EndSub

D.PrivateSubHScroIll_Scroll()

PrintHScroIll.Sma11Change

EndSub

81.窗体上有一个名称为Shapel的形状控件和由三个命令按钮组成的名称为cmdDraw的控件数组。窗体外观

如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。有事件过程如下：

PrivateSubcmdDraw_Click(IndexAsInteger)

SelectCaseIndex

Case0

ShapeI.Shape=O

Case1

Shapel.Shapc=l

Case2

ShapeI.Shape=3

EndSelect

EndSub

当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中对的的是—D

A.Case2分支有错，此Case后面表达式的值应当与赋给Shape1.Shape的值一致

B.程序运营有错，控件数组的下标应当从1开始

C.Index是形状控件的参数

D.程序正常运营，形状控件被显示为圆形

82.设有分段函数：

以下表达上述分段函数的语句序列中错误的是_A_o

A.SelectCasex

CaseIsvO

CaseIs<=5«Is>0

v=2*x

CaseElse

v=x*x+l

B.Ifx<0Then

y=5

Elselfx<=5Then

y=2*x

Else

y=x*x+l

EndIf

C.y=IIf(x<0,5,IIf(x<=5,2*x,x*x+1))

D.Ifx<0Theny=5

Ifx<=5Andx>=0Theny=2*x

Ifx>5Theny=x*x+l

83.列表框中的项目保存在一个数组中，这个数组的名字是—C

A.ColumnB.StyleC.ListD.MultiSeleel

84.设a=2,b=3,c=4,d=5,则下面语句的输出是A。

Print3>2*bOra=cAndbOcOrc>d

A,FalseB.1C.TrueD.-1

85.在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程:

PrivateSubCommand1_Click()

a$="softwareandhardware"

b$-Right(a$,8)

c$=Mid(a$,l,8)

MsgBoxa$,,b$,c$,l

EndSub

则在弹出的信息框标题栏中显示的标题是—B—<,

A.softwareandhardwareB.hardware

C.softwareD.I

86.下面关于标准模块的叙述中错误的是一B—。

A.标准模块中可以声明全局变量

B.标准模块中可以包含一个SubMain过程，但此过程不能被设立为启动过程

C.标准模块中可以包含一些Public过程

D.一个工程中可以具有多个标准模决

87.窗体上有名称为Command1的命令按钮和名称为Textl的文本框

PrivateSubCommand1_Click()

Textl.Text="程序设计”

Textl.SetFocus

EndSub

PrivateSubTextl_GotFocus()

Textl.Text="等级考试”

EndSub

运营以上程序，单击命令按钮后—B―o

A.文本框中显示的是“程序设计”，且焦点在文本框中

B.文本框中显示的是“等级考试'且焦点在文本框中

C.文本框中显示的是“程序设计"，且焦点在命令按钮上

D.文本框中显示的是“等级考试”，且焦点在命令按钮上

88.在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Commandl),然后编写如下事

件过程：

PrivateSubCommandl_Click()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Str(x)

EndSub

程序运营后，单击命令按钮，在两个文本框中显示的值分别为一B—o

A.1和0B.2和72C.3和50D.4和168

89.设a=4,b=5,c=26,执行语句Printa<bAndbvc后，窗体上显示的是_A。

A.TrueB.FalseC.犯错信息D.0

90.若已把一个命令按钮的Default属性设立为True,则下面可导致按钮的Click事件过程被调用的操作是

—CO

A.用鼠标右键单击此按钮B.按键盘上的Esc键

C.按键盘上的回车键D.用鼠标右键双击此按钮

91.假如一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是

降序数)。现编写如下程序，判断输入的E整数是否为降序数。

PrivateSubCommand1_Click()

DimnAsLong

DimflagAsBoolean

n=InpulBox("输入一个正整数")

s=Trim(Str(n))

Fori=2ToLen(s)

IfMid(s,i-1,1)<Mid(s,i,1)ThenExitFor

Nexti

Ifi=Len(s)Thcnflag=TrucElseflag=False

IfflagThen

Printn;"是降序数"

Else

Printn;"不是降序数”

EndIf

EndSub

运营以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下对的的修改是B

A.Ifi=Len(s)+1Thenflag=FalseElseflag=True

B.Ifi=Len(s)+1Thenflag=TrueElseflag=False

C.Ifi=Len(s)-1Thenf!ag=FalseElseflag=True

D.Ifi=Len(s)-1Thenflag=TrueElseflag:False

92.设程序中有如下语句：

x=InputBox(“输入“，”数据”,100)

Printx

运营程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出D_

A.0B.5C.100D.空白

93.有人编写了如下程序：

PrivateSubForm_Click()

DimsAsInteger,xAsInteger

s=0

x=0

DoWhiles=10000

x=x+1

s=s+xA2

Loop

Prints

EndSub

上述程序的功能是：计算s=l+22+3?+…+r?+…，直至UsXOOOO为止。程序运营后，发现得不到对的的结

果，必须进行修改。下列修改中对的的是Bo

A.把x=0改为x=l

B.把DoWhiles=10000改为DoWhiles<=10000

C.把口0亚卜加5=10000改为口0\¥忻怕5>10000

D.互换x=x+^l3s=s+x八2的位置

94.窗体Forml上有一个名称为Commandl的命令按钮，以下相应窗体单击事件的事件过程是B—。

A.PrivateSubForml_Click()

EndSub

B.PrivateSubFormClickO

EndSub

C.PrivateSubCommandl_Click()

EndSub

D.PrivateSubCommand_Click()

EndSub

95.在窗体上画一个文本框(名称为Tex")和一个标签(名称为Labell),程序运营后，假如在文本框中输入文

本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是A_o

A.PrivateSubTe\>lChange/)

LabelLCaDtion=TextLTexi

EndSub

B.PrivateSubLabelI_Change()

Label1.Caption=Text1.Text

EndSub

C.PrivateSubTextl_Click()

Label1.Caption=Textl.Text

EndSub

D.PrivateSubLabell_Click()

Label1.Caption=Textl.Text

EndSub

96.设窗体的名称为Forml,标题为Win,则窗体的MouseDown事件过程的过程名是__C.

A.Forml_MouseDownB.Win_MouseDown

C,FomiMouseDownD.MouseDown_Form1

97.设窗体上有名称为Optionl的单选按钮，且程序中有语句：

IfOptionl.Value=TrueThen

下面语句中与该语句不等价的是一C―O

A.IfOption1.ValueThenB.IfOptionl=TrueThen

C,IfValuc=TrucThenD.IfOptionlThen

98.阅读程序：

PrivateSubForm_Click()

a=0

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

程序运营后，单击窗体，输出结果是—D―o

A.105B.1C.120D.15

99.执行下列语句：

slrInpu【=【nputBox("请输入字符串字符串对话框“，“字符串”)

将显示输入对话框。此时假如直接单击“拟定”按钮，则变量strl叩ut的内容是C

A.”请输入字符串"B.”字符串对话框"

C."字符串“D.空字符串

100.可以存放组合框的所有项目内容的属性是_C。

A.CaptionB.TextC.ListD.Selected

101.现有以下程序:

PrivateSubCommand1_Click()

cl=0

c2=0

Fori=llb100

IfiMod3=0Then

c1=c1+1

ElselfiMod7=0Then

c2=c2+l

EndIf

Next

Printcl+c2

EndSub

此程序运营后输出的是在1100范围内_Bo

A.同时能被3和7整除的整数个数

B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)

C.能被3整除，而不能被7整除的整数个数

D.能被7整除，而不能被3整除的整数个数

102.现有如下一段程序：

OptionBase1

PrivateSubCommandl_Click()

Dima

a=Array(3,5,7,9)

x=l

Fori=4Tb1Step-1

s=s+a(i)*x

x=x*10

Next

Prints

EndSub

执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是_C

A.9753B.35C.3579D.79

103.设有如下程序：

PrivateSubForm_Click()

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

f=l

n=4

Fori=lTon

f=f*i

s=s+f

Nexti

Prints

EndSub

程序运营后，单击窗体，输出结果是D_o

A.32B.35C.34D.33

104.默认情况下，下面声明的数组的元素个数是_D。6*5=30

Dima(5,-2To2)

A.20B.24C.25D.30

105.以下说法中错误的是一C—。

A.假如把一个命令按钮的Default属性设立为True,则按回车键与单击该命令按钮的作用相同

B.可以用多个命令按钮组成命令按钮数组

C.命令按钮只能辨认单击(Click)事件

D.通过设立命令按钮的Enabled属性，可以使该命令按钮有效或禁用

106.下面对的使用动态数组的是_A0

A.Dimart()AsInteger

ReDimarr(3,5)

B.Dimarr()AsInteger

ReDimarr(50)AsString

C.Dimarr()

ReDimarr(50)AsInteger

D.Dimarr(50)AsInteger

ReDimarr(20)

107.设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设立为Min属性设立为100。下面叙

述中对的的是A。

A.程序运营时，若使滚动块向左移动，滚动条的Value属性值就增长

B.程序运营时，若使滚动块向左移动，滚动条的Value属性值就减少

C.由于滚动条的Max属性值小于Min属性值，程序会犯错

D.由于滚动条的Max属性值小于Min属性值，程序运营时滚动条的长度会缩为一点，滚动块无法移动

108.以下说法中对的的是A_。

A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程

B.由于窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程

C.若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值

也相同

D.在KeyPress事件过程中，KeyAscii参数可以省略

109.窗体上有Command】、Command2两个命令按钮。现编写以下程序：

OptionBase0

Dima()AsInteger,mAsInteger

PrivateSubCommand1_Click()

m=InputBox("请输入一个正整数")

RcDima(m)

EndSub

PrivateSubCommand2_Click()

m=InputBox("请输入一个正整数")

ReDima(m)

EndSub

运营程序时，单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是

B_<,0—56个

A.5B.6C.10D.11

110.要使两个单选按钮属于同一个框架，对的的操作是—A。

A.先画一个框架，再在框架中画两个单选按钮

B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中

C.先画两个单选按钮，再画框架将单选按钮框起来

D.以上三种方法都对的

111.窗体上有一个名称为Commandl的命令按钮，并有如下程序：

PrivateSubCommand1_Click()

x=15

DoWhilexX)

x=x-3

x=IIf(Int(x/5)=x/5,x+2,x)

Loop