2. 计算机
  3. （1）在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架，在框架中有一个名称为Txt1的文本框数组，含六个元素；文本框Txt2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮

（1）在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架，在框架中有一个名称为Txt1的文本框数组，含六个元素；文本框Txt2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮

admin2019-06-11  14
问题 （1）在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架，在框架中有一个名称为Txt1的文本框数组，含六个元素；文本框Txt2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并在文本框Txt3中显示（如图1－335所示）。

    计算方法：去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2 位小数，不四舍五入。
    注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
    程序源码：
    Private Sub Cmd1_Click()
    Dim k As Integer, s As Single,
    a As _
    Single, b As Single
    a ＝Val(Txt1(0).Text)
    s＝ a
    b ＝ a
    ’    For k ＝ 1 To ?
    s ＝ s ＋Val(Txt1(k).Text)
    ’      If ? ＜Val(Txt1(k).Text)
    Then
    a ＝ Val(Txt1(k).Text)
    End If
    If  b ＞ Val(Txt1(k).Text)
    Then
    b＝ Val(Txt1(k).Text)
    End If
    Next k
    ’    s ＝ (s －a － b) / ?
    ’    s ＝ ? * 3 * Val(Txt2.Text)
    ’    ? ＝ Int(s * 100) / 100
    End Sub
    （2）在名称为Form1的窗体上画一个名称为picOpen 的图片框，并利用属性窗口把考生目录中的图标文件Open.ico放到图片框中；再画一个通用对话框控件，名称为cdlOpen，利用属性窗口设置相应属性，即打开对话框时：标题为“打开文件”，文件类型为“Word文档”，初始目录为C盘根目录。再编写适当的事件过程，使得在运行时，单击P1图片框，可以打开上述对话框。运行后的窗体如图1－336所示。

    注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj4.vbp，窗体文件名为vbsj4.frm。程序中不得使用任何变量。
选项
答案第1小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： For k = 1 To 5 If a ＜ Val(Txt1(k).Text) Then s = (s - a - b)／4 s = s * 3 * Val(Txt2.Text) Txt3.Text = Int(s * 100)/100 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：新建一个“标准EXE”工程，按表2－177在窗体中画出控件并设置其相关属性。 [*] 步骤2：打开代码编辑窗口，编写如下事件过程。 参考代码： Private Sub picOpen_Click() cdlOpen.ShowOpen End Sub 步骤3：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/k8Up777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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