工学
单选题阅读下列程序 X=0.618 WRITE（*，’（E12.4）’）X END 程序运行后显示结果是（）A.6180B6.180E-01C.0618E+01D.6180E+00
题目
.6180
6.180E-01
.0618E+01
.6180E+00
相似问题和答案
第1题：
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是
A．3
B．9
C．14
D．21
解析：本题应用了三重嵌套循环：①i=1时，j=1，k执行3次循环得到x的值为3：②i=2，j=1时，k执行3次循环得到x的值加3并覆盖原值，j=2时，k执行两次循环值加2；③依次，i=3时，j执行3次，其中k分别执行为3，2，1次，x的值分别加3，2，1；④最后得到x的值为14。
第2题：
MOIUH=N(5)+NdO)
WRITE( *，‘(2X，15)，)MQIUH END
FUNCTION N(K)
N=0
DOIO J=1,K N=N+J 10 CONTINUE RETURN END
程序运行后的结果是：
B. 85
C. 90
D. 70
答案:D
第3题：
（7）有下列程序： DefStr X_Z X="123" Y="456" Z="X+Y" PrintZ End 运行后，输出结果是。
【解析】由于“+”前后两个变量都为字符串变量，因此，“+”作为连接符将X和Y两个字符串连接起来，所以Z的值为“123456”。
第4题：
下列程序段：Dim x If x Then Print x Else Print x+1运行后，显示的结果是（）。
- A、1
- B、0
- C、-1
- D、出错
正确答案:A
第5题：
MQIUH=N(5)+N(10)
WRITE(*,’(2X,15)’)MQIUH
END
FUNCTION N(K)
N=0
DO 10 J=1,k
N=N+J
10 CONTINUE
RETURN
END
程序运行后的结果是：
（A）65 （B）85
（C）90 （D）70
第6题：
有如下程序： DefStr X-Z X="123" Y="456"， Z=X$+Y$ Print ZS End 运行后，输出结果是( )。
A．显示出错信息
B．123456
C．579
D．579
第7题：
INTEGER X(7)
DATA X/4，5，7，8，10，12，11/
DO 10 K=1，7
IF(MOD(X(K),2).NE.0)THEN
S=A+X(K)
N=N+1
END IF
10 CONTINUE
T=S/N
WRITE(*,20)S,T
20 FORMAT(2X,3F6，1)
END
程序运行后的输出结果是：
（A）12.0 7.7(B)47.0 6.7(C)34.0 8.5(D)57.0 11.4
第8题：
有如下程序： DefStr X-Z X="123'’ Y="456" Z=X$+Y$ Print Z$ End 运行后，输出的结果是( )。
A．显示出错结果
B．123456
C．579
D．579
解析：本题需要注意Defiype语句对用户定义类型中的元素不产生影响，因为这些元素必须显式声明。DefStrX-Z表示任何以X、Y、Z开头，未用Dim定义的变量均为字符串类型，而运算符“+”对于字符串而言将两个字符串合并，故Z的结果应该为“123456”。
第9题：
有程序：F（X，Y）=X／Y+XY=-2．0X=4．0X=1．0*F（Y，X）WRITE（*，*）XEND此程序的运行结果是：（）
- A、2.5
- B、-2.5
- C、2
- D、-2
正确答案:B
第10题：
有程序：INTEGERFF（X，Y）=X／Y+XA=-2．0B=4．0B=B+F（A，B）WRITE（*，20）B20FORMAT（1X，F4．1）END此程序的运行结果是：（）
- A、1.0
- B、1.5
- C、2.0
- D、3.0
正确答案:C