下面程序的功能是找出给定的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
题目
下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。
Option Base 1
Private SubForm_Cfick()
Dim X
x=Array(23，-5,17,38，-31,46,11，8，5，-4)
Max=1
k=1
10 k=k+1
ifx(k)＞x(max)then
[13]
End if
相似考题
更多“下面程序的功能是找出给定的10个数中最大的一个数,最后输出这个数以及它在原来 10个数中的位置。 ”相关问题
-
第1题：
请编写函数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’的值，然后计算根号里面的值，最后求其平方根。
-
第2题：
请编写函数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题：
窗体上有一个名为Command1的命令按钮,并有如下程序: Private Command1_Click（) Dim a（10),x% For k=1 to 10 a（k)=Int（Rnd*90+10) x=x+a（k) Mod 2 Next k print x End Sub 程序运行后，单击命令按钮．输出结果是 。
A．10个数中奇数的个数
B．10个数中偶数的个数
C．10个数中奇数的累加和
D．10个数中偶数的累加和
Command1.FontBold＝true Command1.FontBold＝true 解析：本题考查有关字体属性的知识。窗体中控件的字体由一些有关字体的属性控制，比如FontName(字体名)、FontSize(字体大小)、FontBold(加粗)、Fomltalic (倾斜)、FontUnderline(下划线)等。 -
第4题：
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1Click（ ） Dim a(10)，x％ Fork=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print X End Sub 程序运行后，单击命令按钮，输出结果是（ ）。
A.10个数中奇数的个数
B.10个数中偶数的个数
C.10个数中奇数的累加和
D.10个数中偶数的累加和
正确答案：A
A。【解析】Mod运算是求余数的运算．被2除的余数只能是0或者1，X值就表示有多少个1相加，即在10个随机数中有多少个奇数。 -
第5题：
(30）窗体上有一个名为Command 1的命令按钮，并有如下程序：
Private Sub Command 1_Click()
Dim a(10)，x%
For k＝1To10
a(k)=lnt(Rnd*90＋10)
x＝x +a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是
A）10个数中奇数的个数
B）10个数中偶数的个数
C）10个数中奇数的累加和
D）10个数中偶数的累加和
正确答案：A