2023年3和9月月计算机等级考试二级-VB笔试真题及答案

2023年3月全国计算机等级考试二级VB笔试试卷一、选择题〔每题2分，共70分〕

〔1〕以下表达中正确的是()

A)对长度为n的有序链表进行查找，最坏情况下需要比拟次数为n

B)对长度为n的有序链表进行对分查找，最坏情况下需要比拟次数为〔n/2〕

C)对长度为n的有序链表进行对分查找，最坏情况下需要的比拟次数〔log2n〕

D)对长度为n的有序链表进行对分查找，最坏情况下需要的比拟次数〔nlog2n〕

〔2〕算法的时间复杂是指()

A)算法的执行时间B)算法所处理的数据量

C)算法程序中的语句或指令条数D)算法在执行过程中所需要的根本运算次数

〔3〕软件按功能可以分为：应用软件、系统软件和支持软件〔或工具软件〕，下面属于系统软件的是()

A)编辑软件B)操作系统C)教务管理系统D〕浏览器

〔4〕软件〔程序〕调试的任务是()

A)诊断和改正程序中的错误B)进肯能多的发现程序中的错误

C)发现并改正程序中的所有错误D)确定程序中错误的性质

〔5〕数据流程图〔DFD图〕是()

A)软件概要设计的工具B)软件详细设计的工具

C)机构化方法的需求分析工具D)面向对象方法的需求分析工具

〔6〕软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属于()

A)定义阶段B)开发阶段C)维护阶段D)上述三个阶段

〔7〕数据库管理系统中负责数据模式定义的语言是

A〕数据定义语言

B〕数据管理语言

C〕数据操纵语言

D〕数据控制语言

〔8〕在学生管理的关系数据库中，存取一个学生信息的数据单位是

A〕文件

B〕数据库

C〕字段

D〕记录

〔9〕数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的

A〕需求分析阶段

B〕逻辑设计阶段

C〕概念设计阶段

D〕物理设计阶段

〔10〕有两个关系R和T如下：

那么由关系R得到关系T的操作是

A〕选择

B〕投影

C〕交

D〕并

〔11〕在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是

〔12〕设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是

A〕|x|

B〕-|x|

C〕x

D〕-x

〔13〕设窗体文件中有下面的事件过程：

PrivateSubCommand1_Click〔〕

Dims

a%=100

Printa

EndSub

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

A〕整型，整型

B〕变体型，变体型

C〕整型，变体型

D〕变体型，整型

〔14〕下面哪个属性肯定不是框架控件的属性

A〕Text

B〕Caption

C〕Left

D〕Enabled

〔15〕下面不能在信息框中输出“VB〞的是

A〕MsgBox"VB"

B〕x=MsgBox〔"VB"〕

C〕MsgBox〔"VB"〕

D〕CallMsgBox"VB"

〔16〕窗体上有一个名称为Option1的单项选择按钮数组，程序运行时，当单击某个单项选择按钮时，会调用下面的事件过程

PrivateSubOption1_C1ick〔IndexAsInteger〕

…

EndSub

下面关于此过程的参数Index的表达中正确的是

A〕Index为1表示单项选择按钮被选中，为O表示未选中

B〕Index的值可正可负

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

D〕Index表示数组中单项选择按钮的数量

〔17〕设窗体中有一个文本框Text1，假设在程序中执行了Text1.SetFocus，那么触发

A〕Text1的SetFocus事件

B〕Text1的GotFocus事件

C〕Text1的LostFocus事件

D〕窗体的GotFocus事件

〔18〕VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，假设光标在Text1文本框中，那么每输入一个字母

A〕这3个事件都会触发

B〕只触发KeyPress事件

C〕只触发KeyDown、KeyUp事件

D〕不触发其中任何一个事件

〔19〕下面关于标准模块的表达中错误的是

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

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

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

D〕一个工程中可以含有多个标准模块

〔20〕设窗体的名称为Form1，标题为Win，那么窗体的MouseDown事件过程的过程名是

A〕Form1_MouseDown

B〕Win_MouseDown

C〕Form_MouseDown

D〕MouseDown_Form1

〔21〕下面正确使用动态数组的是

A〕Dimarr()AsInteger

…ReDimarr(3,5)

B〕Dimarr()AsInteger

…ReDimarr(50)AsString

