更多"下列程序的功能是：当x100时，没有意义。请填空。Private Su"的相关试题:
[填空题]下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。
Private Sub Command1_Click（ ）
Dim x As Single
x=InputBox("请输入x的值!")
【 】
Case Is<50
y=0．8 * x
Case 50 To 100
y=0．7 * x
【 】
Print"输入的数据出界!"
End Select
Print x，y
End Sub
[填空题]下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，
没有意义。请填空。
Private Sub Command1_Click（ ）
Dim x As Single
x=InputBox("请输入x的值!")
【10】 Case Is<50
y=0．8 * x
Case 50 To 100
y=0．7 * x
【11】 Print"输入的数据出界!"
End Select
Print x，y
End Sub
[填空题]下面程序的功能是调用sub函数计算数组a中字符串的长度，请填空。
sub(char s[])
int n;
for(n=0; 【18】 n++);
return 【19】 ；
main（ ）
char*a;int k;
gets(a);
【20】
printf("%d",k);
[填空题]下面程序的功能是：计算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);
}
[填空题]下面程序的功能是统计字符串中“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
[填空题]下面程序的功能是统计字符串中“广的个数，请填空。
Sub COU( )
a$="Beijing University of Technology"
Dim n AS Integer
n=Len(a$)
For i=1 To n
b$=【 】
If 【 】 Then x=x+1
Next i
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 ______ Then x=x+1
Next
Print "x=";x
End Sub
[填空题]下面程序的功能是两个整数进行交换，请填空。
sub(int * x，int *y)
{ 【19】
z=*x； *x= *y； *y=z；
return； }
main（ ）
{int m，n，*t1，*t2；
scanf("%d，%d"，&m，&n)；
t1＝&m；t2＝&n；
【20】
printf("%d，%d/n"，m，n)； }
