首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮
(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮
admin
2019-06-11
19
问题
(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全国计算机二级
相关试题推荐
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10:TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_C
下面关于VB数据文件的叙述中错误的是
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
下列叙述中正确的是
设有如下关系表:则下列操作中正确的是
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。IfCheck1(Index).
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",ch="B",则函数的返回值为:“ACDACD”Functiondelchar(strAsString,chAs
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
设栈的顺序存储空间为S(0:49),栈底指针bottom=49,栈顶指针top=30(指向栈顶元素)。则栈中的元素个数为
随机试题
下列关于领导和管理的关系的说法正确的是()
关于查封、扣押措施,下列选项正确的是:(2012/2/94)
以一定的方式中断风险源,使其不发生或不再发展,从而避免能产生的潜在损失指的是( )。
下列各项中,构成破产企业的共益债务的有()。
中国公民郑某2015年1~12月每月工资5200元,12月除取得当月工资以外,还取得全年一次性奖金24000元。郑某2015年应缴纳个人所得税是()元。
Canyoubelievethatin______arichcountrythereshouldbe______manypoorpeople?
培训教材将咨询阶段划分为诊断、咨询、巩固三个阶段,其中第二个阶段——咨询阶段是最核心、最重要的实质性阶段,这一阶段的主要任务不包括()。
沙塔洛夫提出了一种由字母、单词、数字等组成的图表,能够简明扼要地将知识表现出来,帮助学生理解。这种方法是()。
教育研究的基本组成是()
为什么说改革是社会主义社会发展的直接动力?(某省公开选拔党政领导干部考试公共科目试卷)
最新回复
(
0
)