1、VB 机试-试卷 9 及答案解析(总分：8.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.在一个工程文件 ylc5.vbp，工程中已有一个 Aver 函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图 17 所示。 提供的函数过程如下： Function Aver(arr()As Integer)As Double Aver=arr (0)+arr(1)+arr(2)+arr(3)+arr(4) End Function 注意：存盘
2、时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体丈件名为 ylc5.frm。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.有一个工程文件 ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图 22 所示。 （分数：2.00）_VB 机试-试卷 9 答案解析(总分：8.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.在一个工程文件 ylc5.vbp，工程中已有一个 A
3、ver 函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图 17 所示。 提供的函数过程如下： Function Aver(arr()As Integer)As Double Aver=arr (0)+arr(1)+arr(2)+arr(3)+arr(4) End Function 注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体丈件名为 ylc5.frm。 （分数：2.00）_正确答案：(正确答案：操作步骤 (1)在 Visual Basic 集成环境中执行“文件”“打开工程
4、”命令，在对话框中选择 ylc6.vbp 工程文件，单击“打开”按钮。 (2)选择工具箱的 TextBox 控件，在窗体上创建名称为 Text1、Text2、Text3、Text4 和 Text5 的五个文本框控件，标题都设置为空。 (3)通过工具箱选择命令按钮，创建标题为“求和”，名称为 C1 的命令按钮。 2行为编码 (1)编写 Command1 命令按钮的Click 事件过程，代码如下： Private Sub Command1_Click() 定义 Double 型求和变量 dnum Dim dnum As Double 定义数组 arr Dim arr(0 To 4)As Integ
5、er 使数组元素赋得其值 arr(0)=Text1.Text arr(1)=Text2.Text arr(2)=Text3.Text arr(3)=Text4.Text arr(4)=Text5.Text 调用函数过程 Aver，返回求得的和 dnum=Aver(arr() 清除窗体的显示内容 Form1.Cls 将求得的总数显示在窗体上 Form1.Print(“求得的总数是:“& dnum) End Sub (2)按 F5 键运行该程序。 3存盘保存 执行“文件”“保存工程”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。)解析：解析：(1)本题考查对函数的调用数值的
6、计算。通过 5 个文本框得到输入的整数，调用题目中提供的函数过程得到它们的和，最后通过 Print 方法显示在窗体上。 (2)注意函数过程调用，数值计算，窗体文本的显示。 (3)Command1 的 Click 事件中使用文本框接收 5 个输入的数据，然后调用已有的函数过程Aver 得到求得的和后，通过窗体的 Print 方法显示。在显示前使用了 Cls 方法，清除以前的显示内容，使应用可以多次运用，而窗体不至于显得混乱。二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.有一个工程文件 ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同
7、时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图 22 所示。 （分数：2.00）_正确答案：(正确答案：1操作步骤 (1)在 Visual Basic 集成环中境选择“文件”“打开工程”命令，在对话框中选择 ylc6.vbp 工程文件，单击“确定”按钮打开。 (2)在工具箱中选择 ListBox 控件，在窗体中创建该控件。在属性窗口设置它的名称为 Listl。 (3)在属性编辑框中设置它的 MultiSelect 属性值为 1，则可以使用鼠标多选列表项。 (4)在工具箱中选择命令按钮控件，在窗体中拖动创建该控件。设置其名字为 Command1，标题为“显示”。 2行为
8、编码 解答后 Command1 对象的 Click 事件代码如下： Private Sub Command1_Click) 列表框项目总数确定循环次数 For i=0 To List1.ListCount-1 判定Selected 属性的返回值是否该项被选定 If List1.Selected(i) Then 通过 Print 方法打印该列表项内容 Form1.Print (List1.List(i) End If Next i End Sub 3存盘保存 执行“文件”“保存工程”命令，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。)解析：解析：(1)这是一道简单的应用题，主要考查列表控件的多选及其多选项的显示。(2)使用 For 循环处理检测列表控件的 Selected 属性。如果被选择的 Selected 属性返回 True，则通过窗体的 Print 方法显示选择的项目内容。
