首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮
(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮
admin
2019-06-11
20
问题
(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全国计算机二级
相关试题推荐
下面语句中能够打开随机文件的是
下面控件中,没有Caption属性的是
在VisualBasic中,表达式3*2\5Mod3的值是
设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1,及下面的事件过程:PrivateSubForm_Load()PrivateSubCommand1_Click()HScroll1.Min=0HScroll1.Val
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。IfCheck1(Index).
在窗体上有一个名为Command1的命令按钮,并有如下事件过程:PrivateSubCommand1_Click()aS="SwallowsModGenulled"b$=Right(aS,8):c$=Mid(aS,1.
以下合法的VB变量名是
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("输入整数"))y=Val
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)EndSubPrivateSub
能够产生1到50之间(含1和50)随机整数的表达式是
随机试题
在Excel2010中,B5、C5单元格的数据分别为10、20,拖动鼠标选中B5:C5区域并选单击“合并后居中”按钮,在弹出的对话框中再单击“确定”按钮,则单元格内容为()
患者,女,32岁,因甲型肝炎收入院治疗,应采取的隔离是
某银行以某公司未偿还贷款为由向法院起诉,法院终审判决认定其请求已过诉讼时效,予以驳回。某银行向某县政府发函,要求某县政府落实某公司的还款责任。某县政府复函:“请贵行继续依法主张债权,我们将配合做好有关工作。”而后,某银行向法院起诉,请求某县政府履行职责。法
在项目竣工验收和总结评价阶段,咨询工程师的主要工作不包括()。
A公司中标承建某排水工程,主要包括:高位井(兼顶管工作井)一座;内径∮1.6m,全长1856m钢筋混凝土顶管一条;采用垂直顶升法施工的外径∮0.48m垂直排放管14根。本顶管的顶距较长,且管径较小,因此施工组织设计应针对超长距离顶进的工程特点,把顶管
2008年,工商管理专业毕业的大学生张某选择了自主创业的方式就业,在亲属的资金支持下创办了一家小型企业。该企业的业务是为汽车厂加工螺丝垫片。12名员工全部由其他企业的下岗人员组成。对于该企业的组织管理,大学生张某必须做出科学的决策。根据以上资料,回答下列
下列关于股份有限公司董事会的组成表述正确的是()。
()是统一战线组织又是民间商会。
用螺旋图形装在色轮上()
用于核对某些重要行为是否呈现的记录法是()。
最新回复
(
0
)