单选题有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）A2.5和1.0B-2.5和1.0C2.5和-1.0D-2.5和-1.0
单选题
有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）
A
2.5和1.0
B
-2.5和1.0
C
2.5和-1.0
D
-2.5和-1.0
参考解析
解析：
当输2．5时，执行ELSE后面的WRITE语句，而第二个IF语句不执行，x的值为2．5；当输入-1．0时，执行第一个IF语句后面的语句L=．FALSE．，而后执行第二个IF语句中的WRITE语句输入-x的值，应为1．0。
相关考题：
SET TALK OFFSTORE O TO X，YD0 WHILE.T.X=X+1Y=Y+XIF X=5EXITENDIFENDDO?X,YRETURN当程序执行到?x，Y命令时，X，Y的值分别是【 】、【 】。
下列程序段的执行结果为( )。 a=95 if a＞60ThenI=1 if a＞70Thenl=2 if a＞80Thenl=3 if a＞90ThenI=4 Print"I="；IA．I=1B．I=2C．I=3D．I=4
以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)，请填空补充完整。Private Sub Form_Click()Dim Max as Integer,Min as IntegerDial i as Integer,x as Integer,s as IntegerDim p as SingleMax=0Min=10For i=1 To 8x=Val (InputBox("请输入分数："))If 【 】 Then Max=xIf 【 】 Then Min=xs=s+xNext is= 【 】p=s/6MsgBox"最后得分："PEnd Sub
【程序】SET TALK OFFS＝0I＝1DO WHILE I＜4ACCEPT “请输入字符串：”TO XIF“A” ＄ XS＝S+1ENDIFI＝I+1 ENDDO? SRETURN运行时输入：“abcd”、“aBCD”，输出S的值为 ______。A．3B．2C．1D．0
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
阅读下列FORTRAN77程序：READ(* , *)XIF(X.LE.0) THENY=0.0ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THENY= 1/XELSE IF (X.LE.10.0) THENY=1/(X+2)ELSEY = 10.0END IFWRITE(* , *)YEND上述程序运行时，由键盘输入2，则输出的结果为()。A．0.5B．0.25C．10.0D．0.0
有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）A、2.5和1.0B、-2.5和1.0C、2.5和-1.0D、-2.5和-1.0
填空题离婚的程序有（）、诉讼程序。