1、二级 VISUAL+BASIC-63 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上添加一个名称为 Label1 的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。（分数：15.00）_2.在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为 Command1、Command2、Command3，标题分别为
2、“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Mist37.ico 文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34.ico 文件，如图所示)；单击“清除”按钮则清除图像框中的图案。请编写相应控件的 Click 事件过程，实现上述功能。（分数：15.00）_二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为 Text1 的文本框数组，
3、含 6 个文本框控件；文本框 Text2 用来输入难度系数。程序运行时，在左边的 6 个文本框中输入 6 个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框 Text3 中(如图所示)。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算 1+2+3+2000，选
4、中“阶乘”和“10”，则计算 10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的 out4.dat 文件中。（分数：20.00）_三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp。其功能是产生并显示一个数列的前 n 项。数列产生的规律是：数列的前 2 项是小于 10 的正整数，将此两数相乘，若乘积10，则以此乘积作为数列的第 3 项；若乘积10，则以乘积的十位数为数列的第 3 项，以乘积的个位数为数列的第 4 项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n 项。窗体上部从左到右 3 个文本框的名称分别为T
5、ext1、Text2、Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2 中输入数列的前两项，Text3 中输入要产生的项数 n，单击“计算”按钮则产生此数列的前 n 项，并显示在 Text4 中。如图所示。（分数：30.00）_二级 VISUAL+BASIC-63 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上添加一个名称为 Label1 的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签
6、的外观如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图所示。 *程序中用到的控件及属性见表。 控件 标签属性 Name Caption WidthHeightAlignmentBorderStyle设置值 Label1等级考试 2000 300 2 1步骤 2：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：标签的 Name、Caption、Width、Height、BorderStyle 和 Alignment 属性。 解析 标签的 Name、Caption、Width 和 Height 属性设置标签
7、的名称、标题、宽和高，通过BorderStyle 属性为标签设置边框，Alignment 属性用来设置标签中文本的对齐方式。2.在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为 Command1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Mist37.ico 文件)；单击“红桃”按钮，则在图像框中显示红桃图
8、案(Misc34.ico 文件，如图所示)；单击“清除”按钮则清除图像框中的图案。请编写相应控件的 Click 事件过程，实现上述功能。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。 控件 图像框 命令按钮 1 命令按钮 2 命令按钮 3属性 Name BorderStyleStretchName CaptionName CaptionName Caption设置值Image11 True Command1红桃 Command2黑桃 Command3清除步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Priva
9、te Sub Command1_Click () Image1.Picture=LoadPicture (App.path& “/Misc 34.ico“) 加载图片 End Sub Private Sub Command2_Click() Image1.Picture=LoadPicture (App.path& “/Misc37.ico“) End Sub Private Sub Command3_Click() Set Image1.Picture=Nothing 清除 Image1 中的图片 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：
10、图像框的 Name、Stretch、BorderStyle 和 Picture 属性，LoadPicture()函数以及命令按钮的 Name 和 Caption 属性。 解析 通过图像框的 Name、Stretch 和 BorderStyle 属性设置图像框的名称、自动调整以及是否有边框。通过命令按钮的 Name 和 Caption 属性设置命令按钮的名称和标题。通过 LoadPicture()函数实现图片的加载、转换和清除。 LoadPicture()函数的书写格式要正确，图片文件的路径也要用双引号标识正确。二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件
11、 sjt3.vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为 Text1 的文本框数组，含 6 个文本框控件；文本框 Text2 用来输入难度系数。程序运行时，在左边的 6 个文本框中输入 6 个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框 Text3 中(如图所示)。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Command1_Click() Dim k As Integer, s As Single, a As
12、 Single, b As Single a=Val (Text1 (0).Text) 将第一个文本框的值作为最大值赋予 a s=a b=a 将第一个数作为最小值赋予 b For k=1 To 5 剩余文本框作为循环次数的条件 s=s+Val(Text1 (k) .Text) if a Val(Text1 (k) .Text) Then a=Val (Text1 (k) .Text) End If If b Val(Text1 (k) .Text) Then b=Val (Text1(k) .Text) End If Next k s=(s-a-b) / 4 s=s * 3 * Val(Tex
13、t2.Text) Text3=Int(s * I00) / 100 Int (N)是求小于或等于 N 的最大整数，同时将最后结果显示在 Text3 上 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：INT()函数、Val()函数、文本框数组的 Text 属性、If 判断语句以及 For 循环语句。 解析 通过 Val()函数获取文本框数组的值，并把它转换为数值型，通过循环语句和判断语句，找出最大值和最小值赋值给变量 a 和 b，同时累加所有数值的和赋值给 s，那么最终的和为 s-a-b，根据算法求剩下得分的平均分，乘以 3，再乘以 Text2 中
14、输入的难度系数，得出最终的得分。4.在考生文件夹下有一个工程文件 sjt4.vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算 1+2+3+2000，选中“阶乘”和“10”，则计算 10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的 out4.dat 文件中。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件； 步骤 2
15、：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m=1 If n=100rn=12 Then 通过判断 n 的值，可确定使用什么操作 For i=2 To n m=i * m Next i 求 n 的阶乘 Text1.Text=m End If sum=0 If n=2000 Or n=1000 Then For j=1 To n sum=sum + j Next j 求 1 到 n 的和 Text1.Text=
16、sum End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：单选按钮的 Value 属性、菜单项的 Enabled 属性、菜单编辑器的使用、文件编辑、文本框的 Text 属性、For 循环语句、If 判断语句以及 App.Path 相对路径。 解析 本题的语句比较多，先看一下程序实现的过程，通过单选按钮决定是进行阶乘还是累加运算，并确定 4 个菜单项的Enabled 属性，在菜单项的 Click 事件过程中，设置 n 的值，运用 If 判断语句判断 n 值，进行累加或阶乘运算，然后通过文件编辑实现存盘操作。三、B综合应用题/B(总题数：1
17、，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp。其功能是产生并显示一个数列的前 n 项。数列产生的规律是：数列的前 2 项是小于 10 的正整数，将此两数相乘，若乘积10，则以此乘积作为数列的第 3 项；若乘积10，则以乘积的十位数为数列的第 3 项，以乘积的个位数为数列的第 4 项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第 n 项。窗体上部从左到右 3 个文本框的名称分别为Text1、Text2、Text3，窗体下部的文本框名称为 Text4。程序运行时，在 Text1、Text2 中输入数列的前两项，Text3 中输入要产生的项数 n，单击“计算
18、”按钮则产生此数列的前 n 项，并显示在 Text4 中。如图所示。（分数：30.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Command1_Click () Text4=“ “ a=Val (Text1) b=Val(Text2) n=Val(Text3) Text4=Text4 & a & “ “ & b 文本框 Text4 中第二项的内容一定是 b k=2 Do While k n c=a*b k=k+1 If c 10 Then 判断乘积是否小于 10 Text4=Te
19、xt4 & “ “ & c 若小于 10，则直接接到 Text4 文本尾 a=b 将 b 赋给 a 成为下一次循环的前一项 b=c 将 c 作为下一次循环的后一项 Else d=c / 10 当 C 大于 10，则取整 Text4=Text4 & “ “ & d a=b 将十位数作为下一次循环的前一项 k=k+1 If k=n Then 当 kn 时，则数列已够，不用求下一项 d=c Mod 10 Text4=Text4 & “ “ & d b=d 将余数作为下一次循环后一项 End If End If Loop End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：Val()函数、“&”连接符、Do While 语句、Mod 运算符以及 If 判断语句。 解析 Text3 的数值是数列的项数，定义一个变量 k，前两项已经确定，因此 k 的取值范围为 3n，先计算前两项的积，判断是否小于 10，如果乘积小于 10，则以此乘积作为数列的第 3 项数，如果乘积大于等于 10，则以乘积的十位数为数列的第 3 项，以乘积的个位数为数列的第 4 项，再用数列的最后 2 项相乘，运用循环语句，用上述规则形成后面的项，直至产生了第 n 项。在这里运用的是 Do While 语句，与For 语句有所不同，要注意区分。
