工学
单选题给定下列FORTRAN子程序如下： SUBROUTINE SUB（K，A） A=SQRT（K*K+1.0） END 下列调用语句中正确的是（）ACALL SUB（N，N）BCALL SUB（X，X）CCALL SUB（N，X*X）DCALL SUB（11，X）
题目
CALL SUB（N，N）
CALL SUB（X，X）
CALL SUB（N，X*X）
CALL SUB（11，X）
相似问题和答案
第1题：
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时，输出结果为【 】
1 2 311 3 1 21 解析：本题考查考生对数组虚实结合掌握的情况。事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j,k)，并且输出数据语句后有分号，因此只输出一行。
第2题：
以下程序的输出结果是【 】。
main()
{ int x=0；
sub(&x，8，1)；
printf(“%d\n”，x)；
}
sub(int *a，int n，int k)
{ if(k＜＝n)sub(a，n/2，2*k)；
*a+=k；
}
7 解析：在主函数中定义了一个变量x并赋初值0，然后执行函数调用语句，该语句的执行过程为sub(&x,8,1)调用sub(&a,4,2)，sub(&a,4,2)调用sub(&a,2,4)，sub(&a,2, 4)中由于24，所以if后面括号里的判断为假，递归结束，执行其后的*a+=k;语句此时 x=x+k=0+4=4，回退到上一层调用函数sub(&x,4,2)中，执行后面的语句，x=x+k= 4+2=6，再回推到最上一层调用函数sub(&x,8,1)执行后面的语句，x=x+k=6+1=7，所以最后输出7。
第3题：
有如下程序，该程序的执行结果是【 】。
Private Sub Command1_lick()
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
16
第4题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim k As IntegerPrivate Sub form_ Load() k = 15End SubPrivate Sub Command1_ Click()Static b As IntegerDim k As Integer k= k +1 b = b+1 Print k, bEnd Sub程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是______。
A．1 1
B．1 2
C．2 1
D．2 2
解析：本题首先定义了一个窗体级变量K，在窗体的Load事件代码中给K赋值150第一次单击命令按钮时，定义了一个静态变量b和一个局部变量k，注意这里的k不是窗体级变量，对它的修改不影响窗体级变量K，执行下面的两条赋值语句后，k的值为1，b的值为1，输出的第一行为1 1。第二次单击Command1，执行Click事件过程，注意此时变量b的值将是上一次退出时的值为1，而不是0，但局部变量k的值为0，执行下面的两条赋值语句后，k的值为1，b的值为2，所以输出的第二行为“1 2”。
第5题：
在窗体中添加一个名称为Cmd1的命令按钮，然后编写如下事件代码： Private Sub Cmd1_Click() a=125 If a＞60 Then k=1 ElseIf a＞70 Then k=2 ElseIf a＞80 Then k=3 ElseIf a＞90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。
A．1
B．2
C．3
D．4
解析：a的值为125，满足条件a＞60，则k值为1。
第6题：
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
41 解析：本题的循环体共要执行20次，m的最终值为1+2*20=41。
第7题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。
A．400
B．20
C．441
D．出错信息
解析：一维数组a的下标在1～20之间。而循环结束后k值为21，故产生下标越界的错误。
第8题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim aS，b$，c$，k％
a=”ABCD”
b=”123456”
c=””
k=1
Do While k<=Len(a) Or k<=Len(b)
If k<=Len(a)Then
c=c&Mid(a，k，1)
End If
If k<=Len(b)Then
c=c&Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是( )。
A．123456ABCD
B．ABCDl23456
C．D6C584A321
D．A182C3D456
解析：Mid函数用于提取字符串中的指定位数，函数调用格式为Mid(string，start[，length])，其中start为必要参数。为Long型，为被取出部分的首字符的位置。如果start超过string的字符数，Mid返回空串。length可选参数为返回的字符数，如果省略或length超过文本的字符数，将返回字符串中从start到尾端的所有字符。Len函数的作用是返回串的长度。本题中a串长4，b串长6，每次循环将a、b的第k个字符取出连在一起给串c，k从1开始，当k=5时，将b中k位置的字符依次插入串c中。
第9题：
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
11
第10题：
在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是
A．20
B．32
C．44
D．78
解析：第1次执行循环体，k=(0+2)×(0+2)+(0+2)=6，a=0+6=6；第2次执行循环体，k=(6+2)×(6+2)+(6+2)=72，a=6+72=78：第3次测试循环条件时，7270为假，终止循环。