设A是3阶矩阵,若Ax=0有通解k₁ξ₁+k₂ξ₂,且A的每行元素之和为a.问a为何值时,A可

窗体上有一个名为Commandl的命令按钮，并有下面的程序：

Private Sub Command1_Click()

Dim art(5)As Integer

For k=1 TO 5

arr(k)=k

Next k

prog art()

For k=1 To 5

Print alT(k)；

Next k

End sub

Sub prog(a()As Integer)

n=UBound(a)

For i=n To 2 step-1

For j=1 To n-1

if a(j)<a(j+1)Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Next i

End sub

程序运行时，单击命令按钮后显示的是

A．1 2 3 4 5

B．5 4 3 2 1

C．0 1 2 3 4

D．4 3 2 1 0

下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd Sub

A．*** ** ***

B．*＄*＄*＄

C．1*＄2*＄3*＄

D．＄＄＄＄＄＄＄＄＄

阅读下列程序。

Option Base 1

Private Sub Form. _Click()

Dim x(3,3)

For j=1 to 3

For k=l to 3

If j=k then x(j,k)=1

If j＜＞k then x(j,k)=k

Next k

Next i

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

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

下面程序运行后输出是

Private Sub Form_Click()

for i＝1 to 4

x＝1

for j＝1 to 3

x＝3

for k＝1 to 2

x＝x＋6

next k

next j

next i

print x

End Sub

A．7

B．15

C．157

D．538

下列程序运行后的输出结果是______。

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Next

Print Sum

End Sub

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *