1、VB机试模拟试卷 41及答案与解析 一、基本操作题（ 30分） 1 在一个工程文件 ylc5.vbp，工程中已有一个 Aver函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图 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、二、简单应用题（ 40分） 2 有一个工程文件 ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击 “显示 ”按钮，则在窗体上输出所有选中的列表项，如图22所示。 要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。 题目提供的 Command1对象的 Click对象源代码如下： Private Sub Command1_Click() Dim i As Integer For i=0 To ? If ? Then Form1.? (List1.List(i) End If Next i End S
3、ub 注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为 ylc6.frm。 VB机试模拟试卷 41答案与解析 一、基本操作题（ 30分） 1 【正确答案】 操作步骤 (1)在 Visual Basic集成环境中执行 “文件 ”“ 打开工程 ”命令，在对话框中选择ylc6.vbp工程文件，单击 “打开 ”按钮。 (2)选择工具箱的 TextBox控件，在窗体上创建名称为 Text1、 Text2、 Text3、Text4和 Text5的五个文本框控件，标题都设置为空。 (3)通过工具箱选择命令按钮，创建标题为 “求和 ”，名称为 C1的命令按钮。 2行为编码 (1)
4、编写 Command1命令按钮的 Click事件过程，代码如下： Private Sub Command1_Click() 定义 Double型求和变量 dnum Dim dnum As Double 定义数组 arr Dim arr(0 To 4)As Integer 使数组元素赋得其值 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 将求得的总数显示在
5、窗体上 Form1.Print(“求得的总数是 :“& dnum) End Sub (2)按 F5键运行该程序。 3存盘保存 执行 “文件 ”“ 保存工程 ”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。 【试题解析】 (1)本题考查对函数的调用数值的计算。通过 5个文本框得到输入的整数，调用题目中提供的函数过程得到它们的和，最后通过 Print方法显示在窗体上。 (2)注意函数过程调用，数值计算，窗体文本的显示。 (3)Command1的 Click事件 中使用文本框接收 5个输入的数据，然后调用已有的函数过程 Aver得到求得的和后，通过窗体的 Print方法显示。
6、在显示前使用了Cls方法，清除以前的显示内容，使应用可以多次运用，而窗体不至于显得混乱。 二、简单应用题（ 40分） 2 【正确答案】 1操作步骤 (1)在 Visual Basic集成环中境选择 “文件 ”“ 打开工程 ”命令，在对话框中选择 ylc6.vbp工程文件，单击 “确定 ”按钮打开。 (2)在工具箱中选择 ListBox控件，在窗体中创建该控件。在属性窗口设置它的名称为 Listl。 (3)在属性编辑框中设置它的 MultiSelect属性值为 1，则可以使用鼠标多选列表项。 (4)在工具箱中选择命令按钮控件，在窗体中拖动创建该控件。设置其名字为 Command1，标题为 “显示
7、 ”。 2行为编码 解答后 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方法显示选择的项目内容。
