以下4个语句中，输出逻辑值为“True”的是（）

A.A*B=0 and A+BO

B.(A=0 or B=0)and(A0 or B0)

C.not(A=0 And B=0)and(A=0 or B=0)

D.A*B=0 and(A=0 or B=0)

执行下面的程序段，x的值为【 】。

Private Sub Command1_Click()

For i=1 To 9

a=a+i

Next

x=Val(i)

MsgBox x

End Sub

下列程序的执行结果是______。

PrivateFunctionP(NASInteger)

Fori=1 To N

SUM=SUM+i

Nexti

P=SUM

End Function

Privte Sub Commandl_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S

End Sub

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下代码：

Option Babe 1

Private Sub Commandl_Click()

Dim Arr

Art=Array(43，68，-25，65，-78，12，-79，43，-94，72)

pos*0

neg=0

For k=1 To 10

IfArt(k)>0 Then

【 】

Else

【 】

End If

Next k

Print pos，neg

End Sub

• 以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

A.0

B.1

C. 1.5

D.出错