首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
admin
2019-05-14
38
问题
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数被称为水仙花数。如153=1
3
+5
3
+3
3
,所以153就是一个水仙花数)求平均值,并对该平均值截尾取整后显示在文本框txtResult中。
窗体中给出了所有控件(如图1-241所示)以及“读数”按钮的Click事件过程,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经给出的程序和已有的控件的属性,在结束程序运行之前,必须进行计算,且必须使用窗体右上角的“关闭”按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码:
Dim a(100) As Integer
Private Sub cmdRead_Click()
Dim k As Integer
Open App.Path & "\in5.dat" For
_
Input As #1
For k = 1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub cmdCal_Click()
’考生应完成的程序
End Sub
Private Sub Form_Unload(Cancel As
Integer)
Open App.Path & "\out5.dat" For
_
Output As #1
Print #1, txtResult.Text
Close #1
End Sub
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口指定位置编写以下代码: 参考代码: Dim sum As Integer Dim n As Integer Dim x As Integer Dim y As Integer Dim z As Integer For i = 1 To 100 x = Int(a(i) / 100) y = Int((a(i) - x * 100) / 10) z = a(i) - x * 100 - y * 10 If a(i) = x ^ 3 + y ^ 3 + z ^ 3 Then sum = sum + a(i) n = n + 1 End If Next txtResult.Text = Int(sum / n) 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按 <F5>运行程序,先单击“读数”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。
解析
转载请注明原文地址:https://kaotiyun.com/show/zTUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Picturel的图片框(PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为Imagel的图像框(Jmag
(1)在考生文件夹下有一个工程文件sit3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3.100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签,名称分别为L,abell和L,abel2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再画两个名称分别为Textl和Text2、初
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及名称为Linel和Line2的两条水平直线。请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为ShapeI的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求:①圆角矩形中填满绿色(颜色值为&
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul一1jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text
随机试题
下列哪一项与轴性近视无关
癔病患者感觉过敏或缺失不具备下列哪种特点
患者,女性,65岁,因患糖尿病10年而长期接受胰岛素治疗,尿糖基本控制在+~++。近期因劳累自测尿糖定性试验为+++,自行增加了12U胰岛素,1小时后突然感到心悸、饥饿、出冷汗,随即昏迷。对上述患者,应立即给予下列哪项处理措施
建造师执业资格注册有效期一般为( )年。
下列各项中,属于会计工作岗位的有()。
私募基金管理人管理不同类别私募基金的,应当坚持()原则;管理可能导致利益输送或者利益冲突的不同私募基金的,应当建立防范利益输送和利益冲突的机制。
根据我国法律的规定,设立外商投资企业,外方投资者以外币缴付出资,应当按照一定的标准折算成人民币或套算成约定的外币,该标准是()。
某小区有2013位业主,每天他们都要参加一次聚会就选举居委会主任进行讨论,候选人有甲、乙两人,每场聚会的人数规模是3或5人(可以有很多场)。若当场聚会支持某一方的占大多数,则其余人也改为支持这个人。在第三天聚会结束后进行的投票中,甲以全票当选,那么最开始支
Thenewlyelectedpresidenthaspledged$13milliontotheautomobileindustryforitssurvival.
(2011年单选2)甲是某运输公司的经理,为了抢运煤炭,甲亲自跟车督促驾驶。在驾驶员乙已连续驾驶10多个小时的情况下,甲仍强令乙继续驾驶。乙因过度疲劳,操作失当,驾驶中撞死路边一摆摊商贩。关于本案,下列说法中正确的是()。
最新回复
(
0
)