网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

下面程序的功能是找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容,将程序补充完整。

Option Base 1

Private Sub Form_Click0

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


参考答案

更多 “ 下面程序的功能是找出给定的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 ” 相关考题
考题 若有如下程序: 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个数中的最小值

考题 下面程序的功能是找出给定的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个数中的位置。请填空。 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

考题 请编写函数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的花括号中填入你编写的若干语句。

考题 给定程序MODII.C中,函数fun的功能是判断整数n是否是”完数”。当一个数的因子之和恰好等于这个数本身时,就称这个数为”完数”。例如:6的因子包括1、2、3,而6=1+2+3,所以6是完数。如果是完数,函数返回值为1,否则函数返回值为0。数组a中存放的是找到的因子,变量k中存放的是因子的个数。请改正函数fun中指定部位的错误,使它能得出正确的结果。注意:不要改动main函数,不得增行或删行,也不得更改程序的结构。试题程序:

考题 请编写函数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()的花括号中填人所编写的若干语句。试题程序:

考题 下面程序的功能是:从输入的正整数中选3个数进行输出,要求这些数都是2的倍数,请填空。

考题 一个数如果恰好等于它的因子之和,这个数就称为“完数”。例如,6的因子为1、2、3,而6=1+2+3,因此6是“完数”,编写程序找出1000以内的所有完数,并按下面格式输出其因子:6 its factors are: 1 2 3

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