C〕Dimarr()

…ReDimarr(50)AsInteger

D〕Dimarr(50)AsInteger

…ReDimarr(20)

〔22〕下面是求最大公约数的函数的首部

Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger

假设要输出8、12、16这3个数的最大公约数，下面正确的语句是

A〕Printgcd(8,12)，gcd(12,16)，gcd(16,8)

B〕Printgcd(8,12,16)

C〕Printgcd(8)，gcd(12)，gcd(16)

D〕Printgcd(8,gcd(12,16))

〔23〕有下面的程序段，其功能是按图1所示的规律输出数据

Dima(3,5)AsInteger

Fori=1To3

Forj=1To5

A(i,j)=i+j

Printa(i,j);

Next

Print

Next

假设要按图2所示的规律继续输出数据，那么接在上述程序段后面的程序段应该是

A〕Fori=1To5

Forj=1To3

Printa〔j,i〕;

Next

Print

Next

B〕Fori=1To3

Forj=1To5

Printa〔j,i〕;

Next

Print

Next

C〕Forj=1To5

Fori=1To3

Printa〔j,i〕;

Next

Print

Next

D〕Fori=1To5

Forj=1To3

Printa〔i,j〕;

Next

Print

Next

〔24〕窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序

PrivateSubCommandl_Click〔〕

Dimn

IfText1.Text<>"23456"Then

n=n＋1

Print"口令输入错误"&n&"次"EndIf

EndSub

希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令〞命令按钮，假设输入的口令不是“123456〞，那么在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是

A〕在Dimn语句的下面添加一句：n=O

B〕把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"

C〕把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"

D〕把Dimn改为Staticn

〔25〕要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A〕PrivateSubP1_MouseMove〔ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle〕

PrintX,Y

EndSub

B〕PrivateSubP1_MouseDown〔ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle〕

Picture.PrintX,Y

EndSub

C〕PrivateSubP1_MouseMove〔ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle〕

P1.PrintX,Y

EndSub

D〕PrivateSubForm_MouseMove〔ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle〕

P1.PrintX,Y

EndSub

〔26〕计算二的近似值的一个公式是。

某人编写下面的程序用此公式计算并输出π的近似值：

PrivateSubComand1_Click〔〕

PI＝1

Sign＝1

n=20000

Fork=3Ton

Sign=-Sign/k

PI=PI+Sign/k

Nextk

PrintPI*4

EndSub

运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是

A〕把Fork=3Ton改为Fork=1Ton

B〕把n=20000改为n=20000000

C〕把Fork=3Ton改为Fork=3TonStep2

D〕把PI=1改为PI=0

〔27〕下面程序计算并输出的是

PrivateSubComand1_Click〔〕

a=10

s=0

Do

s=s+a*a*a

a=a-1

LoopUntila<=0

Prints

EndSub

A〕13+23+33+…+103的值

B〕10!+…+3!+2!+1!的值

C〕〔1+2+3+…+10〕3的值

D〕10个103的和

〔28〕假设在窗体模块的声明局部声明了如下自定义类型和数组

PrivateTyperec

CodeAsInteger

CaptionAsString

EndType

Dimarr〔5〕Asrec

那么下面的输出语句中正确的是

A〕Printarr.Code(2),arr.Caption(2)

B〕Printarr.Code,arr.Caption

C〕Printarr(2).Code,arr(2).Caption

D〕PrintCode(2),Caption(2)

〔29〕设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，翻开如下图的文件对话框

PrivateSubComand1_Click〔〕

CD1.DialogTitle="翻开文件"CD1.InitDir="C:\"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"CD1.FileName=""CD1.Action=1

IfCD1.FileName=""Then

Print"未翻开文件"Else

Print"要翻开文件"&CD1.FileName

EndIf

EndSub

但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型〞一栏中显示的是“所有文件〞。下面的修改方案中正确的是

A〕把CD1.Action=1改为CD1.Action=2

B〕把“CD1.Filter=〞后面字符串中的“所有文件〞改为“文本文件〞

C〕在语句CD1.Action=1的前面添加：CD1.FilterIndex=3

D〕把CD1.FileName=""改为CD1.FileName="文本文件"

〔30〕下面程序运行时，假设输入395，那么输出结果是

PrivateSubComand1_Click〔〕

Dimx%

x=InputBox("请输入一个3位整数")

