1、二级 VISUAL+BASIC-13-1 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：57.00)1.能够获得一个文本框中被选取文本的内容的属性是_。 A. Text B. SelLength C. SelText D. SelStart（分数：2.00）A.B.C.D.2.在软件设计中的软件过程，其主要描述的是U /U。 A. 模块操作细节 B. 模块间关系 C. 模块控制方法 D. 模块类型（分数：1.00）A.B.C.D.3.假定程序中有以下语句：answer=MsgBox(“String1“,“String2“,“String3“,2)执行
2、该语句后，将显示一个信息框，此时如果单击“确定”按钮，则 answer 的值为_。 A. String1 B. String2 C. String3 D. 1（分数：2.00）A.B.C.D.4.下列工具中，不属于结构化分析的常用工具的是U /U。 A. 数据流图 B. 数据字典 C. 判定树 D. N-S 图（分数：2.00）A.B.C.D.5.以下叙述中错误的是 _。 A. 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B. 保存 Visual Basic 程序时，应分别保存窗体文件及工程文件 C. Visual Basic 应用程序只能以解释方式执行 D. 事件可以
3、由用户引发，也可以由系统引发（分数：1.00）A.B.C.D.6.在待排序的元素序列基本有序的前提下，效率最高的排序方法是 A. 冒泡排序 B. 选择排序 C. 快速排序 D. 归并排序（分数：1.00）A.B.C.D.7.下列叙述中，正确的是_。 A. 程序设计过程中的主要工作是编制程序 B. 程序设计的主要目标是编制出运行结果正确的程序 C. 不良的程序设计风格会增加程序的复杂性 D. 上述三种说法都不对（分数：1.00）A.B.C.D.8.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 A.Autosize B.Stretch C.AutoRedraw D.Ap
4、pearance（分数：1.00）A.B.C.D.9.下面叙述中正确的是_。 A. 随机文件中记录的长度不是固定不变的 B. 随机文件由若干条记录组成，并可以按记录号访问各个记录 C. 不能按任意顺序访问随机文件中的数据 D. 可以同时对打开的随机文件进行读写操作（分数：2.00）A.B.C.D.10.有如下程序：Private Sub Form_Click()Dim i As Integer, Sum As IntegerSum=0For i=2 To 10If i Mod 2=0 And i Mod 30 ThenSum=Sum+iEnd IfNextPrint SumEnd Sub程序运
5、行后，单击窗体，输出结果为U /U。 A. 12 B. 30 C. 24 D. 18（分数：2.00）A.B.C.D.11.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1, 否则返回值为 0。Function Fun1 (b As Integer)if _ ThenFun1 =0ElseFun1 = 1End IfEnd Function使该功能完整，应在空行处填入以下哪条语句 A. b Mod 20 B. b Mod 2 =0 C. b/2 = 1 D. b/2 =0（分数：1.00）A.B.C.D.12.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式
6、为 _。 A. Get 文件号，记录号，变量名 B. Get 文件号，变量名，记录号 C. Put 文件号，变量名，记录号 D. Put 文件号，记录号，变量名（分数：1.00）A.B.C.D.13.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是_。 A. 设计状态 B. 编写代码状态 C. 运行状态 D. 中断状态（分数：2.00）A.B.C.D.14.在窗体上画一个命令按钮，然后编写如下程序：Sub S1(ByVal x As Integer,ByVal y As Integer)Dim t As Integert=xx=yy=tEnd SubPrivate Sub Comm
7、and1_Click()Dim a As Integer,b As Integera=10b=30S1 a,bPrint“a=“; a; “b=“; bEnd Sub程序运行后，单击命令按钮，输出结果是_。 A. a=30 b=10 B. a=30 b=30 C. a=10 b=30 D. a=10 b=10（分数：2.00）A.B.C.D.15.下列关于图像框控件和图片框控件的说法错误的是U /U。 A. 两者都支持 Print 方法 B. 两者都有 Picture 属性 C. 两者都可以用 LoadPicture 函数把图形文件装入控件中 D. 两者都能在属性窗口装入图形文件；也都能在运行
8、期间装入图形文件（分数：2.00）A.B.C.D.16.下列程序段的执行结果为Private Sub Command1_Click()a=InputBox(“请输入 a 值“)c=“您要查询的是“a; “b=“; bEnd Sub程序运行后，单击命令按钮，输出结果是_。 A. a=30 b=10 B. a=30 b=30 C. a=10 b=30 D. a=10 b=10（分数：2.00）A.B.C. D.解析：解析 过程 S1 似乎是要将两个变量的值进行交换，但由于参数是用传值的方式来传递变量值的，所以执行完该过程后，a 和 b 的值并未被交换，保持原来的值不变。15.下列关于图像框控件和图
9、片框控件的说法错误的是U /U。 A. 两者都支持 Print 方法 B. 两者都有 Picture 属性 C. 两者都可以用 LoadPicture 函数把图形文件装入控件中 D. 两者都能在属性窗口装入图形文件；也都能在运行期间装入图形文件（分数：2.00）A. B.C.D.解析：解析 图片框控件可以通过 Print 方法接收文本，并可接收由像素组成的图形，而图像框控件不能接收用 Print 方法输入的信息，也不能用绘图方法在图像框上绘制图形。16.下列程序段的执行结果为Private Sub Command1_Click()a=InputBox(“请输入 a 值“)c=“您要查询的是“d
10、=d-c=-6;当 i=2 时，X(i)=4；d=d-c=-12；当 i=3 时，X(i)=6；d=d-c=-18；当 i=4 时，X(i)=8；d=d+X(i)=-10；c=8；当 i=5 时，X(i)=10；d=d+X(i)=0；c=10；当 i=6 时，X(i)=12； d=d+X(i)=12；c=12。34.有一个名称为 Form1 的窗体，上面没有控件，设有以下程序(其中方法 Pset(X，Y)的功能是在坐标X、Y 处画一个点)：Dim cmdMave AS BooleanPrivate Sub Form_MouseDown(Button As Integer, Shift As I
11、nteger, X As Single, Y As Single)cmdmave=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If cmdmave ThenForm1.Pset(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)cmdmave=FalseEnd Sub此程序的功能是 A
12、.每按下鼠标键一次，在鼠标所指位置画一个点 B.按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（分数：2.00）A.B.C.D. 解析：解析 按下鼠标时，首先触发 MouseDown 事件，在 MouseDown 事件中将模块级变量 cmdmave 设为真值。假如保持鼠标键按下并移动鼠标，触发 MouseMove 事件。在 MouseMove 事件中，由于条件语句的条件为真，所以每当鼠标移到一个位置(x，y)，就在坐标(x，y)处绘制一个点，连续多个点
13、就构成了一条鼠标移动的轨迹线。当松开鼠标时，触发 MouseUp 事件，在此事件过程中将 emdmave 设置为假值。由于MouseMove 事件过程中是在 cmdmave 为真值时才画点，所以松开鼠标时，停止画线。本题的答案为 D。35.某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 2 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=TimeEnd Sub在程序执行时发现未能实现上述目
14、的，那么，应做的修改是U /U。 A.通过属性窗口把计时器的 Interval 属性设置为 2000 B.通过属性窗口把计时器的 Enabled 属性设置为 False C.把事件过程中的 Label1.Caption=TimeS 语句改为 Timer1.Interval=Time D.把事件过程中的 Label1.Caphon=TimeS 语句改为 Label1.Caption=Timer1.Time（分数：2.00）A. B.C.D.解析：解析 Timer 控件有两个重要的属性和一个事件。其中，Interval 设置响应 Timer 事件的时间间隔，单位是 ms。要每隔 2 秒显示一次当前
15、时间，就是每隔 2 秒触发一次 Timer()事件，所以应设置Interval 属性为 2000ms。二、B填空题/B(总题数：15，分数：33.00)36.有如下程序： Private Sub Form_Click() n=10 i=0 Do i=i+n n=n-2 Loop while n2 Print i End sub 程序运行后，单击窗体，输出结果为U U /U /U。（分数：2.00）填空项 1:_ （正确答案：28）解析：解析 根据题意，窗体应显示 i 的值。通过分析语句得知，i 是 n 的累加值，只要 n，2 就一直累加，通过循环 n 的取值依次为 10、8、6、4，因此 i=
16、10+8+6+4=28，所以第 10 个空答案为“18”。37.下列程序中，a，b，c 代表一个三角形的三条边，程序的作用是判断一个三角形是否成立，请填写空白处。 If a+bc _ b+ca _ a+cb Then MsgBox(“这三条边不能构成一个三角形“) End If（分数：4.00）填空项 1:_ （正确答案：Or Or）解析：解析 三角形成立的条件是任意两条边的和大于第三边，也就是说有其中两条边的和小于馆三边都不能构成一个三角形，所以答案应该为 If a+bc or b+ca or a+cb Then 三角形不成立。38.将 C 盘根目录下的图形文件 moon.jpg 装入图片框
17、 Picturel 的语句是 1。（分数：2.00）填空项 1:_ （正确答案：P1cture1.Picture=LoadPicture(“c:/moon.jpg“)）解析：39.以下程序用于求 S=1+3+32+33+310的值。Private Sub Commandl_Click()S=1T=1ForI=1 To 10T=_S=S+TNextIPrint“S=“；SEnd Sub（分数：2.00）填空项 1:_ （正确答案：T*3）解析：40.假定一个文本框的 Name 属性为 Text1，为了在该文本框中显示“Hello!”，所使用的语句为U U /U /U。（分数：1.00）填空项 1
18、:_ （正确答案：Text1.text=“Hello!“）解析：41.二叉树是结点的有限集合，这个有限集合或者为U U /U /U，或者由一个根结点及两棵不相交的二叉树组成，分别作为根的左子树和右子树。（分数：1.00）填空项 1:_ （正确答案：空集）解析：解析 本题的考查点是二叉树的定义。二叉树是结点的有限集合，此有限集合或者为空，或由一个根结点及两棵不相交的二叉树组成，分别作为根的左子树和右子树。42.有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY
19、 (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= “hello“ Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) Text2.Text=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框 Text1 和 Text2 中分别显示的内容是U U /U /U和U U /U /U。（分数：1.00）填空项 1:_ （正确答案：145 15hello）解析：解析 程序可以运行通过。本题主要考查数
20、组的运算，题中的 arrX(1)(2)和 arrX(2)(3)都是二维数组，使用 For 循环语句对数组(arry 和 arrZ)赋初值。题中的 arrX(1)(2)指的是 arrX 数组的第 1 个元素(数组 arrY 的第 2 个元素即 arry(2)，所以是 5；arrX(2)(3)指的是 arrX 数组的第 2 个元素(数组arrZ 的第 3 个元素即 arrZ(3)，所以是 Hello。43.下列程序段运行结果是_。 Dim c As Integer,num As Integer Num=29483 Do c=num Mod 10 Print c； num=num/10 Loop W
21、hile num0（分数：2.00）填空项 1:_ （正确答案：38492）解析：44.假定有以下当循环： While Not 条件 循环体 Loop 则执行循环体的“条件“是_。（分数：2.00）填空项 1:_ （正确答案：False）解析：45.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。 （分数：2.00）填空项 1
22、:_ （正确答案：sum 或 max 或 Text1(0)或 Text1(0).Text 1 sum-max-min 或 sum-min-max）解析：解析 本题考查解决。实际问题的能力。题目综合性较强，需要对基本算法有所了解。按照题目要求，我们需要先找出最大值和最小值，然后对所有的数进行求和，求和结果减去最大值和最小值，再取平均数即可。掌握了该程序的流程，就很容易回答。46.软件设计模块化的目的是 1。（分数：2.00）填空项 1:_ （正确答案：降低复杂性）解析：解析 模块化是指解决一个复杂问题时自顶向下逐层把软件系统划分成若干模块的过程，由此分解来降低复杂性。47.软件测试是保证软件质量的重要手段，而软件测试的主要和重要的测试方法是通过测试数据和 1 的设计来实现。（分数：2.00）填空项 1:_ （正确答案：测试用例）解析：48.在鼠标事件过程 MouseDown 和 MouseUp 中，参数 Button 的值为 1、2、4 时，分别代表按下鼠标的_、_和_按钮。（分数：6.00）填空项 1:_ （正确答案：左右 中间）解析：解析 MouseDown、MouseUp 和 MouseMove 事件均能区分出鼠标的左、右和中间按钮。Button 参数与按钮的对应关系是；当 Button=1 时，对应于左按钮(位 0)；当 Button=2 时，对应于右按钮(位 1)；当
