首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
admin
2019-05-14
86
问题
在考生文件夹下有一个工程文件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中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
数据库系统的核心是()。
(1)在考生目录下有一个工程文件sit3.vbp,窗体上有一个圆和一条直线(直线的名称为Linel)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为“开始”、“停止”;还有一个名为Timer1的计时器。程序运行时
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海
在考生文件夹下有一个工程文件vbsi5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Forml的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“计算保存”(如图3.42所示)。程序运行后,如果单击“读入数
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Text1的文本框,其高、宽分别为400、2000。运行后的窗体如图3.78所示。请在属性框中设置适当的属性满足以下要求:①Te
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“鼠标光标形状”的窗体上画一个名称为Textl的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框巾时,鼠标光标为箭头(Arrow
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Textl的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arr
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Labell、标题为“回文的个数为”的标签和一个名称为Textl,初始值为空的文本框,如图3一15所示。程序功能如下:①单击“读数据”按
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容:为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别:勾Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为T
随机试题
Doyouknowanyotherforeignlanguages______French?
当胸闷痛,甚则引及肩背,短气喘息不得卧,应诊断为:
男性,24岁,患支气管扩张,突然一次咯血700ml。病人烦躁不安,面色苍白,皮肤湿冷。血压110/94mmHg,脉搏98次/分。应判断为
依据行政诉讼的有关规定,下列哪一证据材料在原告不能自行收集,但能够提供确切线索时,可以申请人民法院调取?()
下列溶液混合,属于缓冲溶液的是()。[2011年真题]
按照城镇土地使用税暂行条例的规定,下列表述不正确的是()。
在资本主义社会,资本家占有绝大多数生产资料,工人占有少量生产资料。()
试全面比较连续分配和离散分配方式。
选秀
计算
最新回复
(
0
)