1、二级 VISUAL+BASIC-97 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.在关系代数运算中，有 5 种基本运算，它们是_。（分数：2.50）A.并()、差(-)、交()、除()和笛卡儿积()B.并()、差(-)、交()、投影()和选择()C.并()、交()、投影()、选择()和笛卡儿积()D.并()、差(-)、投影()、选择()和笛卡儿积()2.在数据库系统的组织结构中，下列_映射把用户数据库与概念数据库联系了起来。（分数：2.50）A.外模式/模式B.内模式/外模式C.模式/内模式D.内模式/模式3.下列关于线性链表的描述中
2、，正确的是_。 、只含有一个指针域来存放下一个元素地址 、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件) 、结点由两部分组成：数据域和指针域。（分数：2.50）A.仅、B.仅、C.仅、D.全部4.下面关于数据库三级模式结构的叙述中，正确的是_。（分数：2.50）A.内模式可以有多个，外模式和模式只有一个B.外模式可以有多个，内模式和模式只有一个C.内模式只有一个，模式和外模式可以有多个D.模式只有一个，外模式和内模式可以有多个5.设有关键码序列(66，13，51，76，81，26，57，69，23)，要按关键码值递增的次序排序，若采用快速排序法，并以第一个元素为划分的基准，那
3、么第一趟划分后的结果为_。（分数：2.50）A.23，13，51，57，66，26，81，69，76B.13，23，26，51，57，66，81，76，69C.23，13，51，57，26，66，81，69，76D.23，13，51，57，81，26，66，69，766.下列哪一条不属于数据库设计的任务?_（分数：2.50）A.设计数据库应用结构B.设计数据库概论结构C.设计数据库逻辑结构D.设计数据库物理结构7.数据库技术的根本目标是_。（分数：2.50）A.数据存储B.数据共享C.数据查询D.数据管理8.需求分析阶段的任务是_。（分数：2.50）A.软件开发方法B.软件开发工具C.软件开发
4、费用D.软件系统功能9.关系数据库管理系统能实现的专门关系运算包括_。（分数：2.50）A.排序、索引、统计B.选择、投影、连接C.关联、更新、排序D.显示、打印、制表10.数据管理技术发展的三个阶段中，_没有专门的软件对数据进行管理。 人工管理阶段 文件系统阶段 数据库阶段（分数：2.50）A仅B仅C.和D.和11.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是_。（分数：2.50）A.ListB.ListIndexC.TextD.ListCount12.下列关于窗体的描述中，错误的是_。（分数：2.50）A.窗体的 Height、Width 属性用于设置窗体的高和宽B.窗体
5、的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.执行 UnLoad Form1 语句后，窗体 Form1 消失，但仍在内存中13.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序执行时，单击命令按钮，实现的功能是_。（分数：2.50）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.命令按钮向左、上方向各移动 500C.窗体移动到距屏幕左边界、上边界各 500 的位置D.窗体向
6、左、上方向各移动 50014.表达式 Int(8*Sqr(36)*10(-2)*10+0.5)/10 的值是_。（分数：2.50）A.0.48B.0.048C.0.5D.0.0515.在过程定义中，Private 表示_。（分数：2.50）A.此过程可以被其他过程调用B.此过程不可以被任何其他过程调用C.此过程只可以被本工程中的其他过程调用D.此过程只可以被本窗体模块中的其他过程调用16.为了使标签中的内容居中显示，应把 Alignment 属性设置为_。（分数：2.50）A.0B.1C.2D.317.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的_属性设置为True。（分数
7、：2.50）A.ValueB.CancelC.EnabledD.Default18.下面叙述不正确的是_。（分数：2.50）A.对顺序文件中的数据操作只能按一定的顺序操作B.顺序文件结构简单C.能同时对顺序文件进行读写操作D.顺序文件中只能知道第一个记录的位置19.假定有以下两个过程： Sub S1(ByVal x As Interger, ByVal y As Interger) Dim t As Interger t=x:x=y:y=t End Sub Sub S2(x As Interger, y As Interger) Dim t As Interger t=x:x=y:y=t En
8、d Sub 则以下说法中正确的是_。（分数：2.50）A.用过程 S1 可以实现交换两个变量的值的操作，S2 不能实现B.用过程 S2 可以实现交换两个变量的值的操作，S1 不能实现C.用过程 S1 和 S2 都可以实现交换两个变量的值的操作D.用过程 S1 和 S2 都不能实现交换两个变量的值的操作20.在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的 Text 属性置空，编写命令按钮Command1 的 Click 事件代码： Private Function fun(x As Long)As Boolean If x Mod 2=0 Then fun=True Else fu
9、n=False End If End Function Private Sub Command1_Click() Dim n As Long n=Val(Text1.Text) p=IIf(fun(n), “奇数“, “偶数“) Label1.Caption=n a（分数：2.50）A.-1 6B.-1 16C.1 6D.11 2126.窗体上有名为 Text1、Text2 的两个文本框，和一个由 3 个单选按钮组成的控件数组 Option1，如图 1所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中数值与该单选按钮所对应的运算(乘 1、乘10 或乘 100)，并将结果显示在 Te
10、xt2 中，如图 2 所示。为了实现上述功能，在程序中的横线处应填入的内容是_。 图 1（分数：2.50）A.Option1.IndexB.IndexC.Option1(Index)D.Option1(Index).Value27.下列程序运行后，输出结果为_。 Sub abcd(ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click() n%=3 Call abcd(n%) Print n% End Sub（分数：2.50）A.3B.4C.5D.828.下列关于通用对话框 CD1 的叙述中，错误的是_。（分数：2.50）A.使用 CD
11、1.ShowColor 方法，可显示“颜色”对话框B.显示“字体”对话框前，必须先设置 CD1 的 Flags 属性，否则会出错C.只要在“打开”对话框中选择了文件，并单击“打开”按钮，即可将选中的文件打开D.CancelError 属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告29.在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Open“C:/dat.txt“For Output As #1 Text1.Text=“ End Sub Private Sub Text1_KeyPress(KeyAscii As
12、 Integer) If_=13 Then If UCase(Text1.Text=_)Then Close 1 End Else Write #1, Text1.Text Text1.Text=“ End If End If End Sub 程序的功能是，在 C 盘根目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASCII 码是 13)都把当前文本框中的内容写入文件 dat.txt 中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句_。（分数：2.50）A.KeyAscii “END“B.Text1.Text “EN
13、D“C.Text1.Text 13D.KeyAscii 1330.下列程序的执行结果是_。 Private Sub Form_Activate() Dim score(3) As Integer, total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i, aa_score, total Next End Sub（分数：2.50）A.1 0 02 50
14、503 14 644 36 100B.1 50 502 14 643 36 100C.0 50 501 14 642 36 1003 36 100D.0 0 01 50 502 14 643 36 10031.在窗体上画一个名为 Command1 的命令按钮，编写如下程序： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x) End Sub 程序运行后，单击命令按钮，输出的结果是_。（分数：2.50）A.4B.5C.6D.832.要清除已经在图片框
15、 Picture1 中打印的字符串而不清除图片框中的图像，应使用语句_。（分数：2.50）A.Picture1.ClsB.Picture1.Picture=LoadPicture(“)C.Picture1.Pint“D.Picture1.Picture“33.执行以下程序后，在窗体上输出的是_。 Private Sub Command1_Click() Dim a(20) For i=1 To 20 Step 2 a(j)=j Next j Print a(1)+a(2)+a(3) End Sub（分数：2.50）A.4B.5C.6D.734.下面程序的运行结果是_。 Private Sub
16、Form_Click() i=0 Do Until 0 i=i+1 If i10 Then Exit Do Loop Print i End Sub（分数：2.50）A.0B.10C.11D.出错35.窗体上有 1 个名为 List1 的列表框，其中已经输入了若干个项目(如图所示)；还有 2 个文本框，名称分别为 Text1、Text2，1 个名称为 Command1 的命令按钮，并有以下程序： （分数：2.50）A京B.北京 南京C.南京 北京D.没有匹配的项目36.下面程序运行时，若输入 395，则输出结果是_。 Private Sub Cmd1_Click() Dim a% a=Inpu
17、tBox(“请输入一个 3 位整数“) Print a Mod 10, a/100, (a Mod 100)/10 End Sub（分数：2.50）A.5 9 3B.3 5 9C.5 3 9D.3 9 537.设已经在窗体上添加了一个通用对话框控件 CommonDialog1，以下语句正确的是_。（分数：2.50）A.CommonDialog1.Filter=ALLL Files |*.*|=|Pictures(*.Bmp)|*.BmpB.CommonDialog1.Filter=“ALLL Files“|*.*|“|Pictures(*.Bmp)“|*BmpC.CommonDialog1.F
18、ilter=ALLL Files|*.*|Pictures(*.Bmp)|*.BmpD.CommonDialog1.Filter=“ALLL Files |*.*|Pictures(*.Bmp)|*.Bmp“38.Visual Basic 根据计算机访问文件的方式将文件分成 3 类，其中不包括_。（分数：2.50）A.顺序文件B.Unix 文件C.二进制文件D.随机文件39.用 Write 和 Print 语句向文件中写入多个数据的差别在于_。（分数：2.50）A.Write 语句不会自动在数据项之间插入逗号B.Print 语句自动在数据项之间插入逗号C.Write 语句写入字符串会自动给字符
19、串加上双引号；写入的正数前面没有空格D.Print 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格40.窗体上建立了一个名为 CornmonDialong1 的通用对话框，用下面的语句建立一个对话框：CommonDialong1.Action=2，则以下语句与之等价的是_。（分数：2.50）A.CommonDialon1.ShowOpenB.CommonDialog1.ShowSaveC.CommonDialog1.ShowColorD.CommonDialog1.ShowFont二级 VISUAL+BASIC-97 答案解析(总分：100.00，做题时间：90 分钟)一、选择
20、题(总题数：40，分数：100.00)1.在关系代数运算中，有 5 种基本运算，它们是_。（分数：2.50）A.并()、差(-)、交()、除()和笛卡儿积()B.并()、差(-)、交()、投影()和选择()C.并()、交()、投影()、选择()和笛卡儿积()D.并()、差(-)、投影()、选择()和笛卡儿积() 解析：解析 并、差、笛卡儿积、投影和选择是 5 种基本的运算，其他运算即交、连接和除，均可以通过 5 种基本的运算来表达。2.在数据库系统的组织结构中，下列_映射把用户数据库与概念数据库联系了起来。（分数：2.50）A.外模式/模式 B.内模式/外模式C.模式/内模式D.内模式/模式解
21、析：解析 数据库有两层映像，即外模式/模式和模式/内模式映像。模式/内模式映像定义数据库全局逻辑结构与存储结构之间的对应关系。3.下列关于线性链表的描述中，正确的是_。 、只含有一个指针域来存放下一个元素地址 、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件) 、结点由两部分组成：数据域和指针域。（分数：2.50）A.仅、B.仅、C.仅、D.全部 解析：解析 在定义的链表中，若只含有一个指针域来存放下一个元素地址，称这样的链表为单链表或线性链表。 在链式存储方式中，要求每个结点由两部分组成：一部分用于存放数据元素值，称为数据域；另一部分用于存放指针，称为指针域。其中指针用于指向
22、该结点的前一个或后一个结点(即前件或后件)。4.下面关于数据库三级模式结构的叙述中，正确的是_。（分数：2.50）A.内模式可以有多个，外模式和模式只有一个B.外模式可以有多个，内模式和模式只有一个 C.内模式只有一个，模式和外模式可以有多个D.模式只有一个，外模式和内模式可以有多个解析：解析 数据库的三级模式结构是指数据库系统的外模式、模式和内模式。一个数据库可以有多个外模式，但只有一个模式和一个内模式。5.设有关键码序列(66，13，51，76，81，26，57，69，23)，要按关键码值递增的次序排序，若采用快速排序法，并以第一个元素为划分的基准，那么第一趟划分后的结果为_。（分数：2.
23、50）A.23，13，51，57，66，26，81，69，76 B.13，23，26，51，57，66，81，76，69C.23，13，51，57，26，66，81，69，76D.23，13，51，57，81，26，66，69，76解析：解析 快速排序是起泡排序的改进。在快速排序中，任取一个记录，以它为基准用交换的方法将所有的记录分成两部分，关键码值比它小的在一部分，关键码值比它大的在另一部分，再分别对两个部分实施上述过程，一直重复到排序完成。6.下列哪一条不属于数据库设计的任务?_（分数：2.50）A.设计数据库应用结构 B.设计数据库概论结构C.设计数据库逻辑结构D.设计数据库物理结构解析
24、：解析 数据库设计工作量大而且过程复杂，既是一项数据库工程也是一项庞大的软件工程。考虑数据库及其应用系统开发全过程，将数据库设计分为以下 6 个阶段：需求分析、概念结构设计、逻辑结构设计、物理结构设计、数据库实施和数据库的运行和维护。7.数据库技术的根本目标是_。（分数：2.50）A.数据存储B.数据共享 C.数据查询D.数据管理解析：解析 数据库是长期储存在计算机内、有组织的、可共享的大量数据的集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，并可被各个应用程序所共享，所以数据库技术的根本目标是解决数据共享问题。8.需求分析阶段的任务是_。（分数：2.50）A.软件开
25、发方法B.软件开发工具C.软件开发费用D.软件系统功能 解析：解析 需求分析是软件定义时期的最后一个阶段，它的基本任务就是详细调查现实世界要处理的对象，充分了解原系统的工作概况，明确用户的各种需求，然后在这些基础上确定新系统的功能。9.关系数据库管理系统能实现的专门关系运算包括_。（分数：2.50）A.排序、索引、统计B.选择、投影、连接 C.关联、更新、排序D.显示、打印、制表解析：解析 关系数据库管理系统的专门关系运算包括选择运算、投影运算和连接运算。10.数据管理技术发展的三个阶段中，_没有专门的软件对数据进行管理。 人工管理阶段 文件系统阶段 数据库阶段（分数：2.50）A仅 B仅C.
26、和D.和解析：解析 数据管理技术发展的三个阶段中，只有人工管理阶段，没有操作系统，没有管理数据的软件，数据处理方式是批处理。在文件系统阶段，操作系统中已经有了专门数据管理软件，一般称为文件系统。在数据库系统阶段，出现了统一管理数据的专门软件系统，即数据库管理系统。11.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是_。（分数：2.50）A.ListB.ListIndexC.Text D.ListCount解析：解析 组合框的 List 属性用来列出表项的内容。List 属性保存了列表框中所有值的数组，可以通过下标访问数组中的值，其格式为列表框.List(下标)；ListInde
27、x 属性的设置值是已选中的表项的位置，表项位置由索引值指定；Text 属性值是用户所选择的项目的文本或直接从编辑区输入的文本；ListCount 属性属性列出列表框中表项的数量。12.下列关于窗体的描述中，错误的是_。（分数：2.50）A.窗体的 Height、Width 属性用于设置窗体的高和宽B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.执行 UnLoad Form1 语句后，窗体 Form1 消失，但仍在内存中 解析：解析 本题考查窗体文件的常用属性。窗体的 Height、Width 属性用于设置窗体
28、的高和宽，Left和 Top 属性设置窗体在屏幕中的位置，Enabled 属性设置为 False 时，窗体上所有的控件禁止应用。加载窗体时，自动运行窗体的 Load 事件，执行 UnLoad 方法以后，可以把当前窗体从内存中移出。13.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序执行时，单击命令按钮，实现的功能是_。（分数：2.50）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.命令按钮向左、上方向各移动 500C.窗体移动到距屏幕左边界、上边界
29、各 500 的位置 D.窗体向左、上方向各移动 500解析：解析 本题考查 Move 方法。Move 方法移动窗体或控件，并可改变其大小，具体的格式为：对象.Move 左边距离，上边距离，宽度，高度，其中对象可以是除时钟、菜单外的所有控件，省略时默认为窗体。Move 方法的功能是：把对象从当前位置移动到左上角坐标为(左边距离，上边距离)的位置，同时根据高度和宽度参数来改变控件的高度和宽度。14.表达式 Int(8*Sqr(36)*10(-2)*10+0.5)/10 的值是_。（分数：2.50）A.0.48B.0.048C.0.5 D.0.05解析：解析 本题考查运算符的优先级。首先计算函数调用
30、，算术运算符优先级从高到低为：()-、*/、+-，因此首先计算 sqr(36)，然后计算()括号内部的负号和平方运算符，接着计算*和+，然后计算Int 取整，最后计算/运算符。15.在过程定义中，Private 表示_。（分数：2.50）A.此过程可以被其他过程调用B.此过程不可以被任何其他过程调用C.此过程只可以被本工程中的其他过程调用D.此过程只可以被本窗体模块中的其他过程调用 解析：解析 本题考查 Private 的含义。Private 表示了过程或者变量的访问权限，仅局限于定义的窗体和模块，也就是此过程只可以被本窗体模块中的其他过程调用。16.为了使标签中的内容居中显示，应把 Alig
31、nment 属性设置为_。（分数：2.50）A.0B.1C.2 D.3解析：解析 本题考查 Alignment 属性。控件的 Alignment 属性表示控件中的文字水平对齐方式，属性值可取 3 种值：0 为左对齐，1 为右对齐，2 为居中。17.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的_属性设置为True。（分数：2.50）A.ValueB.CancelC.EnabledD.Default 解析：解析 本题考查控件的常见属性。对于所有具有 Cancel 属性的控件，Cancel 表示该控件是否当按下“Esc”键时，执行某个事件过程。Enabled 表示控件是否可以使用
32、，命令按钮的默认属性为Default，表示当按下回车键的时候，执行某个命令按钮的事件过程。18.下面叙述不正确的是_。（分数：2.50）A.对顺序文件中的数据操作只能按一定的顺序操作B.顺序文件结构简单C.能同时对顺序文件进行读写操作 D.顺序文件中只能知道第一个记录的位置解析：解析 本题考查顺序文件。顺序文件中的记录是顺序存放的，但各个记录的长度可以不相同，因此只可以按顺序依次把记录读出来，顺序文件常用于存放文本文件。顺序文件一行一条记录，记录可长可短，以“换行”字符为分隔符号，仅仅知道第一个记录的位置。顺序文件打开一次，只能根据打开模式进行相应的一种操作。19.假定有以下两个过程： Sub
33、 S1(ByVal x As Interger, ByVal y As Interger) Dim t As Interger t=x:x=y:y=t End Sub Sub S2(x As Interger, y As Interger) Dim t As Interger t=x:x=y:y=t End Sub 则以下说法中正确的是_。（分数：2.50）A.用过程 S1 可以实现交换两个变量的值的操作，S2 不能实现B.用过程 S2 可以实现交换两个变量的值的操作，S1 不能实现 C.用过程 S1 和 S2 都可以实现交换两个变量的值的操作D.用过程 S1 和 S2 都不能实现交换两个变量
34、的值的操作解析：解析 本题考察参数传递知识，在 VB 中，参数通过传地址和传值两种方式传送，其中传地址习惯上称为引用，引用方式通过关键字 ByRef 来实现，通过该方式传送实参时，可以改变传送过程的变量的值(当参数引用没有标明引用方式的关键字时，默认为传地址方式)；传值就是通过值传送实际参数，它不会改变原来变量的值。20.在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的 Text 属性置空，编写命令按钮Command1 的 Click 事件代码： Private Function fun(x As Long)As Boolean If x Mod 2=0 Then fun=True
35、 Else fun=False End If End Function Private Sub Command1_Click() Dim n As Long n=Val(Text1.Text) p=IIf(fun(n), “奇数“, “偶数“) Label1.Caption=n a（分数：2.50）A.-1 6B.-1 16C.1 6 D.11 21解析：解析 本题考查循环的分析。For 型循环默认的循环变量的步长为 1，由于循环变量的初值大于终值，因此循环体一次也不执行。26.窗体上有名为 Text1、Text2 的两个文本框，和一个由 3 个单选按钮组成的控件数组 Option1，如图 1
36、所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中数值与该单选按钮所对应的运算(乘 1、乘10 或乘 100)，并将结果显示在 Text2 中，如图 2 所示。为了实现上述功能，在程序中的横线处应填入的内容是_。 图 1（分数：2.50）A.Option1.IndexB.Index C.Option1(Index)D.Option1(Index).Value解析：解析 本题考查控件数组元素的区分。控件数组由一组相同类型的控件组成。它们共用一个控件名，具有相同的属性，建立时系统给每个元素赋一个惟一的索引号(Index)，索引号从 0 开始。控件数组共享同样的事件过程，通过返回的下标值
37、区分控件数组中的各个控件。27.下列程序运行后，输出结果为_。 Sub abcd(ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click() n%=3 Call abcd(n%) Print n% End Sub（分数：2.50）A.3 B.4C.5D.8解析：解析 本题考查子过程的调用时的参数变化。ByVal 是传值调用的关键字，传值调用的时候形参的改变不会影响到实参。28.下列关于通用对话框 CD1 的叙述中，错误的是_。（分数：2.50）A.使用 CD1.ShowColor 方法，可显示“颜色”对话框B.显示“字体”对话框前，必须
38、先设置 CD1 的 Flags 属性，否则会出错C.只要在“打开”对话框中选择了文件，并单击“打开”按钮，即可将选中的文件打开 D.CancelError 属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告解析：解析 通用对话框(CommonDialog)提供诸如打开文件(ShowOpen)、保存文件(ShowSave)、设置打印选项(ShowPrinter)、选择颜色和字体(ShowFont)、显示帮助(ShowHelp)等操作的一组标准对话框，该控件运行时不可见。当通用对话框显示为“打开”类型时，单击“打开”按钮后其 FileName 属性可返回或设置所选文件的路径和文件名，但
39、并不能直接打开该文件。使用显示字体(Font)对话框之前，必须先设置控件的 Flags 属性为 cdlCFBoth、cdlCFPrinterFonts、cdlCFSereenFonts 这 3 个值中的一个。CancelError 属性用于设置当用户选择“取消”按钮时，是否显示错误信息(默认为否)。29.在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Open“C:/dat.txt“For Output As #1 Text1.Text=“ End Sub Private Sub Text1_KeyPress(KeyAscii
40、As Integer) If_=13 Then If UCase(Text1.Text=_)Then Close 1 End Else Write #1, Text1.Text Text1.Text=“ End If End If End Sub 程序的功能是，在 C 盘根目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASCII 码是 13)都把当前文本框中的内容写入文件 dat.txt 中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句_。（分数：2.50）A.KeyAscii “END“ B.Text1.Text
41、“END“C.Text1.Text 13D.KeyAscii 13解析：解析 本题考查 KeyPress 事件。在 Text1 中输入字符时，将触发 Text1 的 KeyPress 事件，同时可返回一个 KeyAscii 参数(输入字符的 ASCII 码，区分大小写)。当 KeyAscii 为 13 时，表示输入了回车键，此时判断 Text1 的文本信息，如果 Text1 的文本为“END”，则关闭文件，退出程序。30.下列程序的执行结果是_。 Private Sub Form_Activate() Dim score(3) As Integer, total As Integer Dim
42、aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i, aa_score, total Next End Sub（分数：2.50）A.1 0 02 50 503 14 644 36 100 B.1 50 502 14 643 36 100C.0 50 501 14 642 36 1003 36 100D.0 0 01 50 502 14 643 36 100解析：解析 本题考查 For Ea
43、ch In 语句。该语句的使用形式为：For Each 成员 In 数组Next，适用于不关心数组中的元素个数或者不清楚有多少个元素，使用时要求成员为变体类型变量。当激活窗体时，对 score 数组中的每个元素进行求和，同时记下当前计算数组元素的个数。默认数组下标从 0 开始，题中score 数组中含有 4 个元素，输出 4 行。31.在窗体上画一个名为 Command1 的命令按钮，编写如下程序： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x
44、) End Sub 程序运行后，单击命令按钮，输出的结果是_。（分数：2.50）A.4 B.5C.6D.8解析：解析 本题考查数组中元素的分析。数组中的第 k 个元素的值为 12-k，因此 M(6)数据为 6，M(8)为 4。32.要清除已经在图片框 Picture1 中打印的字符串而不清除图片框中的图像，应使用语句_。（分数：2.50）A.Picture1.Cls B.Picture1.Picture=LoadPicture(“)C.Picture1.Pint“D.Picture1.Picture“解析：解析 本题考查常用的方法。Cls 方法的使用形式为：对象.Cls，作用是清除运行时在窗体
45、或图形框中显示的文本或图形，而不能清除图像。要不清除在设计时的文本，同时也不能清除图形，应用LoadPicture 可以清除或者装入图片。33.执行以下程序后，在窗体上输出的是_。 Private Sub Command1_Click() Dim a(20) For i=1 To 20 Step 2 a(j)=j Next j Print a(1)+a(2)+a(3) End Sub（分数：2.50）A.4 B.5C.6D.7解析：解析 本题考查数组元素的赋值。利用循环对数组 a 中所有的元素赋值，循环变量的初值为 1，步长为 2。因此数组 a 中所有的奇数下标项的值为相应的下标，偶数下标项的
46、值为 0。因此 a(1)+a(2)+a(3)=1+0+3。34.下面程序的运行结果是_。 Private Sub Form_Click() i=0 Do Until 0 i=i+1 If i10 Then Exit Do Loop Print i End Sub（分数：2.50）A.0B.10C.11 D.出错解析：解析 本题考查 Do UntilLoop 循环的。对于这种循环结构，条件判断在循环体前，因此有可能一次循环体条件也不执行。由 Until 引出的循环为，当条件为 False 时执行循环体；为 True 时退出循环。初始时，题中 Until 后面的条件为 0，因此会一直运行循环体，直
47、到 i 大于 10 成立，退出循环。i 第一次大于 10 的值为 11，因此最后输出 11。35.窗体上有 1 个名为 List1 的列表框，其中已经输入了若干个项目(如图所示)；还有 2 个文本框，名称分别为 Text1、Text2，1 个名称为 Command1 的命令按钮，并有以下程序： （分数：2.50）A京B.北京 南京C.南京 北京 D.没有匹配的项目解析：解析 本题考查循环程序的分析以及列表框属性的应用。首先 Instr(List1.List(k), s)语句的作用是在 List1.List(k1)中从头开始寻找 s，找不到则返回 0，否则返回 s 在 List1.List(k)
48、中的位置。整个循环体的功能是，从列表框中最后一个列表项开始寻找含有与 Text1 中输入的字符串相同的子串，如果存在相同的子串，则把 List1.List(k)全部连接到 str 中。36.下面程序运行时，若输入 395，则输出结果是_。 Private Sub Cmd1_Click() Dim a% a=InputBox(“请输入一个 3 位整数“) Print a Mod 10, a/100, (a Mod 100)/10 End Sub（分数：2.50）A.5 9 3B.3 5 9C.5 3 9 D.3 9 5解析：解析 VB 中常用算术运算符有 8 个，其中幂运算符()优先级最高；其次是取负(-)、乘(*)、浮点除(/)、整除(/)、取模(Mod)、加(+)、减(-)。37.设已经在窗体上添加了一个通用对话框控件
