题目内容
（请给出正确答案）
下面程序的功能是调用sub函数计算数组a中字符串的长度，请填空。 sub(char s[]) { int n; for(n=0;【 】n++); return 【 】； } main() { char*a;int k; gets(a); 【 】 printf("%d",k);
如果结果不匹配，请 联系老师 获取答案
更多“下面程序的功能是调用sub函数计算数组a中字符串的长度，请填…”相关的问题
设有程序： Option Base 1 Pfivme Sub Command1_Click() Dim arr1，Max as Integer arr1=Array(12，435，76，24，78，54，866，43) 【 】=arr1(1) For i=1 To 8 If arr1(i)＞MaxThen【 】 Next i Print"最大值是："；Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
设有如下程序： Option Base 1 Pfivme Sub Command1_Click() Dim arr1 Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min=【 】 For i=2 TO 8 If arr1(i)＜Min Then【 】 Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【 】=arrl(1) For i=1 To 8 If arrl(i)＞Max Then【 】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
下面是程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：
.jpg)
程序不完整，请填空，将程序的补充完整 Option Explicit Dim x As Single Dim y As Single Dim z As Single Private Sub Command1_Click() x=Val(InputBox("x=") ) y=Val(InputBox("y=") ) Private Sub Command2_Click() If【 】Then z=x ^ 2 + y ^ 2 ElseIf【 】Then z=x ^ 2-2 * y^2 【 】 z=y ^ 2 - 3 * x ^ 2 End If Form1．Print "当x，y 的值为："； x，y Form1．Print "f(x，y) 的值为:"： z End sub
以下程序调用随机函数得到N个20以内的整数放在s数组中。函数fun的功能是找出s数组中的最大数(不止一个)所在下标传回主函数进行输出，并把最大值作为函数值返回，请填空。 define N 30 man() { int s[N]，d[N]，i，k，m； for(i＝0,i＜N；i++){s[i]＝rand()%20；printf("%3d"，s[i])；} m＝fun(【 】)； printf("m=%d\n"，m)； printf(”The index ;\n")； for(i=0；i＜k；i++)printf("%4d"，d[i])； printf("\n\n")； } fun(int*w，int*d，int * k) { int i，j，m=0，v； for(i=0；i＜N；i++) if(w[i]＞w[m])【 】； v＝w[m]； for(i=0，j=0;i＜N；i++) if(w[i]＝＝v)【 】； *k＝【 】； return【 】； }
下面程序通过函数average计算数组中各元素的平均值，请填空。
float average(int a[],int n)
{int i;
float avg=0.0;
for(i=0;i＜n;j++)avg==avg+______;
avg=______;
return avg;}
main()
{int i,a[5]=12,4,6,8,10};
float mean;
mean=average(a,5);
printf("mean=%f\n",mean);}
以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 Sub RecArea(L，W) Dim S As Double S=L*W MsgBox"Total Area is"& Str(S) End Sub Private Sub Command1_Click() Dim M，N M=InputBox("What is the L？") M=Val(M) 【 】 N=Val(N) 【 】 End Sub
