首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999之间的整数读入到数组a中。 ②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大
(1)在考生文件夹下有一个工程文件sj3.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999之间的整数读入到数组a中。 ②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大
admin
2012-10-09
28
问题
(1)在考生文件夹下有一个工程文件sj3.vbp,其功能是:
①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999之间的整数读入到数组a中。
②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框Textl、Text.2中。(注:当一个数的值等于该数中的各位数字的立方和时,此数被称为水仙花数。如:所以153就是一个水仙花数)
在窗体文件中已经给出了全部控件(如图49—4所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须进行“计算”,并且必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sj4.vbp,在名称为。Forml的窗体上有两个标签与三个文本框,名称分别为Labell、Label2,Textl、Text2、Text3,其中三个文本框内空,两个标签的标题分别为“横坐标”、“纵坐标”。另设一命令按钮,名称为Commandl,标题为“到原点的距离”。编写相关程序,要求程序运行时在两个文本框中输入相应的点坐标,单击“到原点的距离”后,可以在Textl和Text2中显示该点的坐标,在Text3中显示该点到原点的距离。
注意:请去掉程序中的注释符“’”,把程序中的“?”改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1)本题主要是考查变量初值定义、If判断语句、For选择语句、Vat()函数、Fix()函数以及文件操作。按要求打开代码窗口,在指定位置编写如下代码: Dim i As Integer Dim max As Integer,rain As Integer max=-1 min=1000 For i=1 to 1000 If isnarc(a(i))Then’调用isnarc判断是否为水仙花数 If max<=a(i)Then max=a(i) If rain>=a(i)Then rain=a(i)求水仙花数中的最大值和最小值 End If Next i Textl=max Text2=min 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,Textl、Text2分别用于显示输入横坐标和纵坐标的值并显示出来,Text3用于显示该点到原点的距离。由于文本框的Text属性返回的是字符串,因此要用Val()函数进行转换。求两点间的距离公式在VB中的表示格式为:d=Sqr((x2-x1)2^+(y2-y1)^2),由于本题原点坐标为(0,0),自定义点的坐标为(a,b),代入公式即d=Sqr(a*a十b*b)。补充后的代码如下: Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim d AS Double a=Val(Textl.
Text
) ’横坐标为Textl输入的值 b=Val(Text2.
Text
) ’纵坐标为Text2输入的值 d=
Sqr(a*a+b*b)
’到原点的距离,Sqr为求平方根的函数 Text3.
Text
=d’在Text3中显示距离 End Sub 单击[*]按钮运行程序.并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/GDO0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系操作的特点是【】操作。
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是
数据库保护分为:安全性控制、【】、并发性控制和数据的恢复。
在窗体上画一个名称为、commonDidog1的通用对话框,一个名称为Command1的命令按钮。要求单击命令按钮时,打开一个保存文稿件的通用对话框。该窗口的标题为”Save",缺省文件名为”SaveFile",在“文件类型”栏中显示*.txt,则能够满足
一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFune的标准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:Forml中定义的过程:PrivmeSubfrmFunc
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 PrivateTypeAng KAsInteger S
在关系模型中,把数据看成一个二维表,每一个二维表称为一个【】。
下列程序段的执行结果为 a=95 Ifa>60Thendegree=1 Ifa>70Thendegree=2 Ifa>80Thendegree=3 Ifa>90Thendegree=4 Print"deg
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到的事件是
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
随机试题
从E-R模型向关系模型转换,一个m:n的联系转换成一个关系模式时,该关系模式的主键为______。
对放疗不敏感的肿瘤是
急性阑尾炎最常见的并发症为
炙甘草汤中,滋阴养血者是炙甘草汤中,温阳通脉者是
患者大便溏泻,完谷不化,畏寒肢冷,今又午后潮热,夜间盗汗,其病机是
中龋在X线片中洞底边界清楚的原因是
男性,65岁。急性下壁心肌梗死第2天,心电监测示二度工型房室传导阻滞,心室率50次/分,血压110/70mmHg。下列治疗应选
某建筑物总价值100万元,其中主体、设备、装修的价值分别占60%、25%、15%,经济耐用年限分别为55年、10年、5年,残值率假设均为零,则用直线法计算出的折旧额为6.59万元。()
施工过程中监理工程师对工序活动条件的监控,应着重抓好( )。
职业病的发病过程主要取决于()。
最新回复
(
0
)