首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
在考生文件夹下有一个工程文件vbsj5.vbp,其功能是:①单击“读数”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a 中;②单击“计算”按钮,则对这100个数中的水仙花数(当一个数的值等于该数中各位数字的立方和时,此数
admin
2019-05-14
95
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Textl中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。在给出的窗体文件中已经有了全部控件,但程
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“鼠标光标形状”的窗体上画一个名称为Textl的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框巾时,鼠标光标为箭头(Arrow
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“显示记录”的窗体上画一个名称为Text1的文本框,其初始内容为空;再画一个名称为Commandl的命令按钮数组(下标从0开始,有4个按钮,其对
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上画一个复选框数组,名称为CHl,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容:为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别:勾Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为T
(1)在名称为Forml的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObi,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdide、cmdCopy,标题分别为“显示”、“隐藏”、“复
请根据以下各小题的要求设计VisuaIBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框,名称为Textl,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图3—16
随机试题
妊娠初期,恶心呕吐,呕吐清涎,口淡无味,神疲思睡,舌淡,苔白润,脉缓滑无力,治疗首选方剂是:
背景资料:某水闸项目经理单位批准的施工进度网络图(单位:天)如下图所示,合同约定:工期提前奖励标准为10000元/天,逾期违约金标准10000元/天。事件一:基坑开挖后,发现地质情况与业主提供的资料不符,需要进行处理,致使
进出口货物收发货人自己能办理本单位进出口货物的报关业务,也能代理其他单位报关。()
为获取利益或减少损失为目的,利用资金、信息等优势或滥用职权操纵市场,影响证券市场价格,制造证券市场假象
“中国旅行社”于()年独立挂牌成立,是我国近代旅游开始的标志。
运动过程中,下列能源物质的供能顺序是()。
在管制过程中,人民警察可以采取必要手段强制驱散,并对拒不服从的人员()。
以下哪本书是我国古代的文学评论作品?()
在捕获或声明异常时,应注意选择适当的异常类,选择适当的地方处理,是在方法内处理还是用【】子句传递给调用栈的上层。
InJanuary2009,duringthefirstweeksofasix-monthstayattheChildren’sHospitalofPhiladelphiaforleukemia(白血病)treatme
最新回复
(
0
)