PrintxMod10,x\100,(xMod100)\10

EndSub

A〕395

B〕539

C〕593

D〕359

〔31〕窗体上有List1、List2两个列表框，List1中有假设干列表项〔见图〕，并有下面的程序：

PrivateSubComand1_Click〔〕

Fork=List1.ListCount-1To0Step-1

IfList1.Selected〔k〕Then

List2.AddItemList1.List〔k〕

List1.RemoveItemk

EndIf

Nextk

EndSub

程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，那么产生的结果是

A〕在List2中插入了“外语〞、“物理〞两项

B〕在List1中删除了“外语〞、“物理〞两项

C〕同时产生A〕和B〕的结果

D〕把List1中最后1个列表项删除并插入到List2中

〔32〕设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键〔回车键的ASCII码为13〕后，隐藏Form1，显示Form2。假设口令为“Teacher〞，所有菜单项都可见；否那么看不到“成绩录入〞菜单项。为此，某人在Form1窗体文件中编写如下程序：

PrivateSubText1_KeyPress〔KeyAsciiAsInteger〕

IfKeyAscii=13Then

IfText1.Text="Teacher"Then

Form2.input.visible=True

Else

Form2.input.visible=False

EndIf

EndIf

Form1.Hide

Form2.Show

EndSub

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是

A〕把Form1中Text1文本框及相关程序放到Form2窗体中

B〕把Form1.Hide、Form2.Show两行移到2个EndIf之间

C〕把IfKeyAscii=13Then改为IfKeyAscii="Teaeher"Then

D〕把2个Form2.input.Visible中的“Form2〞删去

〔33〕某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中

PrivateSubComand1_Click〔〕

Open"out.txt"ForOutputAs#2

Print"Text1"Close#2

EndSub

调试时发现没有到达目的，为实现上述目的，应做的修改是

A〕把Print"Text1"改为Print#2,Text1

B〕把Print"Text1"改为PrintText1

C〕把Print"Text1"改为Write"Text1"

D〕把所有#2改为#1

〔34〕窗体上有一个名为Command1的命令按钮，并有下面的程序：

PrivateSubComand1_Click〔〕

Dimarr〔5〕AsInteger

Fork=1To5

arr〔k〕=k

Nextk

progarr〔〕

Fork=1To5

Printarr〔k〕

Nextk

EndSub

Subprog〔a〔〕AsInteger〕

n=Ubound〔a〕

Fori=nTo2step-1

Forj=1Ton-1

ifa〔j〕<a〔j+1〕Then

t=a〔j〕:a〔j〕=a〔j+1〕:a〔j+1〕=t

EndIf

Nextj

Nexti

EndSub

程序运行时，单击命令按钮后显示的是

A〕12345

B〕54321

C〕01234

D〕43210

〔35〕下面程序运行时，假设输入“VisualBasicProgramming〞，那么在窗体上输出的是

PrivateSubComand1_Click〔〕

Dimcount〔25〕AsInteger,chAsString

ch=Ucase〔InputBox〔"请输入字母字符串"〕〕

Fork=1ToLen〔ch〕

n=Asc〔Mid〔ch,k,1〕〕-Asc〔"A"〕

Ifn>=0Then

Count〔n〕=Count〔n〕+1

EndIf

Nextk

m=count〔0〕

Fork=1To25

Ifm<count〔k〕Then

m=count〔k〕

EndIf

Nextk

Printm

EndSub

A〕0

B〕1

C〕2

D〕3

二、填空题

〔1〕一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，那么元素退队的顺序为【1】。

〔2〕设某循环队列的容量为50，如果头指针front=45〔指向队头元素的前一位置〕，尾指针rear=10〔指向队尾元素〕，那么该循环队列中共有【2】个元素。

〔3〕设二叉树如下：

对该二叉树进行后序遍历的结果为【3】。

〔4〕软件是【4】、数据和文档的集合。

〔5〕有一个学生选课的关系，其中学生的关系模式为：学生〔学号，姓名，班级，年龄〕，课程的关系模式为：课程〔课号，课程名，学时〕，其中两个关系模式的键分别是学号和课号，那么关系模式选课可定义为：选课〔学号，【5】，成绩〕。

〔6〕为了使复选框禁用〔即呈现灰色〕，应把它的value属性设置为【6】。

