更多"阅读下列FORTRAN77程序：DIMENSIONJA（3），JB（3"的相关试题:
[单项选择]阅读程序：
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
[填空题]
阅读程序：
Option Base1
Private Sub Form_Click( )
Dim a(3)As Integer
Print“输入的数据是：”；
For i＝1 To 3
a(i)=InputBox(“输人数据”)
Print a(i)；
Next
Print
If a(1) t=a(1)
a(1)=a(2)
a(2)= 【8】
End If
If a(2)>a(3) Then
m=a(2)
Else If a(1)>a(3)Then
m= 【9】
Else
m= 【10】
End If
Print“中间数是：”；m
End Sub
程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。[*]
[单项选择]阅读程序：
Option Base 1
Dim arr（ ）As Integer
Private Sub Form_Click（ ）
Dim i As Integer,j As Integer
ReDim arr(3,21
For i=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For i=3 To 4
arr(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为( )。
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序：
Private Sub Command1_Click（ ）
Dim arr
Dim i As Integer
arr=Array(0,1,2,3,4,5,6,7,8,9,10)
For i=0 To 2
Print arr(7-i)；
Next
End Sub
程序运行后，窗体上显示的是______。
A. 8 7 6
B. 7 6 5
C. 6 5 4
D. 5 4 3
[单项选择]请阅读程序：
Option Base 1
Private Sub Form_Click（ ）
Dim Arr(4,4)As Integer
For i=1 To 4
Forj=1 To 4
Arr(i,j)=(i-1)*2+j
Nextj
Nexti
Fori=3 To 4
For j=3 To 4
Print Arr(j,i)；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是______。
A. 5 7
B. 6 8
C. 7 9
D. 8 10
[单项选择]阅读下列程序
PublicclassTestimplementsRunnable
Phvate int x=0；
Private int y=O；
boolean flag=true；
Publicstaticvoidmain(string[]rgs)
Test r=newTest（ ）；
Theadt1=newThead(r)；
Theadt2=newThead(r)；
t1.start（ ）；
t2.start（ ）；
Publicvoidrun（ ）
While(nag)
X++；
y++；
system,out.println(“(”+x_“，”+y+”)”)；
if(x＞=10)
flag=false；
下列对程序运行结果描述的选项中，正确的是（）。
A. 每行的(x,y)中，可能有x≠y；每一对(x,y)值都出现两次。
B. 每行的(x,y)中，可能有x≠y；每一对(x,y)值仅出现一次。
C. 每行的(x,y)中，可能有x=y 每一对(x,y)值都出现两次。
D. 每行的(x,y)中，可能有x=y；每一对(x,y)值都出现一次。
[简答题]
在COMET型计算机上可以使用试卷上所附的CASL汇编语言，阅读程序说明和CASL程序，把应填入―处的语句写在答卷的对应栏内
[程序4说明]
本程序将16位无符号二进制数转换为5位十进制数，转换结果用ASCⅡ码表示，并从高位至低位依次存放在首地址为BTASC的连续5个内存单元中。待转换的16位无符号二进制数存放在DATA内存单元中。
[程序4]
START
PRUGBC LD GR0，DATA
LEA GR1，0
LEA GR3，48
LOOP1 CPL GR0，WDT，GR1
JP2 LOOP2
ST GR3，BTASC，GR1
LEA GR1，1，GR1
LEA GR2，-4，GR1
JN2 LOOP1
(1)
LOOP2 LEA GR2，48
LOOP3 CPL GR0，WDT，GR1
JMI NEXT
(2)
LEA GR2，1，GR2
JMP LOOP3
NEXT (3)
LEA GR1，1，GR1
LEA GR2，-4，GR1
JNZ LOOP2
LAST (4) ；处理个位数
(5)
EXIT
C48 DC 48
WDT DC 10000
DC 1000
DC 100
DC 10
BTASC DS 5
DATA DC #FA59H
END
[单项选择]在会议上，由参与人员阅读程序，利用测试数据人工运行程序，对输出结果进行审查，以达到测试的目的，这种测试方法是______。
A. 软件审查
B. 代码走查
C. 技术评审
D. 代码审查
[单项选择]阅读程序：
Function Fun(a As Integer)
Static C
b=0:b=b+2:c=c+2
Fun=a*b*c
End Function
Private Sub Command1_Click（ ）
Dim a As Integer
a=2
For i=1 To 2
Print Fun(A)：
Next
End Sub
运行上面的程序，单击命令按钮，输出结果为( )。
A. 8 16
B. 9 18
C. 10 20
D. 7 14
[单项选择]请阅读下面程序
publicclassThreadTest
publicstaticvoidmain(Stringargs[])throwsException
inti=0；
Hellot=newHello（ ）；
______，
while(true)
System.out.println("GoodMoming"+i++)；
if(i==2&&t.isAlive（ ）)
System.out.println("MainwaitingforHello!")；
t.join（ ）；//等待t运行结束
if(i==5)break；
classHelloextendsThread
inti；
publicvoidrun（ ）
while(true)
System.out.println("Hello"+i++)；
if(i==5)break；
为使该程序正确执行， 下划线处的语句应是( )。
A. sleep()
B. yield()
C. interrupt()
D. start()
[单项选择]请阅读程序：
Private Sub Form_Click（ ）
m=1
For i=4 To 1 Step-1
Print Str(m);
m=m+1
For j=1 To i
Print"*";
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )
A. 1 * * * *
B. 4 * * * *
C. * * * *
D. *
[单项选择]阅读程序：
Private Sub Form_Click（ ）
a=0
For j=1 To 15
a=a+j Mod 3
Nextj
Print a
End Sub
程序运行后，单击窗体，输出结果是( )
A. 105
B. 1
C. 120
D. 15
[单项选择]请阅读程序：
Sub subP(b（ ）As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click（ ）
Dim a(1 To 4)As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a（ ）
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是( )
A. 2
B. 5
C. 10
D. 出错
[填空题]
请阅读下列程序代码，然后将程序的执行结果补充完整。
程序代码：
public class throwsException{
static void Proc(int sel)
throws ArithmeticException,ArrayIndexOutOfBoundsException{
System．out．println("In Situation"+sel)；
if(sel==0){
System．out．println("no Exception caught")；
return；
}else if(sel==1){
int iArray[]=new int[4]；
iArray[1]=3；
}
}
public static void main(String args[]){
try{
Proc(0)；
Proc(1)
}catch(ArrayIndexOutOfBoundsException e){
System．out．println("Catch"+e)；
}finally{
System．out．println("in Proc finally")；
}
}
}
执行结果：
In、Situation 0
no Exception caught
（）
in Proc finally
[单项选择]阅读下面程序
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
[单项选择]阅读下面程序
public class VariableUse
public static void main(String[] arqs)
int a；
if(a==8)
int b=9；
System.out.println("a="+
A. ；
B. ；
