更多"下面程序的功能是：计算1～10之间奇数之和及偶数之和。 Dim a，"的相关试题:
[填空题]下面程序的功能是：计算1～10之间奇数之和及偶数之和。
Dim a，b，c，i
a=0
c=0
For i=0 To 10 Step 2
a=i+a
【10】
c=b+c
Next i
Print "偶数之和="；a
Print"奇数之和=" ;c-11
[填空题]下面程序的功能是：计算1～20之间的奇数之和与偶数之和，请填空使程序功能完整。
#include＜stdio.h＞
main（ ）
{int a=0,b=0,c=0,i;
for(i=0;i＜=20;i+=2)
{ a+=i;
______;
c+=b;
}
printf("偶数之和=%d/n",a);
printf("奇数之和=%d/n",c-21);
}
[填空题]下面程序的功能是：计算1～10之间的奇数之和与偶数之和，请填空。
#include ＜stdio.h＞
main( )
{ int a,b,c,i;
a=c=0;
for(i=0;i＜=10;i+=2)
{ a+=i;
______;
c+=b;}
printf("偶数之和=%d/n",a);
printf("奇数之和=%d/n",c-11);}
[填空题]下列程序段用于计算1到20之间奇数之和与偶数之和。请填空。
x = 0:z = 0
For i = 0 To 20 Step 2
x = x + i
y = i + 1
z = y + z
Next i
【5】
Print "偶数和="; x
Print "奇数和="; z
[填空题]下面程序的功能是：计算1～10之间的奇数之和与偶数之和，请填空。
#include＜stdio.h＞
main（ ）
int a，b，c，i；
a=C=0；
for(i=0；i＜=10；i+=2)
a+=i；
______；
c+=b；
printf("偶数之和=%d/n"，a)；
printf("奇数之和=%d/n"，c-11)；
[填空题]下列程序段用于计算1到20之间奇数之和与偶数之和。请填空。
x = 0:z = 0
For i = 0 To 20 Step 2
x = x + i
y = i + 1
z = y + z
Next i
【5】
Print "偶数和="; x
Print "奇数和="; z
[填空题]下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x，最后输出x平方根与 y平方根的乘积。请在画线处填上适当的内容使程序完整。
Private Sub Form_Click（ ）
a=Array(3，6，8，11，64，13，24，9，42，35，22)
y=Fun1(a)
print y
End Sub
Private Function Fun1(b)
x=0：y=0
for k=0 to 10
If 【9】 Mod 2=0 then
x=x+b(x)
else
y=y+b(x)
End If
Next
Fun1=Sqr(x)*Sqr(y)
End Function
[填空题]程序的功能是计算1～100之间的奇数和与偶数和。
main（ ）
intsum1=0，sum2=0，a；
for(a=1；a＜=100；a++)
if(a%2=0)sum1+ =a；
else sum2+ =a；
printf("%d，%d"，sum1，sum2)；
错误：______
改正：______
[填空题]程序的功能是计算1～100之间的奇数和与偶数和。 main（ ） {intsum1=0，sum2=0，a； for(a=1；a＜=100；a++) if(a%2=0)sum1+ =a； else sum2+ =a； printf("%d，%d"，sum1，sum2)； } 错误：______ 改正：______
[单项选择]下面程序是计算1+2+3+……+n值，此程序处划线处应填：
Dim sum as long,I as integer,n as integer
Sum=0 n=val(inputbox(“输入n的值”))
For i=1 to n
______
Next Iprint sum
A. sum=sum+i
B. n=n+i
C. sum=sum+1
D. n=n+1
[填空题]下面的程序要计算1+2+…+10,请补充完整。其中s是单精度类型的变量。
Dim x as Integer, s as Single
s=0
For x=1 to 10
s= 【15】
Next x
[填空题]下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
[填空题]下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
