2003年第2次VB考试题

合集下载

学第2VB考试题及标准答案

2003-2004学年第二学期计算机应用课程试题命题教师________ 审题教师_____________一、填空题（每空1分，共10分）1.对象具有属性、方法和 ___________________________ 。

2.使用变量而定义变量，则变量的类型为。

3 .存储一个单精度数据要占用______________ 字节。

4.声明PI为一个符号常量，表示3.1415 ,需要使用的语句为： ______________________________5.将变量X 声明为整型变量的语句为： ______ 。

6 .设x=8,y=5，则表达式Not （x>y） Or "ABC" >Left（"ACDE",3）的值为______________________7.设a=2,b=3,c=4,d=5 ，则表达式a*2>c or d mod a=c and b<>c or c<d 的之值为：&产生[20,70] 范围那的一个随机整数的表达式为：___________________________ 。

9.在VB中"ASCII"、"ascii" 、"Ascii" 这三个字符串比较，最小的是 ____________________________ 。

10•数据文件按访问方式分为顺序文件和随机文件两种，顺序文件以 _____________ 形式存储。

二、选择题（题每题2分，共10分）1.在程序运行过程中，要是标签能够显示所需要的文本，则在程序中应设置以下哪个属性的值（）A）Caption B） Text C） Name D） Seltext2.一个控件能实现选择功能的是（）A）文本框控件B）框架控件C）命令按钮控件D）列表框控件3.正确的VB逻辑表达式是（）A）X>Y NOT Y>Z B ）X>Y>Z C ）X>Y AND >Z D ）X>Y NOT Y>Z4 .设a=5 , b=8下列程序中能实现交换两个变量值的代码是（）A） a=b B） a=b b=a b=aPrint a,b C ） c=aa=b b=cA) max=a If b>a the n max=b en dif Print max C) if a>b then Print aPrint b三、写出程序运行结果swap(a,b) D) b=a a=bPrint a,b)If b>a the n max=b en dif max=a Print maxD) max=iif(a>b,b,a)(每小题4分，共24分)1. 程序运行时从键盘输入 5，则下面程序运行结果为:Dim x AsIn teger, y As In tegerx = Val(I nputBox(" 请输入变量的值 ")) If x <> 0 The n If x > 0 The n y = x A 2 + 1 Elsey = x A 2 - 1 End If Else y = 0 End If2. 写出下面程序运行结果。

2003年9月全国计算机等级考试二级VB语言笔试试题含答案

2003年9月全国计算机等级考试二级VB语言笔试试题含答案一、选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）（1）以下叙述中错误的是A）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置（2）以下叙述中错误的是A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（3）以下叙述中错误的是A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定（4）以下不属于Visual Basic系统的文件类型是A）.frm B）.bat C）.vbg D）.vbp（5）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下声明语句中错误的是A）Const var1=123 B）Dim var2 = ’ABC’C）DefInt a-z D）Static var3 As Integer（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。

2003年9月全国计算机等级考试二级VB笔试试题

这学期你的表现一直很出色,在刚开学那一群哭闹的新宝宝中,你的从容就已经表现出了你优秀的能力,而后面的幼儿园生活中你的独立和自理能力得到了充分的体现,自己穿脱衣服叠衣服,帮助他人扣扣子,真是厉害这学期你的表现一直很出色,在刚开学那一群哭闹的新宝宝中,你的从容就已经表现出了你优秀的能力,而后面的幼儿园生活中你的独立和自理能力得到了充分的体现,自己穿脱衣服叠衣服,帮助他人扣扣子,真是厉害,比其他娇生惯养的小公主可爱多了。

还有你的动手能力也体现在美术课上,你能完成一副副好看的涂画作品,老师看了很高兴。

新学期里老师希望你能在众人面前表演的时候更加大方,不会我们可以学到会,会我们就更要表现出来给别人看,你说是不是?老师为你加油!你在这短短半学期的进步是我们有目共睹的,阿姨现在经常向你竖起大拇指呢,确实,刚来幼儿园的时候你很内向,也不敢表达自己的想法,从表情上看就是一副不自然的模样,现在你能大方的向老师问好,课上能高举小手要求回答问题或表演,老师看在眼里可真高兴。

更让老师高兴的是你的能力的提高,如涂色能力、剪纸能力、课堂注意力等,蒙氏课上我们认识动物, 你能多次将动物和其对应的名字卡片配对起来,也给老师带来了惊喜,希望你在新的学期能再接再厉,创造出更多好成绩给老师和爸爸妈妈看。

