首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮
(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮
admin
2019-06-11
18
问题
(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://kaotiyun.com/show/k8Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面语句中能够打开随机文件的是
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommand1_Click()Text2.Text=UCa
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是
对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。IfCheck1(Index).
下列关于数据库设计的叙述中,正确的是
以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中,在横线处应填写()。DimNAsString,CAsString,DAsStringN=Text1.TextM=_____
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
随机试题
下面所收集到的资料属于客观资料的包括( )。
营养性巨幼红细胞性贫血的护理措施是
位于县城的某建筑安装公司2014年8月发生以下业务:(1)与机械厂签订建筑工程合同一份,为其承建厂房一栋,签订合同时预收工程价款800万元,月初开始施工,至月底已完成全部工程的1/10。(2)与开发区签订安装工程合同一份,为其铺设通信线
我国现行学制包含了学前教育、初等教育、()、高等教育四个层次。从形态上讲该学制属于()学制。
“只要再多走一小步,仿佛是向同一方向迈出的一小步,真理便会变成错误。”这句话意味着()。
3,2,8,12,28,()
舞剧《红色娘子军》
设L:,则t=0对应的曲线上点处的法线为_______.
Thevillageis______bythehills.
A、Safe.B、Clean.C、Productive.D、Predictable.D
最新回复
(
0
)