网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有程序：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
参考答案
更多 “有程序：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” 相关考题
考题
SET TALK OFFSTORE O TO X，YD0 WHILE.T.X=X+1Y=Y+XIF X=5EXITENDIFENDDO?X,YRETURN当程序执行到?x，Y命令时，X，Y的值分别是【 】、【 】。
考题
以下是一个竞赛评分程序。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(* , *)X
IF(X.LE.0) THEN
Y=0.0
ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THEN
Y= 1/X
ELSE IF (X.LE.10.0) THEN
Y=1/(X+2)
ELSE
Y = 10.0
END IF
WRITE(* , *)Y
END
上述程序运行时，由键盘输入2，则输出的结果为()。
A．0.5
B．0.25
C．10.0
D．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
考题
填空题离婚的程序有（）、诉讼程序。
热门标签
最新试卷