在经历了每个新入园宝宝必经的不适应甚至哭闹过程后,你已经完全融入到了集体生活中,光这一点就体现了你人际交往能力的进步,现在你能和周围的小伙伴自在的嬉闹玩耍,开心的享受每一天的幼儿园生活了。

另外,你的动手能力也有了进步,以前你在涂画课上总是磨磨蹭蹭的,现在已经能在下课前完成出不错的作品。

新的学期有新的要求,老师希望你在课堂上能更专心更投入,这样才能学到更多本领,更好的体现出你的聪明才智哦!这学期你的表现很好,你喜欢自由的玩玩具,在放松的状态下你能充分发挥你的想象力和创造力,建构出好多种造型,而不像别的男孩子只知道搭枪,在建构出来后你还会给他们取好听的名字,更愿意将你的作品和想法呈现给老师看,而当老师给予肯定和表扬时,你的脸笑得像一朵花,看来你很享受被表扬的感觉哦!在新的学期希望你凭自己的努力得到更多的表扬!你是一个很聪明的宝宝,在这学期,老师看到你身上很多的闪光点,先是对音乐敏感学唱歌特别快,然后是知识比同龄宝宝要广,还有记忆力好,老师教过的有点难度的内容等到复习的时候你能很快回答出来,让老师倍感欣慰。

国家二级VB机试(选择题)模拟试卷300(题后含答案及解析)

国家二级VB机试（选择题）模拟试卷300(题后含答案及解析) 题型有：1.1．按照“后进先出”原则组织数据的数据结构是A．队列B．栈C．双向链表D．二叉树正确答案：B解析：栈是限定在一端进行插入与删除的线性表。

在栈中，允许插入与删除的一端称为栈顶，不允许插入与删除的另一端称为栈底。

栈顶元素总是最后被插入的元素，也是最先被删除的元素；栈底元素总是最先被插入的元素，也是最后才能被删除的元素。

即栈是按照“后进先出”(Last In First Out，简称LIFO)或“先进后出”(First In Last Out，简称FILO)的原则组织数据的。

因此，栈也称为“后进先出表”或“先进后出”表。

知识模块：数据结构与算法2．下列对队列的描述中正确的是A．队列属于非线性表B．队列按“先进后出”原则组织数据C．队列在队尾删除数据D．队列按“先进先出”原则组织数据正确答案：D解析：队列(queue)是指允许在一端进行插入、而在另一端进行删除的线性表。

允许插入的一端称为队尾；允许删除的一端称为队头。

在队列这种数据结构中，最先插入的元素将最先能够被删除；反之，最后插入的元素将最后才能被删除。

因此，队列又称“先进先出”或“后进后出”的线性表。

知识模块：数据结构与算法3．有数据定义语句：Dim a，b As Integer Dim x％，Y as Integer执行语句后，不是整型变量的是A．aB．bC．XD．Y正确答案：A解析：在Visual Basic中用户既可以显式声明一个变量，也可以不声明而直接使用变量，显式声明变量时每个变量都应使用类型说明符或者As子句声明类型，否则该变量将被视为变体类型。

4．以下合法的VB变量名是A．_xB．2yC．a#bD．x_1_x正确答案：D解析：变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为255个；不能用VB的保留字作变量名，但变量名中可以包含保留字，如ConstA；变量名也不能是末尾带有类型说明符的保留字，如：Dim!是不合法的变量名；不区分字母的大小写。

国家二级VB机试(上机操作)模拟试卷300(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。

(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。

再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。

请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。

注意：程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。

正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。

步骤2：按要求将文件保存至考生文件夹中。

第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。

参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。

解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。

2003年3月全国计算机等级考试二级VB试卷

Visual Basic语言程序设计一、选择题（(1)—(20)每小题2分，(21)—(30)每小题2分，共70分）下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1)以下不能在“工程资源管理器”窗口中列出的文件类型是A) .bas B) .res C) .frm D) .ocx(2)以下关于窗体的描述中，错误的是A) 执行Unload Form1语句后，窗体Form1消失，但仍在内存中B) 窗体的Load事件在加载窗体时发生C) 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D) 窗体的Height、Width属性用于设置窗体的高和宽(3)下列可作为Visual Basic变量名的是A）A#A B）4A C）?xy D) constA(4)设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是A) ="张红" B) Dim s As Student="张红"C) Dim s As Type Student D) Dim s As Type="张红" ="张红"(5)函数String(n, "str")的功能是A) 把数值型数据转换为字符串B) 返回由n个字符组成的字符串C) 从字符串中取出n个字符D) 从字符串中第n个字符的位置开始取子字符串(6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2)C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)(7)在窗体上画一个命令按钮，名称为Command1。

