1、二级 VISUAL+BASIC-68 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上添加一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。（分数：15.00）_2.在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为 List1 的列表框，并在属性窗口中设置列表项的值分别为 1、2、3、4、5。将窗体的标题设
2、为“图形控件”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充，如图所示。（分数：15.00）_二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5 个数添加到列表框 List1 中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp。程序运行后，单击“开始”按钮，
3、图片自上而下移动，同时滚动条的滑块随之移动。每隔 0.5 秒移动一次，当图片顶端移动到距窗体下边界的距离少于 200 时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。（分数：20.00）_三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、6069、7079、8089 及90100 各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。（
4、分数：30.00）_二级 VISUAL+BASIC-68 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上添加一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。 控件 命令按钮 窗体属性 NameCaption Caption设置值 C1 改变颜色 改变窗
5、体背景色步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub C1_Click() Form1.BackColor=&HFF& End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：命令按钮的 Name 和 Caption 属性以及窗体的 Caption 和 BackColor 属性。 解析 通过命令按钮的 Name 和 Caption 属性设置命令按钮的名称和标题，通过窗体的 Caption 属性设置窗体的标题，在 C1_Click 事件过程中，通过设置窗体的 BackColor 属性实现单击命令按钮时将窗体的背景颜色改为红色。
6、2.在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为 List1 的列表框，并在属性窗口中设置列表项的值分别为 1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充，如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，将窗体 Form1 的 Caption 属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表。 控件 形状控件 列表框属性 Name ShapeName List设置
7、值 Shape13 List11、2、3、4、5步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub List1_C1ick() Shape1.FillStyle=List1.Text End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：形状控件的 Name、Shape 以及 FillStyle 属性，列表框的 Name、List 和Text 属性。 解析 通过形状控件的 Name 和 Shape 属性设置形状控件的名称和形状，通过列表框的 Name和 List 属性设置列表框的名称和列表项，单击列表框中的某一项，通过 List
8、1 的 Text 属性确定选中的值，并将其值作为形状控件的填充参数，FillStyle 属性用于返回/设置一个形状控件的填充样式。二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5 个数添加到列表框 List1 中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口中，去掉程序中的
9、注释符“”，将问号改为正确的内容。 Private Sub Command1_Click ( ) Dim y As Integer For i=0 To 2 循环三个单选按钮 If Option1(i).Value=True Then 当某个按钮被选 y=Val(Option1(i).Caption 提取按钮名并转换为数值 End If Next Call calc(y) 调用子函数 End Sub Private Sub calc(y As Integer) ClearList 执行子函数 i=1 x=Val (Text1.Text)+ Do While i =5 只需要显示 5 个数 If
10、 x Mod y=0 Then 判断 x 是否能被 y 整除 List1.AddItem x 统计添加满足条件的数至表 i=i+1 统计 End If x=x+1 自加，判断下次循环 Loop End Sub Private Sub ClearList () 清空列表框的项目 For k=List1.ListCount-1 To 0 Step -1 List1.RemoveItem k Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：列表框的 AddItem 和 RemoveItem 方法、列表框的 ListCount 属性、Do W
11、hile语句、calc()函数、Val()函数、Mod()函数、If 语句、单选按钮数组的 Caption 属性以及文本框的 Text屙陛。 解析 calc()函数实现将大于文本框中的正整数，并且能够被所选除数整除的 5 个数添加到列表框 List1 中，首先调用 ClearList()函数清空列表框，运用 Val()函数使 Text1 的值由字符转化为数值，Do While 语句控制产生整数的个数为 5 个，通过 Mod()函数和 If 语句判断是否能被所选数整除，并用列表框的 AddItem 方法，把能被整除的数添入列表框中。在 Command1_Click 事件过程中，向文本框中输入正整
12、数，并运用 Val(Option1(i). Caption)语句提取单选按钮数组中所选的数值，再通过调用 calc()函数实现数据的处理过程。4.在考生文件夹下有一个工程文件 sjt4.vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 0.5 秒移动一次，当图片顶端移动到距窗体下边界的距离少于 200 时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private
13、 Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click () Timer1.Enabled=False End Sub Private Sub Form_Load () Timer1.Interval=500 设置 Timer1 执行间隔数，以毫秒计算 End Sub Private Sub Timer1_Timer () Picture1.Top=Picture1.Top+200 顶端位置保持一致 VScroll1.Value= Picture1.Top 滚动条滑块的位置与图片顶端位置保持一致
14、If VScroll1.Value+200 = Form1.Height-200 Then Picture1.Top= 0 当图片顶端移动到距窗体下边界距离少于 200 时，则图片重新向下移动 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：计时器的 Enabled 和 Interval 属性、滚动条的 Value 属性、图片框的 Top 属性、Form1 的 Height 属性以及 If 判断语句。 解析 在 Command1_Click 事件过程中，Timer1 的Enabled 属性设置为 True，图片开始移动，在 Comma
15、nd2_Click 事件过程中，Timer1 的 Enabled 属性设置为 False，图片停止移动。窗体装入时 Timer1 的 Interval 属性设置为 500，表示 Timer1 时间间隔为 0.5秒。在 Timer1_Timer 事件过程中，Picture1 的 Top 属性值的改变使图片自上而下移动，VSeroll1 的Value 属性值等于 Picture1 的 Top 属性值，使滚动条的滑块随之移动。运用 If 语句，通过对 VScroll1的 Value 属性值和 Form1 的 Height 属性值来判断图片顶端移动到距窗体的下边界的距离是否少于 200，如果少于，则
16、Picture1 的 Top 属性值为 0，图片再回到窗体顶部，重新向下移动。三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、6069、7079、8089 及90100 各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。（分数：30.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 For i=1 T
17、o n 循环判断分数的范围，当满足某个条件时则分别统计 If arr(i) 60 Then Text2=Val(Text2)+1 ElseIf arr (i) =60 And arr (i) 70 Then Text3=Val(Text3)+1 ElseIf arr (i) =70 And arr (i) 80 Then Text4=Val(Text4)+1 ElseIf arr(i) =80 And arr (i) 90 Then Text5=Val(Text5)+1 ElseIf arr(i) =90 And arr(i) =100 Then Text6=Val(Text6)+1 End
18、If Text1=Val(Text1)+ 显示统计人数 Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：App.Path 相对路径、Do While 语句、文件编辑、Print 方法、If 选择判断语句、MsgBox 对话框以及 Val()函数。 解析 在窗体装入时，通过文件操作和 Do While 语句从数据文件中读取学生的成绩，并把成绩的值装入数组 arr(n)。单击“统计”按钮通过 For 循环语句遍历数组，并用 If 语句对数组中存储的数值进行判断，使用 Val()函数完成字符向数值类型的转换，通过累加统计不及格、6069、7079、8089 及 90100 各分数段的人数，并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击“保存”按钮，将统计结果使用 Print 方法，并通过文件操作保存在文本文件中，弹出 MsgBox 对话框，提示“保存成功!”。
