有下列程序段，其中存在着1个错误，发生在______语句。 Const pi = 3.14! Dim i%, s! i = 4.6 pi = 3.14159 If i Then s = pi * i * i Else s = 1 MsgBox（s)A．Const pi = 3.14!B．i = 4.6C．pi = 3.14159D．If i Then s = pi * i * i Else s = 1
有下列程序段，其中存在着1个错误，发生在______语句。 Const pi = 3.14! Dim i%, s! i = 4.6 pi = 3.14159 If i Then s = pi * i * i Else s = 1 MsgBox（s)
A．Const pi = 3.14!
B．i = 4.6
C．pi = 3.14159
D．If i Then s = pi * i * i Else s = 1
参考答案和解析
C
相关考题：
离散型随机变量的概率分布具有的两个性质是()。A、Pi>=0和∑Pi=0(i=1,2,……)B、Pi=0和∑Pi>0(i=1,2,……)C、Pi>=0和∑Pi=1(i=1,2,……)D、Pi=0和∑Pi=1(i=1,2,……)
（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1="；s1；"s2"；s2； End Sub Function Factorial(a()As Integer) Dim t#,i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next i Factorial=t End Factorial A.s1=360 s2=24 B.s1=24 s2=360 C.s1=24 s2=24 D.s1=360 s2=360
（25）下列程序段的输出结果是 Dim M(5,5),S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i,j)=i+j S(i)=S(i)+M(i,j) Next j Next i For Each x In S Print x； Next xA.20 23 24 35 40 B.20 25 30 35 40 C.20 23 25 35 40 D.20 25 35 40 45
下面运行程序后,单击命令按钮,输出的结果是 【 】 。Private Sub Command1_Click()Dim a%(1 To 5),i%, s#For i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i=LBound(a) To UBound(a)t=t a(i)NextFun=tEnd Function
如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1 Click（ ） Dim n As Long Dim flag As Boolean n=InputBox("输入一个正整数") S=Trim(Str(n)) For i=2 To Len(s) If Mid(s，i-1，1)Mid(S，i，1)Then Exit For Next i If i=Len(S)Then flag=True Else flag=False If flag Then Print n；"是降序数" Else Print n；"不是降序数" End If End Sub 运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（ ）。A.If i=Len(s)+1 Then flag=False Else flag=TrueB.If i=Len(s)+1 Then flag=True Else flag=FalseC.If i=Len(s)-1 Then flag=False Else flag=TrueD.If i=Len(s)-1 Then flag=True Else flag=False
以下程序段运行后消息框的输出结果为______。s＝"Access"Dim str As StringFor i＝1 To Len(s)str＝UCase(Mid(S,I,I))+strNext iMsgBox str
若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (A) s2 = Factorial (B) Print "s1="; s1; "s2="; s2 End Sub Function Factorial(a() As Integer) Dim t#, i% t=1 For i = LBound(A)To UBound(A) t = t * a(i) Next i Factorial = t End FunctionA．s1=360 s2=24B．s1=24 s2=360C．s1=24 s2=24D．s1=360 s2=360
下列程序段的输出结果为( )。 Dim M(5,5), S(5) For i = 1 To 5 S(i) = 0 For j = 1 To 5 M(i, j) = i + j S(i) = S(i) + M(i, j) Next j Next i For Each x In S Print x; Next xA．2023 24 3540B．2025 30 3540C．2023 25 35 40D．2025 354045
有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd FunctionA．s1=360 s2=24B．s1=24 s2=360C．s1=24 s2=24D．s1=360 s2=360
请完成下列Java程序：计算下列级数之和，直到该项之绝对值小于0.001为止。S=1/1! -1/2! +1/3! -1/4! +注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填入适当的语句。程序运行结果如下：i=1 s=1.0i=2 s=0.5i=3 s=0.6666666666666666i=4 s=0.625i=5 s=0.6333333333333333i=6 s=0.6319444444444444public class exl3_2{public static void main(Stfing[] args){double s=0.0,sign=-1.0,t,f=1.0；for(int i=1;;i++){f=f*i；__________；t=sign/f；if(__________)break；s=s+t；System.out.prinfln("i="+i+"s="+s)；}}}
程序段如下： Dim i As Integer，s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s，i执行的结果是( )。A．10 0B．9 1C．10 1D．9 0
有下列程序，程序运行后单击命令按钮，则输出的结果是( )。Private Sub Command1_Click()Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#For i=1 To 4a(i)=iNext iFor i=3 To 6b(i)=iNext is1=Factorial(A)s2=Factorial(B)Print"s1=";s1;"s2=";s2End SubFunction Factorial(a() As Integer)Dim t#,i%t=1For i=LBound(A)To UBound(A)t=t*a(i)Next iFactorial=tEnd FunctionA．s1=360 s2=24B．s1=24 s2=360C．s1=24 s2=24D．s1=360 s2=360
当运行以下程序时，从键盘输入AhaMA(空格)Aha#includemain( ){ char s[80],c='a';int i=0;scanf("%s",s);while(s[i]!='\n'){ if(s[i]==c)s[i]-32;else if(s[i]==c-32)s[i]=s[i]+32;i++;}puts(s);}A．ahaMaB．AbAMaC．AhAMa[空格]ahAD．ahAMa[空格]ahA
下列程序段运行后消息框的输出结果为______。s＝"Access"Dim Str As StringFor i＝1 To Len(s)str＝UCase(Mid(S,i,1) ) +strNext IMsgBox str
下列程序段的输出结果为( )。 Dim M(5, 5), S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i, j)=i+j S(i)=S(i)+M(i, j) Next j Next i For Each x In S Print x; Next xA．20 23 24 35 40B．20 25 30 35 40C．20 23 25 35 40D．20 25 35 40 45
当运行以下程序时,从键盘输入AhaMA(空格)AhaCR,则下面程序的运行结果是#includestdio.hmain(){ char s[80],c=′a′;int i=0;scanf("%s",s);while(s[i]!=′{ if(s[i]==c)s[i]-32;else if(s[i]==c-32)s[i]=s[i]+32;i++; }puts(s); }A．ahaMaB．AbAMaC．AhAMa[空格]ahAD．ahAMa[空格]ahA
单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End SubA．abcdefB．afbecdC．fedcbaD．defabc
下面程序的运行结果是______。 Dim a，i，s a=Array("6"，"5"，"a"，"b"，"2"，"1") s=0 i=0 Dw While a(i)＞="0" And a(i)＜="9" s=10* s+a(i)-"0" Print s i=i+2 LoopA．12ba56B．652C．6D．62
程序段如下； s=0 For I=5 to -1 step -2 S=s+I Next I Print I 语句S=S+I执行的次数和最后I的值分别为( )。A．3,-1B．4,-1C．4,-3D．0, 5
下列程序段的输出结果为( )。 Dim M(S, S), S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i, j)=i+j S(i)=S(i)+M(i, j) Next j Next i For Each x In S Print x; Next xA．20 23 24 35 40B．20 25 30 35 40C．20 23 25 35 40D．20 25 35 40 45
下面运行程序后，单击命令按钮，输出的结果是【 】。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2For i=1 To 4a(i)=iNextFor i=3 To 6b(i)=iNexts1.= Fun(a)s2 =Fun(b)Print "s1 ="; s1; "s2 ="; s2End SubFunction Fun( a( ) As Integer)Dim t, i%t=1For i = LBound(A)To UBound(a)t=t * a(i)NextFun=tEnd Function
以下能正确计算1×2×3×…×10的程序段是（）。A、do{i=1；s=1；B、do{i=1；s=0；s=s*i；s=s*i；i++；i++；}while（i=10）；}while（i=10）；C、i=1；s=1；D、i=1；s=0；do{s=s*i；do{s=s*i；i++；i++；}while（i=10）；}while（i=10）；
求整数1至10的和并存入变量s，下列语句中错误的是（）。A、s=0；for（i=1；i=10；i++）s+=i；B、s=0；i=1；for（；i=10；i++）s=s+i；C、for（i=1，s=0；i=10；s+=i，i=i+1）；D、for（i=1；s=0；i=10；i++）s=s+i；
下列语句中与语句while（1）{if（i=100）break；s+=i；i++；}功能相同的是（）。A、for（；i100；i++）s=s+i；B、for（；i100；i++；s=s+i）；C、for（；i=100；i++）s+=i；D、for（；i=100；i++；s=s+i）；
若变量已正确定义，以下不能正确计算1+2+3+4+5的程序段是（）。A、i=1；s=1；do{s=s+i；i++；}while（i5）；B、i=0；s=0；do{i++；s=s+i；}while（i5）；C、i=1；s=0；do{s=s+i；i++；}while（i6）；D、i=1；s=0；do{s=s+i；i++；}while（i=5）；
单选题以下程序段中，与其他三个功能不同的程序段是（ ）。As=0;i=1;for(;;){s+=i; i++; if(i=10) break;}Bs=0,i=1;for(;i=10;){s+=i; i++;}Cs=0;for(i=1;i=10;i++){s+=i;}Dfor(s=0,i=1;i=10;s+=i,i++);
填空题我(wǒ)觉(jué)得(de)黑(hēi)色(sè)的(de)比(bǐ)白(bái)色(sè)的(de)漂(piào)亮(liang)。____