计算机二级vb模拟考试试题及答案

计算机二级vb模拟考试试题及答案一、单选题1. 下面哪个选项是VB的内置数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，用于表示两个选项互斥关系的控件是？A. RadiobuttonB. CheckboxC. ComboboxD. Listbox答案：A3. 下面哪个事件是在窗体加载时发生？A. LoadB. ClickC. MouseHoverD. KeyPress答案：A4. 在VB中，用于将文本显示在标签控件上的属性是？A. TextB. ValueC. CaptionD. Name答案：C5. 在VB中，用于打开文件选择对话框的控件是？A. OpenFileDialogB. SaveFileDialogC. FolderBrowserDialogD. PrintDialog答案：A二、填空题1. 在VB中，用于声明一个整型变量的关键字是________________。

答案：Dim2. 在VB中，用于判断条件的关键字是________________。

答案：If3. 在VB中，用于循环执行代码块的关键字是________________。

答案：For4. 用于将字符串转换为整型的函数是________________。

答案：CInt5. 用于将字符串转换为小数类型的函数是________________。

答案：CDbl三、编程题1. 编写一个VB程序，实现计算两个数相加的功能，并在窗体上显示结果。

答案：```vbPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(TextBox1.Text)num2 = CInt(TextBox2.Text)result = num1 + num2Label1.Text = "结果：" & result.ToString()End SubEnd Class```2. 编写一个VB程序，实现输入一个整数n，计算并输出1到n的所有偶数之和。

VB 程序设计试卷(2003级带答案)

VB 程序设计试卷(2003级)班级学号姓名成绩文字答题卡一．单项选择题（每小题1分，共30分）请将正确答案按【】中的序号涂写考试答题卡，否则不得分。

1．以下叙述中错误的是【1】。

CA) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样2．以下叙述中错误的是【2】。

CA) 一个工程中只能有一个Sub Main过程B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C) 窗体的Hide方法和Unload方法的作用完全相同D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体3．语句Print 9/2^2*6\5 Mod 4的输出结果是【3】。

CA) 0 B) 1 C) 2 D) 34．执行语句s=Ucase(Mid("Visual Basic",5,8))后，s的值是【4】。

AA) AL BASIC B) BASIC C) al basic D) basic5．InputBox函数【5】。

AA) 字符串型数据B) 数值型数据C) 任何类型数据D) 字符串型数据或者数值型数据6．以下语句的输出结果是【6】。

BPrint Format$(32548.56, " ###,###.# ")A) 32548.6 B) 32,548.6 C) 032,548.56 D) 32548.567．下面说法不正确的是【7】。

DA) 滚动条的重要事件是Change和ScrollB) 框架的主要作用是将控件进行分组，以完成各自相对独立的功能C) 组合框是组合了文本框和列表框的特性而形成的一种控件D) 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上8．使图形能自动按控件大小而改变的控件是【8】。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

2003年第2次VB考试题第一部分软件技术基础（共15分）一、是非判断题（1分/小题，共10分）（判断下列各小题的叙述正确与否，如正确，在客观题答题纸对应编号上选A，否则选B）1.在目前，用于保证软件质量的主要手段是进行软件测试。

A（ 1 ）2.使用DMA方式传送数据期间不需要CPU干预。

A（ 2 ）3.线性顺序队列会产生“假溢出”，而线性循环队列则不会。

A（ 3 ）4.对同一种算法，用高级语言编写的程序比用低级语言编写的程序运行速度要快。

B（ 4 ）5.在线性表中，数据的存储方式有顺序和链接两种。

B（ 5 ）6.进程由程序块、文件控制块和数据块三部分组成。

B（ 6 ）7.在面向对象的程序设计中，派生类只能从一个基类产生。

B（ 7 ）8.操作系统是用户和硬件的接口。

A（ 8 ）9.个人计算机中可配置的最大内存容量受地址总线位数的限制。

A（ 9 ）10.软件维护中最困难的问题是软件配置不全。

