（14）下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 If x(k)>x(Max)Then End If Next k y=_______ Print Max,y End Sub

题目

（14）下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 If x(k)>x(Max)Then End If Next k y=_______ Print Max,y End Sub

相似考题

1.若有如下程序： SET TALK OFF INPUT TO X FOR i=1 TO 3 INPUT TO Y IF Y＞X X=Y ENDIF ENDFOR ?X RETURN 本程序的功能是( )。A．求3个数中的最大值B．求4个数中的最大值C．求3个数中的最小值D．求4个数中的最小值

2.五个数中，最小的是12，从第一个数起，每一个数都比前一个数大5，这五个数的平均数是多少?（ ）A．22B．22.5C．23D．23.5

3.下面程序的功能是找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容，将程序补充完整。Option Base 1Private Sub Form_Click0Dim xx = Array(57,-9,17,42,-31,46,11,8,6,-4,3,90)Max= 1For k = 2 To 10 Step 1If x(k)＞x(Max) Then______End IfNext ky=______Print Max, yEnd Sub

4.下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。Option Base 1Private SubForm_Cfick()Dim Xx=Array(23，-5,17,38，-31,46,11，8，5，-4)Max=1k=110 k=k+1ifx(k)＞x(max)then[13]End if

更多“(14)下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位 ”相关问题

  • 第1题：

    五个数中，最小的是12，从第二个数起，每一个数都比前一个数大5，这五个数的平均数是（ ）。

    A．22

    B．22．5

    C．23

    D．23．5


    正确答案：A
    由题意可知，这5个数分别为12、17、22、27、32，易知其平均数为22。

  • 第2题：

    请编写函数fun，其功能是：计算并输出给定10个数的方差：

    例如，给定的10个数为95．0、89．0、76．0、65．0、88．0、72．0、85．0、81．0、90．0、56．0，输出为s＝11．730729。

    注意：部分源程序在文件PROGl．C中。

    请勿改动主函数main和其他函数中的任何内容，仅在函数fun的花括号中填入你编写的若干语句。


    正确答案：
    解析：该程序功能是计算并输出给定10个数的方差。解题思路是，根据题干中给出的方差公式首先计算出x’的值，然后计算根号里面的值，最后求其平方根。

  • 第3题：

    求斐波那契（Fobonacci）数列的前40个数。这个数列有如下特点：第1、2个数均为1，从第3个数开始，每个数均是前两个数之和。问该数列的前40个数各是多少？ 提示：每行输出5个数据，每个数据输出宽度为12个字符。


    每一项等于前两项之和

  • 第4题：

    填空：

    （1）一个数的平方等于它本身，这个数是___________；一个数的平方根等于它本身，这个数是______；一个数的算术平方根等于它本身，这个数是_____________。

    （2）一个数的立方等于它本身，这个数是________________；一个数的立方根等于它本身，这个数是_______________。


    （1）一个数的平方等于它本身，这个数是0和1；一个数的平方根等于它本身，这个数是0；一个数的算术平方根等于它本身，这个数是0和1。

    （2）一个数的立方等于它本身，这个数是-1，0，1；一个数的立方根等于它本身，这个数是-1，0，1。


  • 第5题：

    请编写函数proc()，其功能是：计算并输出给定10个数的方差。

    例如，给定的10个数为88．0，89．5，54．0，78．5，89．0，63．0，85．7，83．0，77．0，83．0，则输出为S=11．195271。

    注意：部分源程序给出如下。

    请勿改动main()函数和其他函数中的任何内容，仅在函数proc()的花括号中填人所编写的若干语句。

    试题程序：


    正确答案：


    【解析】题目要求求方差，因此首先我们应通过循环求得其平均数，然后通过循环来求其平方差，最后求其方差，把方差返回到主函数中。

相关内容