2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp，其功能是： ①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的100个0～999之间的整数读入到数组a中。 ②单击“计算”按钮，则找出这100个整数中的所有水仙花数，并将它们的最大

(1)在考生文件夹下有一个工程文件sj3．vbp，其功能是： ①单击“读数据”按钮，则将考生文件夹下in3．dat文件中的100个0～999之间的整数读入到数组a中。 ②单击“计算”按钮，则找出这100个整数中的所有水仙花数，并将它们的最大

admin2012-10-09  47
问题 (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://kaotiyun.com/show/C3hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)