A（ 10 ）二、单项选择题（1分/题，共5分）1.在排序法中，从未排序序列中依次取出元素，与已排序序列中的元素作比较，将其放入已排序序列的正确位置称为（ 11 ）(A) 选择排序 (B) 快速排序(C) 插入排序 (C) 冒泡排序2.有X、Z、Y三个元素依次入栈，不可能的出栈顺序是（ 12 ）(A) Z、Y、X (B) Z、X、Y (C) Y、X、Z (D) X、Y、Z3.进程的状态是可以转换的，而以下哪个状态转换是不可能的（ 13 ）(A) 就绪状态→执行状态 (B) 执行状态→就绪状态(C) 阻塞状态→就绪状态(D)等待状态→执行状态4.线性链表的地址（ 14 ）(A) 必须连续 (B) 部分地址必须连续(C) 一定不连续 (D) 连续与否均可以5.在软件测试中，（ 15 ）主要分析程序的内部结构。

（ 15 ）(A)白盒法 (B) 黑盒法 (C) 因果图法 (D) 错误推测法第二部分 Visual Basic 语言程序设计（共85分）一、单选择题（每小题1分，共10分）1.在Visual Basic中，窗体文件的扩展名为（16）16 (A) EXE (B) BAS (C) FRM (D) VBP2.表达式8+2*3^2\9/8-3 mod 2的结果是（17）17 (A) 25 (B) 24 (C) 7 (D) 7.253.从键盘上输入两个字符串，分别保存的变量str1、str2中，确定第二个字符串在第一个字符串中其始位置的函数是 (18)18 (A) LEFT (B) Mid (C) String (D) Instr4.若X是一个正实数，能对X的第3位小数进行四舍五入的表达式是（ 19 ）19 (A) 0.01*Int(100*(x +0.05) ) (B) 0.01*Int(100*(x +0.005) )(C) 0.01*Int (x +0.05) (D) 0.01*Int(x +0.005)5.下面四个语句中，能打印显示20*30字样的是（ 20）20 (A) Print＂20*30＂ (B) Print 20*30C) Print Chr(20)+ ＂*＂+Chr(30) (D) Print Val(＂20＂) *Val(＂30＂)6.变量在窗体模块中声明为公共的。

下列关于变量的陈述哪条是正确的？（21 ）(B)可以在窗体的任何地方存取变量，而不是在窗体模块外(C) 只有在同一个项目的其他窗体模块中存取变量(D) 变量不能在窗体模块中声明为公共的7.对一个窗体对象，其最先发生的事件是（22）事件。

22 (A) Click (B) DblClick (C) Load (D) UnLoad8.以下能够触发文本框Change事件的操作是（ 23）。

23 (A) 文本框失去焦点 (B) 文本框获得焦点(C) 设置文本框的焦点(D)改变文本框的内容9.若要使标签控件显示时覆盖其背景内容，要设置其BackStyle属性的值为（24 ）24 (A) 0 (B) 1 (C) 2 (D) 310.下面对控件数组叙述正确的是（ 25 ）25 (A) 在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组(B) 控件数组使用index属性来标识下标，其范围是从0开始的(C) 控件数组使用的资源比用几个单独同样的控件占用的更多(D) 如果有一按钮数组，按任一按钮不会调用相同的click事件过程。

二、阅读分析程序（每个选择3分，共45分）1.读下面程序Option ExplicitDim a () As IntegerPrivate Sub Command 1_Click ()Dim n As Integer, L As Integer, I As Integer, j As Integern=InputBox(“请输入一个整型数”)ReDim a(1 To n)a(1) =1: a(2) =2: a(3) =3: L=4L1: For i=5 To nFor j=2 To L-1If i Mod a(j) =0 ThenExit ForEnd ifL2: Next jL3: If j＞L-1 Then a(L) =i: L=L+1Next iL4: For i=1 To L-1Print a(i) ;Next iL=L-1Print “L=”;LEnd Sub(1)程序运行后点击“Command1”，如果在输入框中输入20，输出的结果是（26）26 (A) 1，2，3，5，7，11，13，17，19，L=9(B) 1，3，5，7，9，11，13，15，17，L=19(C) 1，2，3，4，5，……18，19，L=19(D) 1，2，3，4，5，……18，19，20，L=20（2）上述程序中语句“DIM a（）As Integer”的功能是（27）27 (A) 定义a是11个元素的整型数组。

