网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单选题
阅读下列程序 A=3.5 CALL SUBA（A，A，A） WRITE（*，’（F4.1）’）A END SUBROUTINE SUBA（X，Y，Z） Y=Y-2.0 Z=Z+X END 程序运行的结果是（）
A
7.0
B
5.0
C
3.5
D
1.5
参考答案
参考解析
解析：
暂无解析
更多 “单选题阅读下列程序 A=3.5 CALL SUBA（A，A，A） WRITE（*，’（F4.1）’）A END SUBROUTINE SUBA（X，Y，Z） Y=Y-2.0 Z=Z+X END 程序运行的结果是（）A 7.0B 5.0C 3.5D 1.5” 相关考题
考题
单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End SubA．12 34B．2 34C．2 3D．12 3
考题
（28）下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5
考题
下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a，b)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5
考题
单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x＜6 Then call Text(x) End if x=x*2+1 Print x； End SubA．27 55B．11 35C．22 45D．24 51
考题
下列程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT 4 End Sub Private Sub BT(x As Integer) x=x*2+1 If x＜6 Then Call BT(x) End If x=x*2 Print x； End SubA．15B．16C．17D．18
考题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End SubA．08B．50 78C．450D．78 50
考题
单击命令按钮时，下列程序代码的执行结果为 Public Sub Procl(n As Integer,ByVal m As integer) n=n Mod 10 m＝m\10 End sub Private Sub Commandl_Click() Dim x AS Integer,y AS Integer x=12:y=24 Call Procl(x,y) Print x;y End subA．12 24B．2 24C．2 3D．12 2
考题
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End SubA．0B．3C．6D．9
考题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private SubA．10B．30C．40D．50
考题
单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End SubA．23 47B．10 36C．22 44D．24 50
考题
下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End SubA．dcbaB．abdcC．abcdD．dabc
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End SubA．15B．16C．17D．18
考题
阅读下列FORTRAN 程序：
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
考题
有程序：INTEGERFF（X，Y）=X／Y+XA=-2．0B=4．0B=B+F（A，B）WRITE（*，20）B20FORMAT（1X，F4．1）END此程序的运行结果是：（）A、1.0B、1.5C、2.0D、3.0
考题
单选题阅读下列程序 CHARACTER A*4，B*5，C*4 DATA A，B，C/’BIG’，’MIDDLE’，’SMALL’/ WRITE（*，20）A，B，C 20 FORMAT（1X，A2，A3，A4） END 程序运行结果是（）A
BIGMIDDLEB
*********C
BIGMIDSMAD
BIMIDSMAL
考题
单选题阅读下列FORTRAN程序: CHARACTER*10 A, B*6 DO 10 I=1,10 A(I:I)=' ' 10 COUNTINUE A(1:5)='ABCDE' B='FGHIJK' A(4:9)=B WRITE(*,100) A 100 FORMAT(1X,A) END 程序运行结果是（）A
ABCDEFGHIJB
ABCDEGHIJKC
ABCFGHIJKD
BCDEFGHIJK
考题
单选题阅读下列程序 LOGICAL L READ（*，*）A，B L=A.GT.B IF（L）THEN X=B+2*A ELSE X=B END IF WRITE（*，*）X END 使用键盘为上述程序输入两个初值4和3，其输出的X值是（）A
4.0B
3.0C
11.0D
10.0
考题
单选题阅读下列程序 X=0.618 WRITE（*，’（E12.4）’）X END 程序运行后显示结果是（）A
.6180B
6.180E-01C
.0618E+01D
.6180E+00
考题
单选题阅读下列程序 FUN（c，d）=a*c+b/d DATA a，b/1.0，1.0/ WRITE（*，’（F4.1）’） FUN（a，b）-FUN（b，a） END 程序运行结果是（）A
0.0B
4.0C
2.OD
3.O
考题
单选题阅读下列程序 K（X，Y）=X/Y+X A=-2.0 B=4.0 B=1.0+K（A，B） WRITE（*，10）B 10 FORMAT（1X，F4.1） END 程序运行结果是（）A
-1.0B
1.0C
2.0D
3.0
考题
填空题下列程序的运行结果是（）。 Program main implicit none integer ::a=1 integer ::b=2 call add ( a ) Call add ( b) Write(*,*) a , b Stop end Subroutine add (sum) Implicit none integer :: sum sum=sum+1 Return end
考题
单选题阅读下列FORTRAN程序： INTRINSIC SIN， COS WRITE（*，*）FUN（SIN，30.0）/FUN（COS，30.0） END FUNCTION FUN（F，X） X=X*3.14159/180 FUN=F（X） END 程序运行结果是（）A
sin30°的值B
cos30°的值C
tg30°的值D
ctg30°的值
考题
单选题阅读下列FORTRAN程序： DO I=4,2,-1 A=1.0 DO J=I,4,2 A=A+1.0 ENDDO ENDDO WRITE(*,*)A END 运行上述程序后，输出的A值为 （）A
5.0B
4.0C
3.0D
2.0
考题
单选题有程序：INTEGERFF（X，Y）=X／Y+XA=-2．0B=4．0B=B+F（A，B）WRITE（*，20）B20FORMAT（1X，F4．1）END此程序的运行结果是：（）A
1.0B
1.5C
2.0D
3.0
考题
单选题阅读下列FORTRAN程序： PI=3.14159265 WRITE（*，’（F7.4） ’）PI END 程序运行后输出结果是（）A
3.142B
3.1415C
0.31416D
3.1416
热门标签
最新试卷