运行以下程序,输出结果为()。s='a1b2c3d4' lst=[] n=len(s) for i in range(0,n,2): ls
运行以下程序,输出结果为()。s='a1b2c3d4' lst=[] n=len(s) for i in range(0,n,2): lst.append(s[i:i+2] ) print(lst[-3])
运行以下程序,输出结果为()。s='a1b2c3d4' lst=[] n=len(s) for i in range(0,n,2): lst.append(s[i:i+2] ) print(lst[-3])
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时,单击窗体Form1上的输出结果。
阅读以下程序,填写运行结果()。def f(n): s=str(n) result='' for i in range(0,len(s)): result=s[i]+result return result print(f(345))
A.通过编译,但不能连接
B.有语法错,不能通过编译
C.输出** **
D.输出## ##
下列程序执行后的输出结果为()。 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
阅读以下 FORTRAN 程序:
READ(* , *)X
IF(X , LE , 0)RHEN
Y=0.0
ELSEIF(X , LT , 5 , 0) , AND , (X , NE , 2 , 0)THEN
Y=1 / X
ELSEIF(X , LE , 10 , 0)THEN
Y=1 / (X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(* , *)Y
END
运行上述程序时,若由键盘输入: 2 ,则程序输出结果为 () 。
(A)0.0
(B)0.5
(C)0.25
(D)10.0
阅读下列FORTRAN程序: S=1.0 DO 100 K=3,1,-1 DO 100 N=-1,-3 100 S=2*S WRITE(*,*) S END 运行上述程序后,输出的S值为()。
A.1.0
B.8.0
C.512.0
D.4.0
A.9
B.10
C.15
D.24
A.0
B.100
C.10
D.11
阅读下列FORTRAN程序: S(X)=2*X*X-Y+1.0 DATA A,B,Y/3*2.0/ P=S(A)*S(B-A)4-S(Y)-S(B) WRITE(*,*) P END 上述程序运行后,输出的P值为()。
A.9.0
B.-9.0
C.7.0
D.-7.0