1、(A)二级 VISUAL+BASIC 笔试-6 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：40.00)1.在名称为 Form1 的窗体上添加一个名称为 Command1 的命令按钮(如图 1 所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：窗体标题为“设置按钮属性”：命令按钮的标题为“等级考试”：程序运行后，命令按钮不可见；命令按钮的标题字号、字体用三号常规黑体显示。程序的运行情况如图 2 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sjt1.frm。（分数：
2、20.00）_2.在名称为 Form1 的窗体上添加一个名称为 Label1 的标签，在属性窗口中把 BorderStyle 属性设置为1(如图 1 所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。（分数：20.00）_二、简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是随机产生 30 个01000
3、的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp，相应的窗体文件为 sjt4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 01000 范围内不能被 7 整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7 整除的整数的个数的操作在通用过程 Fun 中实现，请编写该过程的代码
4、。要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function 之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。（分数：20.00）_三、综合应用题(总题数：1，分数：20.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，按照要求完成以下操作：在名称为 Form1 的窗体上添加两个命令按钮，其名称分别为 C1 和 C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的 ReadData1 和 ReadData2 过程读入 datain1.txt 和 datain2.txt 文件中的各
5、20 个整数，分别放入 Arr1 和 Arr2 两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第 1 个数组的第 n 个元素减去第 2 个数组的第 n 个元素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1、220)，最后计算第 3 个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 dataout.txt 文件中。注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。（分数：20.00）_(A)二级 VISUAL+BA
6、SIC 笔试-6 答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：40.00)1.在名称为 Form1 的窗体上添加一个名称为 Command1 的命令按钮(如图 1 所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：窗体标题为“设置按钮属性”：命令按钮的标题为“等级考试”：程序运行后，命令按钮不可见；命令按钮的标题字号、字体用三号常规黑体显示。程序的运行情况如图 2 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sjt1.frm。（分数：20.00）_正确答案：(操作步
7、骤步骤 1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性，如图所示。)解析：考点 本题考点有：窗体的 Caption 属性以及命令按钮的 Name、Caption、Font 和 Visible 属性。窗体对象和命令按钮控件的标题均由其 Caption 属性来设置，Visible 属性用于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的 Font 属性来设置标题的字体、字号和字型。2.在名称为 Form1 的窗体上添加一个名称为 Label1 的标签，在属性窗口中把 BorderStyle 属性设置为1(如图 1 所示)，编写适当的事件过程。使得程序在运行后
8、，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。（分数：20.00）_正确答案：(操作步骤步骤 1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表。控件 标签属性 Name BorderStyle设置值 Labell1步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考答案Private Sub Form_Click()Label1.Top=0 设置 Labell 的初始位置Label1.Left=Form1.
9、Width-Label1.WidthEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：标签的 Name、BorderStyle、Top、Left 和 Width 属性。标签的 BorderStyle 属性用于设置标签的边框样式，值为 0 表示无边框，值为 1 表示有固定边框。要使标签位于窗体的右上角，其 Top 属性值应为 0，Left 属性值应为窗体的内部有效宽度减去标签宽度后的值。二、简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是随机产生 30 个01000
10、 的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。参考答案(阴影部分是需考生填入的内容)Option Base 1Private Sub Command1_Click()Dim arrN(30)As IntegerDim Min As IntegerRandomizeFor i=1
11、To 30arrN(i)=Int(Rnd*1000)Next iMin=arrN(1) 将第一个数赋给 Min,以提供判断For i=2 To 30If arrN(i)MinThen 比较最小值与其他数值,找出最小值Min=arrN(i)End IfNext iPrint MinEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：Randomize 语句、Rnd()函数、Int()函数、循环语句、判断语句以及 Print方法。本题程序用变量 Min 记录最小数，最初把数组的第一个元素的值赋给 Min，然后通过 For 循环语句将其后的元素依次与之比较，如
12、果其值小于 Min，则将其赋值给 Min，依次类推，最终 Min 的值就是数组各元素中的最小值。产生 01000 范围内的随机数，应该是 Rnd1000。4.在考生文件夹下有一个工程文件 sjt4.vbp，相应的窗体文件为 sjt4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 01000 范围内不能被 7 整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7 整除的整数的个数的操作在通用过程 Fun 中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Func
13、tion 之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考答案Function Fun()Dim s As Integer, i As IntegerFor i=0 To 1000 求 01000 中满足条件的数If i Mod 70 Thens=s+1 将满足条件的数的个数累加End IfNext iFun=s 返回结果End Function步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：Mod 运算符、文件编辑
14、、For 循环语句、If 判断语句以及过程函数。可通过求余运算符 Mod 来计算某数 M 能否被 7 整除，如果 M Mod 7=0，那么 M 能被 7 整除；如果 MMod 70，那么 M 不能被 7 整除。可利用 For 循环语句来逐个判断 01000 范围内的整数能否被 7 整除，然后用一个变量来统计不能被 7 整除的整数个数。三、综合应用题(总题数：1，分数：20.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，按照要求完成以下操作：在名称为 Form1 的窗体上添加两个命令按钮，其名称分别为 C1 和 C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击
15、“读入数据”按钮，则调用题目所提供的 ReadData1 和 ReadData2 过程读入 datain1.txt 和 datain2.txt 文件中的各 20 个整数，分别放入 Arr1 和 Arr2 两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第 1 个数组的第 n 个元素减去第 2 个数组的第 n 个元素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1、220)，最后计算第 3 个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 dataout.txt 文
16、件中。注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表。控件 命令按钮 1 命令按钮 2属性 NameCaption NameCaption设置值 C1 读入数据 C2 计算步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。参考答案Private Sub C1_Click()Call ReadData1 调用过程 ReadData1Call ReadData2 调用过程 ReadDa
17、ta2End SubPrivate Sub C2_Click()Dim Arr3(1 To 20)As IntegerDim sum As Integersum=0For i=1 To 20 将 Arr1 中对应于 Arr2 中的数相减,结果存入 Arr3 中Arr3(i) =Arr1(i) -Arr2(i)sum=sum+Arr3(i) 将 Arr3 中的元素累加Next iPrint“sum=“; sum 在窗体打印 sumWriteData “dataout.txt“, sumEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：命令按钮的 Name
18、 和 Caption 属性、Option Base 数组下标、Call 语句、Print 方法、For 循环语句以及文件操作。本题源程序已给出读文件中的数据和向文件中写数据的三个过程，只需适时调用它们，即在“读入数据”和保存过程中调用；要把数组 Arr1 和 Arr2 中对应下标的元素相减并把结果存入第 3 个数组中，需利用For 循环逐一取出 Arr1 和 Arr2 对应元素；由于数组 Arr1、Arr2 及存储第 3 个数组和的变量要跨过程使用，因此需定义成窗体级变量；调用过程 WriteData 时需传递两个参数，分别是存入数据的文件名和存储第 3 个数组和的变量；语句 Option Base1 用于限定数组下标的下限，默认为 1。
