心理咨询与求助者商定的咨询目标不应该是()。

Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120

b p1(n As Integer) For i=n To 1 Step -1 x=String(i,"*") Print x Next i End Sub Private Sub Commandl_Click() P1(3) End Sub

A.*** ** *

B.* ** ***

C.* * *

D.******

rivate Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End SubA.10 B.14 C.15 D.120

窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是

Private Sub Command1_Click()

Dim a

a=Array(1,2,3,4,5)

For k=1 To 4

s=s+a(k)

Next

Print S

End Sub

A．10

B．14

C．15

D．120

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Command1_Click() Dim a a = Array(1,2,3,4,5) For k = 1 To4 s=s+a(k) Next Print S End Sub

A．10

B．14

C．15

D．120

下面程序运行后，单击命令按钮，输出的结果是【 】 Private Sub Commandl_Click() Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl，str2 For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(A) str2 =YAG(B) Print"strl"；str1;"str2="；str2 End Sub Function YAG (a()As Integer) Dim T，i％ t=1 For i=LBound(A)To UBound(A) t=t * a(i) Next i YAG =t End Function

单击按钮时，以下程序运行后的输出结果是 Private Sub Commandl_Click() Dim X As Integer，y As Integer，z As Integer x=1：y=2： Z=3 Call God(x，x，z) Print x；x；z Call God(x，y，y) Print X；y；y End Sub Private Sub God(x As Integer，y As Integer，z As Integer) x=3 * Z + 1 y=2 * Z z=x + y End Sub

A．6 6 12 7 11 11

B．8 5 10 5 11 11

C．9 6 12 9 10 15

D．8 10 10 5 9 10

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() a：InputBox("Enter the First Integer") b：InputBox("Enter the Second Inteeer") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是 ()

A．579

B．123

C．456

D．123456

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是()。

Private Sub p1(n As Integer)

For i=n To 1 Step-1

x=String(i,"*")

Print x

Next i

End Sub

Private Sub Command1_Click()

p1(3)

End SubA)

*B)C)D)

A．*** ** *

B．* ** ****

C．* * *

D．******

单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click() BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub

A．15

B．16

C．17

D．18