给定下列FORTRAN子程序如下：   SUBROUTINE SUB（K，A）   A=SQRT（K*K+1.0）  

阅读下列程序。

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

运行程序时，输出结果为【 】

以下程序的输出结果是【 】。

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；

}

有如下程序，该程序的执行结果是【 】。

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

在窗体上画一个名称为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

在窗体中添加一个名称为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

阅读以下程序：

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

单击窗体程序的执行结果是【 】。

在窗体上画一个名称为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．出错信息

在窗体上画一个命令按钮，其名称为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

下列程序的运行机结果是【 】。

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

在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： 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