更多"阅读下面程序: INTEGER Q(3,4) DATA Q/4*-1,"的相关试题:
[单项选择]阅读下面程序:
INTEGER Q(3,4)
DATA Q/4* -1,4* -2,4* -3/
S=0
DO 10 K=1,3
10 S=S+Q(K,K+1)
DO 20 K=4,2,-1
20 S=S-Q(K-1,K)
WRITE(*,*)S
END
上述程序运行后,输出的S值为()。
A. 0.0
B. -1.0
C. -2.0
D. -6.0
[填空题]阅读下面程序
Private Function a (load As Integer)As Single
If loud<20 then
money=lnad/2
else
money=20+load
end if
a=money
End Function
Private Sub Form_Click( )
Dim load As Integer,fee As Single
Load=InputBox("请输入一个数:")
Fee=a(load)
Print fee
End Sub
运行后的输出结果是 【12】 。
[填空题]阅读下面程序。
Private Function a(load As Integer) As Single
If load < 20 then
money = load / 2
else
money = 20 + load
end if
a = money
End Function
Private Sub Form_Click( )
Dim load As Integer, fee AS Single
Load = InputBox ("请输入一个数: ")
Fee = a(load)
Print fee
End Sub
输入20,运行后的输出结果是 【13】 。
[填空题]阅读下面程序。
Private Function a(load As Integer) As Single
If load < 20 then
money = load / 2
else
money = 20 + load
end if
a = money
End Function
Private Sub Form_Click( )
Dim load As Integer, fee AS Single
Load = InputBox ("请输入一个数: ")
Fee = a(load)
Print fee
End Sub
输入20,运行后的输出结果是 【13】 。
[单项选择]阅读下面的程序; Function Func(x As Integer,y As Integer)As Integer Dim n As Integer Do While n < = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click( ) Dim x As Integet, y As Integer Dim n As Integer,z As Integer x=1 y=1 For n = 1 To 6 z=Func(x,y) Next n Print z End Sub 程序运行后,单击命令按钮,输出的结果为.
A. 16
B. 21
C. 26
D. 31
[单项选择]阅读下列程序:
Function func(n As Integer)As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1)* i
Next i
func = Sum
End Function.
Private Sub Command1_Click ( )
Dim a As Integer
a= 5
s = func (A)
Print s
End Sub
程序运行后,单击命令按钮,输出的结果为
A) 80 B) 60 C) 70 D) 15
[单项选择]阅读以下FORTRAN程序:
INTEGER X(7)
DATA X/10,20,45,70,80,15,14/
M=X(1)
DO 10 I=2.7
IF(X(1).GT.M)THEN
M=X(1)
K=I
END IF
10 CONTINUE
N=X(K)
X(K)=X(1)
X(I)=N
WRITE(*,100)(X(I),I=1,7)
100 FORMAT(2X,7I3)
END
程序运行的结果是()。
A. 10 20 45 70 80 15 14
B. 14 20 45 70 80 15 10
C. 80 20 45 70 10 15 14
D. 20 45 70 80 15 14 10
[单项选择]阅读程序:
Function fac(ByVal n As Integer)As Integer
Dim temp As Integer
temp=1
For i%=1 To n
temp=temp*i%
Next i%
fac=temp
End Function
Private Sub Form_Click( )
Dim nsum As Integer
nsum=1
For i%=2 To 4
nsum=nsum+fac(i%)
Next i%
Print nsum
End Sub
程序运行后,单击窗体,输出结果是( )。
A. 35
B. 31
C. 33
D. 37
[单项选择]下面程序的输出为( )。
INTEGER A(10)
DATA A/1,2,3,4,5,6,7,8,9,10/
DO 10 K=1,10
M=A(K)+1
A. END5
B. 6
C. 7
D. 8
[填空题]阅读下面程序
public class OperatorsAndExpressions
String conditionalExpression(int score)
String result;
//如果score超过60分,则结果是passed,否则是doesn’t pass
result=(score>=60)"passed":"doesn’t pass":
System.out.println(result);
return result;
public static void main(String args[])
OperatorsAndExpressions OperAndExp=new OperatorsAndExpressions( );
//条件表达式
OperAndExp.conditionalExpression(65);
程序的执行结果是______。
[单项选择]阅读下面程序
public class ExampleStringBuffer
public static void main(String[] args)
StringBuffer sb=new StringBuffer("test");
System.out.println("buffer="+sb);
System.out.println("length="+sb.length( ));
程序运行结果中,在“length=”后输出的值是
A. 10
B. 4
C. 20
D. 30
[单项选择]阅读下面程序
public class OperatorsAndExpressions{
void equalsMethodl( ){
String s1=new String("how are you");
String s2=new String("how are you");
System.out.println(s1==s2);
}
public static void main(String args[]){
OperatorsAndExpressionsOperAndExp=new OperatorsAndExpressions( );
//用于复合类型数据的“==”运算符
OperAndExp.equalsMethod1( );
}
}
程序运行结果是【 】
A. =
B. TRUE
C. FALSE
D. equal
[单项选择]阅读下面程序
publicclass Operators AndExpressions
voidequalsMethodl( )
Strings1=newString("howareyou");
Strings2=newString("howareyou");
System.out.println(s1==s2);
publicstaticvoidmain(Stringargs[])
OperatorsAndExpressionsOperAndExp=newOperatorsAndExpressions
( );
//用于复合类型数据的“==”运算符
OperAndExp.equalsMethodl( );
程序运行结果是( )。
A. ==
B. true
C. false
D. equal