1、二级 VISUAL+BASIC 机试-81 及答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用。1有一个工程文件 ylc5.vbp，窗体上有一个单选按钮数组，含 3 个没有标题的单选按钮。为单选按钮添加标题“语文”、“数学”、“英语”；再添加一个标题为“显示”的命令按钮，运行后将根据单选按钮的选中情况，在窗体上显示“我喜欢语文”、“我喜欢数学”、“我喜欢英语”。要求单选按钮的初始值为英语。运行后如图 21 所示。（分数：50.00）_2.有一个工程文件 ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则
2、在窗体上输出所有选中的列表项，如图 22 所示。（分数：50.00）_二级 VISUAL+BASIC 机试-81 答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用。1有一个工程文件 ylc5.vbp，窗体上有一个单选按钮数组，含 3 个没有标题的单选按钮。为单选按钮添加标题“语文”、“数学”、“英语”；再添加一个标题为“显示”的命令按钮，运行后将根据单选按钮的选中情况，在窗体上显示“我喜欢语文”、“我喜欢数学”、“我喜欢英语”。要求单选按钮的初始值为英语。运行后如图 21 所示。（分数：50.00）_正确答案：(1操作步骤(1)在 Visual Basic
3、 集成环境中选择“文件”“打开工程”命令，在对话框中选择 ylc5.vbp 工程文件，单击“确定”按钮打开。(2)在工具箱中选择 OptionButton 控件，分别在窗口中创建 3 个，都命名为 Option1。 Visual Basic 提示是否建立单选控件数组，选择确定。在属性窗口中其名称(Name)分别为 Option(0)、Option(1)、Option(2)，标题(Caption)分别为“语文”、“数学”和“英语”。(3)根据题目要求，在属性窗口设置标题为英语的控件 Option(2)的 Value 属性为 True，表示其初始值是英语。(4)选择命令按钮，设置名称(Name)为
4、 Command1，标题(Caption)为“显示”。1行为编码选择 Command1 对象和 Click 事件，命令按钮的事件过程代码如下：Private Sub Command1_Click()清除窗体上所有的图形和文本Form1.ClsFor i=0 To Option1.Count-1If Optionl.Item(i).Value Then使用控件的 Caption 属性显示名称，进行字符串连接后显示在窗体上Form1.Print(“我喜欢“ & Option1. Item(i).Caption)End IfNext iEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名
5、为 ylc5.vbp，窗体文件名为 ylc5.frm。)解析：解析 (1)本题考查单选按钮控件组的处理。通过循环判断每次选择的单选按钮，在窗体上显示相应的标题字符的组合。(2)注意 OptionButton 控件数组的建立、For 循环语句、Form 对象的 Print 方法。(3)在 For 循环中检测当前单选按钮数组的值，连接字符串，通过 Print 方法打印在窗体上。2.有一个工程文件 ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图 22 所示。（分数：50.00）_正确答案：(1操作步骤(1)在
6、 Visual Basic 集成环中境选择“文件”“打开工程”命令，在对话框中选择 ylc6.vbp 工程文件，单击“确定”按钮打开。(2)在工具箱中选择 ListBox 控件，在窗体中创建该控件。在属性窗口设置它的名称为 Listl。(3)在属性编辑框中设置它的 MultiSelect 属性值为 1，则可以使用鼠标多选列表项。(4)在工具箱中选择命令按钮控件，在窗体中拖动创建该控件。设置其名字为 Command1，标题为“显示”。2行为编码解答后 Command1 对象的 Click 事件代码如下：Private Sub Command1_Click)列表框项目总数确定循环次数For i=0
7、 To List1.ListCount-1判定 Selected 属性的返回值是否该项被选定If List1.Selected(i) Then通过 Print 方法打印该列表项内容Form1.Print (List1.List(i)End IfNext iEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。)解析：解析 (1)这是一道简单的应用题，主要考查列表控件的多选及其多选项的显示。(2)使用 For 循环处理检测列表控件的 Selected 属性。如果被选择的 Selected 属性返回 True，则通过窗体的 Print 方法显示选择的项目内容。