28 (A) 从语句标号L1处 (B) 从语句标号L2处(C)从语句标号L3处 (D) 从语句标号L4处2.阅读下面程序Option ExplictPrivate Sub Command 1_Click ( )Dim strPassword As StringDim I as intrgerfor I=1 to 3strPassword=InputBox(“Password:”)If strPassword=”123” ThenLLL: Exit ForEnd IfNext IIf i =4 ThenMsgBox“你不是合法用户”ElseMsgBox“欢迎你”End IfEnd Sub(1) 该程序的作用是（29）29 （A）用户输入3次正确口令“123”，才会显示“欢迎你”，输入3次错误口令才会显示“你不是合法用户”（B）用户只输入一次正确口令“123”，就显示“欢迎你”，输入一次错误口令就显示“你不是合法用户”（C）用户只输入一次正确口令“123”，会显示“欢迎你”，输入三次错误口令才显示“你不是合法用户”（D）用户只要输入一次错误口令就会显示“欢迎你”，输入三次正确口令才会显示“你不是合法用户”(2) 如果将LLL处的语法曲去掉，则（30）30 （A）和原来的程序效果一样（B）用户必须输入三次正确口令后，才会显示“欢迎你”（C）用户必须输入三次口令，且输入任何口令都会显示“欢迎你”（D）用户必须输入三次口令，且输入任何口令都会显示“你不是合法用户”3.阅读下面程序Private Sub Form_Click()Dim a(2,4) As Integer, b(4) As IntegerDim I As Integer, j As IntegerDo while i<=4a(1,i) =a(1,i) +2*i-1a(2,i) =a(2,i) +12-2*Ii=i+1LoopFor i =1 To 2For j =1 To 4Print a(i,j) ;Next jPrintNext iDo While i <=4b(i) =a(1,I)+a(2,4-i)Text1.Text=b(i)i=i+1LoopEnd Sub(1) 程序执行到L1语句是输出的结果为（31 ）31（A） 1 3 5 7 （B） 7 5 3 110 8 6 4 10 8 6 4（C） 10 8 6 4 （D） 4 6 8 107 5 3 1 1 3 5 7（2）本段程序执行完成后，数组元素b(2) 的值为（ 32 ）32 （A）3 （B）7 （C）11 （D）15（3）本段程序执行完成后，显示在文本框中的结果是（ 33 ）33 （A）19 17 15 11 （B）19 （C）15 （D）34.在窗体上设计有文本框Txtinput , 按钮cmdText , 且Txtinput.Text=“Visual basic is seasy”,并有如下程序代码：Option ExplicitOption Base 1Private Sub CmdTest_Click()Dim strS$, i%, j%, n%, stra$, strb$, count%, t$, strt$()strS = Txtinputn = Len(strS)ReDim strt(n)For i = 1 To nstra = Mid(strS, i, 1)strb = Mid(strS, i + 1, 1)If strb = “s” ThenIf stra>= “a”And stra<= “z”Thencount=count+1strt(count) = stra+strbEnd IfEnd IfNext IFor i = 1 To countFor j = i To count - iIf strt(j) <strt(j + 1) Thent = strt (j) :strt(j) =strt(j+1) :strt(j+1) = tEnd IfNext jNext IFor i = 1 To countPrint strt(i)Next iEnd Sub(1) 程序运行后count值应为（ 34 ）34 （A）0 （B）2 （C）4 （D）635 （A）basic Visual easy is （B） is is as as（C）is as is as （D）as as is is(3) option explicit的作用为（36 ）36（A）表明此模块内变量必须先声明后使用（B）表明此模块没有通用过程（C）表明此模块的通用过程不能被其他模块调用（D）表明此模块变量不声明可以直接调用(4) 以下关于语句“Option Base 1”的说法中正确的是（37 ）37 （A）其功能是指定数组的默认上界（B）其功能是指定数组的默认下界（C）其功能是定义动态数组（D）其功能是定义静态组5.阅读下面程序Option ExplicitOption Base 1Private Type AbcA As IntegerEnd TypePrivate Sub Form_Click()Dim recAbc As AbcDim arrA(4, 4) As IntegerDim intI As Integer, intJ As Integer, intN As IntegerOpen "abc.txt" For Random As #1For intI = 1 To 4For intJ = 1 To 4intN = intN + 1recAbc.A = intNPut #1, , recAbcNext intJNext intIClose #1Open "abc.txt" For Random As #1For intJ = 1 To 4For intI = 1 To 4Get #1, intI * intJ, recAbcarrA(intI, intJ) = recAbc.ANext intINext intJCloseFor intI = 1 To 4For intJ = 1 To 4Print Tab(intJ * 3); Format(arrA(intI, intJ), "###"); Next intJPrintNext intI（1）程序中的“abc.txt”文件在第一次打开时时按（ 38 ）方式打开的。