2. 计算机
  3. (1)考生文件夹下的工程文件Bjt3．vbp中有一个初始文本为空且带有垂直滚动条的文本框，其名称为Text1；两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell，再添加一个名称为Te

(1)考生文件夹下的工程文件Bjt3．vbp中有一个初始文本为空且带有垂直滚动条的文本框，其名称为Text1；两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell，再添加一个名称为Te

admin2015-06-30  58
问题  (1)考生文件夹下的工程文件Bjt3．vbp中有一个初始文本为空且带有垂直滚动条的文本框，其名称为Text1；两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell，再添加一个名称为Text2，其初始文本为空的文本框，如图所示。
  程序功能如下：
  ①单击“读数据”按钮，则将考生文件夹下的in3．dat文件中已按从小到大排列顺序的30个整数读入一维数组a中，并同时在Text1文本框内显示。
    ②单击“查找”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组a的数值范围，则无须进行相应查找工作，直接在Text2内给出结果；否则，在一维数组a中查找该数，并根据查找结果在Text2文本框内显示相应信息。
    命令按钮的Click事件过程已给出，但“查找”按钮的Click事件过程不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名进行存盘。

    (2)考生文件夹下的工程文件sjt4．vbp中有一个初始文本为空的文本框Text1，一个包含三个元素的文本框控件数组Text2，两个分别含有三个元素的标签控件数组Label1和LabeL2，两个标题分别是“读数据”和“统计”的命令按钮，如图所示。
  程序功能如下：
  ①考生文件夹下in4．dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮，可以将in4．dat文件内容读入20行3列的二维数组a中，并同时在Text1文本框内显示。
    ②单击“统计”按钮，则对考生数学和语文的平均分在“优秀”、“通过”和“不通过”三个分数段的人数进行统计，并将人数统计结果在控件数组Text2中相应位置显示。其中，平均分在85分以上(含85分)为“优秀”，平均分在60—85分(含60分)为“通过”，平均分在60分以下为“不通过”。
    命令按钮的Click事件过程已经给出，但“统计”按钮的Click事件过程不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名进行存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件，添加一个标签为"查找结果"的标签和一个初始内容为空的文本框。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(30) As Integer Private Sub Cmd1_Click() Open App.Path & "\in3.dat" For Input As #1 For m = 1 To 30 　　　Input #1, a(m) 　　　Text1 = Text1 + Str(a(m)) + Space(2) Next m Close #1 End Sub Private Sub Cmd2_Click() Dim num As Integer, n As Integer num = InputBox("请输入待查找的数") ’ If num / 2 ? Fix(num / 2) Then 　　　MsgBox "输入数为奇数，请重输！"， , "检查" 　　　Exit Sub End If ’ If num < a(1) ? num > a(30) Then 　　　Text2.Text = Str(num) + "已超出所给数值范围" 　　　Exit Sub End If For n = 1 To 30 ’ If a(n)= ? Then 　　　　 Text2.Text = Str(num) + "是数组中的第" + Str(n) + "个值" 　　　　 Exit For 　　　End If Next n ’If n ? 30 Then 　　　Text2.Text = Str(num) + "不存在于数组中" End If End Sub 程序结束 参考答案 第1个？处填入：<> 第2个？处填入：Or 第3个？处填入：num 第4个？处填入：> 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20, 3) As Integer Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 For i = 1 To 20 　　　For j = 1 To 3 　　　　　Input #1, a(i, j) 　　　　　Text1 = Text1 + Str(a(i, j)) + Space(4) 　　　Next j 　　　Text1 = Text1 + Chr(13) + Chr(10) Next i Close #1 End Sub Private Sub Command2_Click() Dim x(3) As Integer For i = 1 To 20 ’　 ? = (a(i, 2) + a(i, 3)) / 2 　　 Select Case Avg ’　 Case ? 　　　　　　x(1) = x(1) + 1 ’　 Case ? 　　　　　　x(2) = x(2) +1 　　　　 Case Is < 60 　　　　　　x(3) = x(3) + 1 ’　 ? Next i For n = 1 To 3 ’　 Text2( ? ) = x(n) Next n End Sub 程序结束 参考答案 第1个？处填入：Avg 第2个？处填入：Is >= 85 第3个？处填入：Is >= 60 第4个？处填入：End Select 第5个？处填入：n - 1 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/DuQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)