下列程序的输出结果为()。 S1=”1”:S2=”2”:SI=Val(S1)+Val(S2):S2=Val(”12”) If S1S2 Then P in
下列程序的输出结果为()。 S1=”1”:S2=”2”:SI=Val(S1)+Val(S2):S2=Val(”12”) If S1S2 Then P int S1-S2 Else Print S2-S1
A.-9
B.9
C.-12
D.0
下列程序的输出结果为()。 S1=”1”:S2=”2”:SI=Val(S1)+Val(S2):S2=Val(”12”) If S1S2 Then P int S1-S2 Else Print S2-S1
A.-9
B.9
C.-12
D.0
下列程序段的输出结果为______。
Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer
N=4
ForI=1 To N
S1(I)=I
L=N+i-I
S2(I)=L
NextI
S3(5)=0
ForK=1 To N
S3(K)=S1(K)*S2(K)
S3(5)=S3(5)+S3(K)
NextK
PrintS1(3)=S1(5);S1(2)
PrintS2(4)=S3(
有下列程序段,单击命令按钮执行程序后,输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)>0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A.148
B.40
C.-40
D.3.7
有下列程序段,单击命令按钮执行程序后,输出结果为()。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23,-5,17,38,-31,46,11,8,5,-4) s1=0 s2=0 For k=1 To 10 If(x(k)>0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A.148
B.40
C.-40
D.3.7
有下列程序,程序运行后单击命令按钮,则输出的结果为()。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 Function
A.s1=360 s2=24
B.s1=24 s2=360
C.s1=24 s2=24
D.s1=360 s2=360
若输入“abcdef”“abdef”,下述程序的输出结果为()。 #include<stdio.h> #include<string.h> main { int n; char s1[20],s2[20],*p1,*p2; scanf("%s",s1); scanf("%S",s2); p1=s1; p2=s2; n=strcmp(p1,p2); printf("Vood\n",n); }
A. -1
B.0
C."abcdef"
D."abdef"
下列程序执行后的输出结果为()。 CHARACTER *6 S S='ABCDEF CALL SS(S) END SUBROUTINE SS(S1) CHARACTER S1*3 WRITE(*,*) S1 END
A.ABC
B.BC
C.CDE
D.DEF
若有以下程序,当程序运行后,单击命令按钮,则输出的结果为()。 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 Function
A.s1=360 s2=24
B.s1=24 s2=360
C.s1=24 s2=24
D.s1=360 s2=360
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!