6[单选题] 窗体上有两个水平滚动条HV、I-IT，还有一个文本框Textl和一个标题为“计算”的命令按钮Commandl，并编写了以下程序.

　　运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是( )。

　　A.过程调用语句不对，应为calc(HV。HT)

　　B.过程定义语句的形式参数不对，应为Sub calc(x As Control。Y As Contr01)

　　C.计算结果在文本框中显示出来

　　D.程序不能正确运行

　　参考答案：C

　　参考解析：访问滚动条控件的值，可以直接使用控件的名称，也可以在名称后面指明Value属性。滚动条位置是用数值来表示的，因此定义Calc过程时参数应该定义为Inte.ger类型。程序中，Textl.Text=x+Y语句说明计算的结果在文本框中显示出来。

　　7[单选题]

　　A.Sqr((a+b/a*b)

　　B.Sqr((a+b/a)*b

　　C.((a+b/(a·b)^/2

　　D.((a+b/a*b^(1/2)

　　参考答案：A

　　参考解析：算术运算符优先级从高到低依次是乘方，取负，乘法和除法运算符。整除运算符，加法和减法运算符;数学函数的平方根(Square)函数是sqr(x)，返回值为自变量x的平方根。从表达式上看首先a,b之和除以a,b的乘积，最后求其平方根。故首先将(a+B.，然后是(a+B.，接着是求商，即(a+B./(a*B.，最后求平方根，因为平方根的优先级比乘除法高，故应为Sqr((a+B./a*B.，故B选项正确。A项中表达式与数学式不大对应，A项是先求a、b之和，接着除以a，再接着乘以b，这和题目意思不对应，故A项错误。平方根函数是sqr(x)，故c项和D项错误。

　　8[单选题] 设有如图所示窗体和以下程序：

　　程序运行时，在Textl文本框中输入“Basic”(如图所示)，然后单击Commandl按钮，则产生的结果是(　　)。

　　A.文本框中无内容，焦点在文本框中

　　B.文本框中为“Basic”，焦点在文本框中

　　C.文本框中为“Basic'’，焦点在按钮上

　　D.文本框中为“Visual Basic”，焦点在按钮上

　　参考答案：A

　　参考解析：题目程序的功能为，当单击命令按钮时，Textl失去焦点，激发Textl的LostFocus事件，在此事件中，程序判断文本框中字符串是否为“BASIC”，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示“VisualBasic”，如果不是则文本框内容置空，焦点返回刭文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了“Basic”，与“BASIC”不符，因此文本框置空，焦点回到文本框中。

　　9[简答题]以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。

　　在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。

　　注意：不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

　　参考解析：

　　【考点分析】本题考点有：文本框的Text属性，单选按钮的Name、Caption和Value属性，单选按钮控件数组，For循环语句，If条件判断语句以及内部函数Val()。

　　【解题思路】单选按钮数组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：Fise为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)中逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第一个元素开始。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：打开代码编辑窗口，在指定位置编写如下代码。

　　参考答案

　　Private Sub Command1_Click()

　　Dim a () As Long

　　Dim i As Integer

　　Dim n As Integer

　　´Op1.Count是单选按钮数目，这里用的是控件数组

　　For i=0 To Op1.Count-l

　　´判断哪一项被选择，把它后面的数值赋给n，确定n值

　　If　Op1(i).Value=True Then

　　n=Val(Op1(i).Caption)

　　Exit For

　　End If

　　Next

　　ReDim a(n)´重新申请空间，这里是动态申请

　　a(1)=1

　　a(2)=1´数列第一项、第--4值确定

　　For i=3 To n

　　a(i)=a(i-1)+a(i-2)’后一项值是

　　前两项值之和

　　Next

　　Text1.Text=a(n)

　　End Sub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】在定义数组a的时候，要注意定义为长整型Long，可以防止溢出;单选按钮数组的Index属性分别为0,1，2，在编写循环语句的时候要注意循环变量Opl.Count-1。

　　10[简答题]在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.fem，此外还有一个名为datain.txt的文本文件，其内容如下：.

　　32 43 78 58 28 12 98 57 31 42 53 64

　　75 86 97 13 24 35 46 57 68 79 80 59 37

　　程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，按5行、5列的矩阵形式显示在窗体上，并输出矩阵左上一右下对角线上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，·这个程序不完整，请把它补充完整，并能正确运行。

　　要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

　　参考解析：

　　7rab函数常与Prim#语句或Print方法一起使用，对输出进行定位，其语法为：

　　Tab[(n)]

　　其中，可选的参数n表示在显示或打印下一个表达式之前移动的列数。在使用数组时，应先定义。Input#语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)，其语法格式为：

　　Input#FileNumber.Varlist

　　其中：FileNumber参数表示打开文件的句柄，Varlist为变量列表。语句“Option Base l”用于限定数组下标的下限默认为1。

　　本题中文件以Input方式打开，使用一个5行、5列的二维数组Mat来存放数据，并使用一个嵌套的For循环显示矩阵，对于5 * 5的矩阵来说，位于左上到右下对角线上的元素具有行号等于列号的特点。

　　相关推荐：

　　2015年9月计算机等级考试成绩查询时间通知

　　2015年9月计算机等级考试真题及答案解析专题

　　2015年计算机等级考试二级VB上机考试解题技巧