1、二级 VISUAL+BASIC-42 (1)及答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在窗体上画一个列表框，名称为 List1，通过属性窗口向列表框中添加 3 个项目，分别为“Iterm1、“Iterm2”和“Item3”。编写适当的事件过程。使程序运行后，如果双击 Form1 空白处则清空列表框中的内容。程序运行时窗体界面如下图左图和下图右图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。 （分数：15.00）_二、B2 简单应用题/B(总题数：1，分数：20.00)
2、2.在名称为 Form1 的窗体上画出如阿所示的三角形。下表给出了直线 Line1、Line2 的坐标值，请按此表画 Line1、 Line2，并画出直线 Line3，从而组成如图所示的三角形。 表 Line1、Line2 的坐标值名称 X1 Y1 X2 Y2Line1 600 1600 1600 600Line2 600 1600 2600 1600（分数：20.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sj5.vbp，其窗体上有一个命令按钮，名称为 Command1、标题为“添加”；一个文本框，名称为 Text1。程序运行前，文本框的
3、编辑区为空白；一个列表框，名称为 List1。 在文本框中输入文本，若单击“添加”按钮，文本框中的文本作为一个列表项被加入到列表框中，如下图所示。若双击文本框，则使文本框中的内容为空，且使“添加”按钮变为无效。 要求：去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性，最后把修改后的文件以原来的文件名存盘。 （分数：30.00）_二级 VISUAL+BASIC-42 (1)答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在窗体上画一个列表框，名称为 List1，
4、通过属性窗口向列表框中添加 3 个项目，分别为“Iterm1、“Iterm2”和“Item3”。编写适当的事件过程。使程序运行后，如果双击 Form1 空白处则清空列表框中的内容。程序运行时窗体界面如下图左图和下图右图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。 （分数：15.00）_正确答案：(列表框控件用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List 属性设置加入(注意每输入完一项后按Ctrl+Enter组合键换行再输入下一项)，也可在程序运行时通过代码“列表框名.Addhem”项目“ “加入
5、清除窗体内容可通过 Cls 方法来实现。 根据题意，新建“标准 EXE”工程，将一个 List 控件添加到窗体中，其名称为 List1，在属性窗口的 List 属性中添加“Item1”、“Item2”和“Item3”，每输入一个后按Ctrl+Enter组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，双击 Form1 的空白处，进入代码编写窗口，编写如下代码： Private Sub Form_DblClick() Dim i As Integer For iList1.ListCount-1 To 0 Step-1 先删除索引大的项，防止 i 溢出 List1.Remove
6、 Item i 移除索引指定项 Next i End Sub 单击*按钮运行程序，并按要求保存。)解析：二、B2 简单应用题/B(总题数：1，分数：20.00)2.在名称为 Form1 的窗体上画出如阿所示的三角形。下表给出了直线 Line1、Line2 的坐标值，请按此表画 Line1、 Line2，并画出直线 Line3，从而组成如图所示的三角形。 表 Line1、Line2 的坐标值名称 X1 Y1 X2 Y2Line1 600 1600 1600 600Line2 600 1600 2600 1600（分数：20.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程
7、文件。 第二步：编写程序源代码： 1 Private Sub Form Load( ) 2 Me. Line(600，1600)-(1600，600) 3 Me. Line(600，1600)-(2600，600) 4 Me. Line(2600，600)-(1600，600) 5 End Sub 第三步：调试并运行程序，运行正确后按要求保存。)解析：解析 本题主要考查 Line 方法。不通过形状控件，用户通过 Line 方法建立自定义的图形。题目要求画出一个三角形，那就是要求画出首尾相连的三条直线，根据题日已经给出的两组(X1，Y1)、(X2，Y2)的坐标，我们很容易就可以计算出第三条直线的
8、起始点和终止点坐标。而对于 Line 方法，只要给出了起始点和终止点坐标，一条直线便生成了，所以代码中通过三条 Line 语句画出三条直线组成了题目所要求的一个三角形。三、B3 综合应用题/B(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sj5.vbp，其窗体上有一个命令按钮，名称为 Command1、标题为“添加”；一个文本框，名称为 Text1。程序运行前，文本框的编辑区为空白；一个列表框，名称为 List1。 在文本框中输入文本，若单击“添加”按钮，文本框中的文本作为一个列表项被加入到列表框中，如下图所示。若双击文本框，则使文本框中的内容为空，且使“添加”按钮变为无效
9、 要求：去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性，最后把修改后的文件以原来的文件名存盘。 （分数：30.00）_正确答案：(本题重点考查列表框控件的使用及命令按钮的事件和属性设置。 列表框控件用于提供可进行单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List 属性设置加入，也可在程序运行时通过代码“列表框名.Addltem“项目”加入，清除列表框内容可通过其 Clear 方法来实现；文本框的 Text 属性用于设置或返回其上显示的文本；Enabled 属性用于设置命令按钮是否有效，单击命令
10、按钮将触发其 Click 事件。 根据题意，将一个 List 控件、一个命令按钮和一个文本框控件添加到窗体中，列表框的名称为 List1，命令按钮的名称为 Command1、Caption 属性为“添加”，文本框的名称为Text1、Text 属性为空。双击 Command1 进入代码窗口，编写如下代码： Private Sub Command1_Click() List1.UAddltem/U Text1.UText/U 单击添加按键，将 Text1 中的字符写入 List 中 End Sub Private Sub Text1_Change() If Text1.UText/U=“ “ Then Command1.UEnabled/U=False 如果 Text1 中没有字符，则 Command1 不可用 Else Command1.UEnabled/UTrue 如果 Text1 中有字符，则 Command1 可用 End If End Sub Private Sub Text1_DblClick() Text1.Text=“ “双击 Text1， 清空 Text1 Command1.Enabled=FalseCommand 不可用 End Sub 单击*按钮运行程序，并按要求保存。)解析：