〔7〕在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，那么标签开始闪烁，每秒钟“欢送〞二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。

PrivateSubForm_Load〔〕

Label1.Caption="欢送"Timer1.Enabled=False

Timer1.Interval=【7】

EndSub

PrivateSubTimer1_Timer〔〕

Label1.Visible=【8】

EndSub

PrivateSubcommand1_Click〔〕

【9】

EndSub

〔8〕有如下程序：

PrivateSubForm_Click〔〕

n=10

i=0

Do

i=i+n

n=n-2

LoopWhilen>2

Printi

EndSub

程序运行后，单击窗体，输出结果为【10】。

〔9〕在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：

OptionBase1

PrivateSubCommand1_Click〔〕

Dima〔10〕AsInteger

Fori=1To10

a〔i〕=i

Next

Callswap〔【11】〕

Fori=1To10

Printa〔i〕;

Next

EndSub

Subswap〔b〔〕AsInteger〕

n=Ubound〔b〕

Fori=1Ton/2

t=b〔i〕

b〔i〕=b〔n〕

b〔n〕=t

【12】

Next

EndSub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。

〔10〕在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

PrivateSubForm_Click〔〕

Open"d:\test\smtext1.Txt"ForInputAs#1

DoWhileNot【13】

LineInput#1,aspect$

Whole$=whole$+aspect$+Chr$〔13〕+Chr$〔10〕

Loop

Text1.Text=whole$

【14】

Open"d:\test\smtext2.Txt"ForOutputAs#1

Print#1,【15】

Close#1

EndSub

运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

2023年3月全国计算机等级考试二级VB笔试试卷答案

选择题

1-5ADBAC

6-10BADBA

11(D)12(B)13(C)14(A)15(D)

16(C)17(B)18(A)19(B)20(A)

21(A)22(D)23(A)24(D)25(C)

26(C)27(A)28(C)29(C)30(B)

31(C)32(B)33(A)34(B)35(D)

填空题

〔1〕A,B,C,D,E,F,5,4,3,2,1

〔2〕15

〔3〕EDBGHFCA

〔4〕程序

〔5〕课号

(6)【6】2

(7)[7]500

(8)[8]Notlabel1.visible

(9)[9]Timer1.Enabled=Ture

(10)[10]28

(11)[11]a()或a

(12)[12]n=n-1

(13)[13]EOF(1)

(14)[14]Close#1

