单选题阅读下列程序 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
单选题
阅读下列程序 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
参考解析
解析：
暂无解析
相关考题：
单击命令按钮时，下列程序代码的执行结果为 ______。 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+J10 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
单选题阅读下列程序 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.0B1.0C2.0D3.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此程序的运行结果是：（）A1.0B1.5C2.0D3.0
单选题阅读下列FORTRAN程序： PI=3.14159265 WRITE（*，’（F7.4） ’）PI END 程序运行后输出结果是（）A 3.142B 3.1415C 0.31416D 3.1416