2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中； 2)从名称为List1的列表框中选中

(1)在考生文件夹下有一个工程文件sjt3．vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中； 2)从名称为List1的列表框中选中

admin2017-10-27  38
问题 (1)在考生文件夹下有一个工程文件sjt3．vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作：
    1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中；
    2)从名称为List1的列表框中选中一项(如图3—139所示)。

    3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。
    4)单击窗体右上角的关闭按钮结束程序。
    “读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
    注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中横线(横坐标)的名称为IAne1，竖线(纵坐标)的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shapel，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Labe11，其所有元素的Visible属性都为：False。如图3—140(a)所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数(最好在100～2000之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图3—140(b)所示。

    文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码： Private Sub Command2_Click() Dim k As Integerf i1，i2 As Integer i1＝a(1)：i2＝a(1) For k＝2 To 100 If a(k)＞i1 Then i1＝a(k) End If If a(k)＜5．2 Then i2＝a(k) End If Next k If List1．Selected(0)＝True Then Text1．Text＝i1－i2 End If If List1．Select：ed(1)＝True Then Text1．Text＝i1＋i2 End If If List1．Selected(2)＝True Then Text1．Text＝i1*i2 End Tf 步骤2：按键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。 步骤3：单击窗体右上角的关闭按钮以结束程序。 步骤4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjr4．vbp，在代码编辑窗口，去掉程序中的注释符“’”将问号“?”改为正确的内容。参考代码： For k＝1 To 5 Labe11(k－1)．Visible＝True Shape1(k－1)．Height＝s(k) a＝Line1．Y1 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/wLy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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