(15)[15]Text1.Text或text1dfyz来自2023年9月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计〔考试时间90分钟，总分值100分〕一、选择题〔每题2分，共70分〕以下各题A〕、B〕、C〕、D〕四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。〔1〕以下表达中正确的是〔〕。 A〕算法就是程序 B〕设计算法时只需要考虑数据结构的设计 C〕设计算法时只需要考虑结果的可靠性 D〕以上三种说法都不对〔2〕以下关于线性链表的表达中，正确的是 A〕各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B〕各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C〕进行插入与删除时，不需要移动表中的元素D〕以上三种说法都不对〔3〕以下关于二叉树的表达中，正确的是 A〕叶子结点总是比度为2的结点少一个 B〕叶子结点总是比度为2的结点多一个 C〕叶子结点数是度为2的结点数的两倍 D〕度为2的结点数是度为1的结点数的两倍〔4〕软件按功能可以分为应用软件、系统软件和支撑软件〔或工具软件〕。下面属于应用软件的是 A〕学生成绩管理系统 B〕C语言编译程序 C〕UNIX操作系统 D〕数据库管理系统〔5〕某系统总体结构图如以下图所示： 该系统总体结构图的深度是 A〕7 B〕6 C〕3 D〕2〔6〕程序调试的任务是 A〕设计测试用例 B〕验证程序的正确性 C〕发现程序中的错误 D〕诊断和改正程序中的错误〔7〕以下关于数据库设计的表达中，正确的是 A〕在需求分析阶段建立数据字典 B〕在概念设计阶段建立数据字典 C〕在逻辑设计阶段建立数据字典 D〕在物理设计阶段建立数据字典〔8〕数据库系统的三级模式不包括 A〕概念模式 B〕内模式 C〕外模式 D〕数据模式〔9〕有三个关系R、S和T如下：RSTABCABCABCa12a12c31b21b21c31 那么由关系R和S得到关系T的操作是 A〕自然连接 B〕差 C〕交 D〕并〔10〕以下选项中属于面向对象设计方法主要特征的是 A〕继承 B〕自顶向下 C〕模块化 D〕逐步求精〔11〕以下描述中错误的是 A〕窗体的标题通过其Caption属性设置 B〕窗体的名称〔Name属性〕可以在运行期间修改 C〕窗体的背景图形通过其Picture属性设置 D〕窗体最小化时的图标通过其Icon属性设置〔12〕在设计阶段，当按Ctrl+R键时，所翻开的窗口是 A〕代码窗口 B〕工具箱窗口 C〕 工程资源管理器窗口 D〕属性窗口〔13〕设有如下变量声明语句： Dima,bAsBoolean 那么下面表达中正确的是 A〕a和b都是布尔型变量 B〕a是变体型变量，b是布尔型变量 C〕a是整型变量，b是布尔型变量 D〕a和b都是变体型变量〔14〕以下可以作为VisualBasic变量名的是 A〕A#A B〕4ABC C〕?xy D〕Print_Text〔15〕假定一个滚动条的LargeChange属性值为100，那么100表示 A〕单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量 B〕滚动框位置的最大值 C〕拖动滚动框时滚动框位置的变化量 D〕单击滚动条箭头时滚动框位置的变化量〔16〕在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()MsgBoxStr(123+321)EndSub 程序运行后，单击命令按钮，那么在信息框中显示的提示信息为 A〕字符串“123+321” B〕字符串“444” C〕数值“〔17〕假定有以下程序：PrivateSubForm_Click()a=1:b=aDoUntila>=5x=a*bPrintb;xa=a+bb=b+aLoopEndSub 程序运行后，单击窗体，输出结果是A〕 1 1 B〕 1 1 C〕 1 1 D〕 1 1 2 3 2 4 3 8 3 6〔18〕在窗体上画一个名称为List1的列表框，列表框中显示假设干城市的名称。当单击列表框中的某个城市名时，该城市名消失。以下在List_Click事件过程中能正确实现上述功能的语句是A〕List1.RemoveItemList1.Text B〕List1.RemoveItemList1.ClearC〕List1.RemoveItemList1.ListCount D〕List1.RemoveItemList1.ListIndex〔19〕列表框中的工程保存在一个数组中，这个数组的名字是 A〕Column B〕Style C〕List D〕MultiSelect〔20〕有人编写了如下的程序：PrivateSubForm_Click()DimsAsInteger,xAsIntegers=0x=0DoWhiles=10000x=x+1s=s+x^2LoopPrintsEndSub上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。以下修改中正确的是 A〕把x=0改为x=1 B〕把DoWhiles=10000改为DoWhiles<=10000 C〕把DoWhiles=10000改为DoWhiles>10000 D〕交换x=x+1和s=s+x^2的位置〔21〕设有如下程序：PrivateSubForm_Click()DimsAsLong,fAsLongDimnAsInteger,iAsIntegerf=1n=4Fori=1Tonf=f*is=s+fNextiPrintsEndSub程序运行后，单击窗体，输出结果是 A〕32 B〕33 C〕34 D〕35〔22〕阅读下面的程序段：a=0Fori=1To3Forj=1ToiFork=jTo3a=a+1NextkNextjNexti执行上面的程序段后，a的值为 A〕3 B〕9 C〕14 D〕21〔23〕设有如下程序：PrivateSubForm_Click()Clsa$="123456"Fori=1To6PrintTab(12-i);NextiEndSub程序运行后，单击窗体，要求结果如下图，那么在处应填入的内容为 A〕Left(a$,i) B〕Mid(a$,8-i,i) C〕Right(a$,i) D〕Mid(a$,7,i)〔24〕设有如下程序：PrivateSubForm_Click()DimiAsInteger,xAsString,yAsStringx="ABCDEFG"Fori=4To1Step-1y=Mid(x,i,i)+yNextiPrintyEndSub程序运行后，单击窗体，输出结果是 A〕ABCCDEDEFG B〕AABBCDEFG C〕ABCDEFG D〕AABBCCDDEEFFGG〔25〕设有如下程序：PrivateSubForm_Click()Dimary(1To5)AsIntegerDimiAsIntegerDimsumAsIntegerFori=1To5ary(i)=i+1sum=sum+ary(i)NextiPrintsumEndSub程序运行后，单击窗体，那么在窗体上显示的是 A〕15 B〕16 C〕20 D〕25〔26〕有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，1，2，4，7，13，24，……要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下：PrivateSubForm_Click()DimiAsInteger,aAsInteger,bAsIntegerDimcAsInteger,dAsIntegera=0:b=1:c=1d=a+b+ci=5Whiled<=1000Printd;a=b:b=c:c=dd=a+b+ci=i+1WendEndSub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A〕把Whiled<=1000改为Whiled>1000B〕把i=5改为i=4C〕把i=i+1移到Whiled<=1000的下面D〕在i=5的上面增加一个语句：Printa;b;c;〔27〕下面的语句用Array函数为数组变量a的各元素赋整数值：a=Array(1,2,3,4,5,6,7,8,9) 针对a的声明语句应该是A〕Dima B〕DimaAsInteger C〕Dima(9)AsInteger D〕Dima()AsInteger〔28〕以下描述中正确的是 A〕VisualBasic只能通过过程调用执行通用过程 B〕可以在Sub过程的代码中包含另一个Sub过程的代码 C〕可以像通用过程一样指定事件过程的名字 D〕Sub过程和Function过程都有返回值〔29〕阅读程序：Functionfac(ByValnAsInteger)AsIntegerDimtempAsIntegertemp=1Fori%=1Tontemp=temp*i%Nexti%fac=tempEndFunctionPrivateSubForm_Click()DimnsumAsIntegernsum=1Fori%=2To4nsum=nsum+fac(i%)Nexti%PrintnsumEndSub程序运行后，单击窗体，输出结果是 A〕35 B〕31 C〕33 D〕37〔30〕在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：SubS(xAsInteger,yAsInteger)StaticzAsIntegery=x*x+zz=yEndSubPrivateSubCommand1_Click()DimiAsInteger,zAsIntegerm=0z=0Fori=1To3Si,zm=m+zNextiLabel1.Caption=Str(m)EndSub 程序运行后，单击命令按钮，在标签中显示的内容是 A〕50 B〕20 C〕14 D〕7〔31〕以下说法中正确的是 A〕MouseUp事件是鼠标向上移动时触发的事件 B〕MouseUp事件过程中的x，y参数用于修改鼠标位置 C〕在MouseUp事件过程中可以判断用户是否使用了组合键 D〕在MouseUp事件过程中不能判断鼠标的位置〔32〕假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见〞属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是 A〕PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1AndButton=2ThenPopupMenua1EndIfEndSub B〕PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)PopupMenua1EndSub C〕PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPopupMenua1EndIfEndSub D〕PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenua1EndIfEndSub〔33〕在窗体上画一个名称为CD1的通用对话框，并有如下程序：PrivateSubForm_Load()CD1.DefaultExt="doc"CD1.FileName="c:\file1.txt"CD1.Filter="应用程序(*.exe)|*.exe"EndSub 程序运行时，如果显示了“翻开〞对话框，在“文件类型〞下拉列表框中的默认文件类型是 A〕应用程序(*.exe) B〕*.doc C)*.txt D)不确定〔34〕以下描述中错误的是 A〕在多窗体应用程序中，可以有多个当前窗体 B〕多窗体应用程序的启动窗体可以在设计时设定 C〕多窗体应用程序中每个窗体作为一个磁盘文件保存 D〕多窗体应用程序可以编译生成一个EXE文件〔35〕以下关于顺序文件的表达中，正确的是 A〕可以用不同的文件号以不同的读写方式同时翻开同一个文件 B〕文件中各记录的写入顺序与读出顺序是一致的 C〕可以用Input#或LineInput#语句向文件写记录 D〕如果用Append方式翻开文件，那么既可以在文件末尾添加记录，也可以读取原有记录二、填空题(每空2分，共30分) 请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。〔1〕数据结构分为线性结构与非线性结构，带链的栈属于【1】。〔2〕在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中【2】个元素。〔3〕常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图〔DFD〕，那么应采用【3】方法。〔4〕数据库系统的核心是【4】。〔5〕在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通常被转换为【5】。〔6〕为了使标签能自动调整大小以显示标题〔Caption属性〕的全部文本内容，应把该标签的【6】属性设置为True。〔7〕在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程