描述变量概率分布的指标中不包括（）。 A．期望值 B．方差 C．标准差 D．相关系数

下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub

A．1

B．12

C．11

D．32

运行下列程序：

Private Sub Form_Click()

Dim sum As Integer

Dim i As Integer

sum = 0

For i =12.4 To3.1 Step -3.8

sum = sum + i

Next i

Debug.Print sum

End Sub

单击窗体后，则在立即窗口上输出结果是()。

A.15

B.- 0.7

C.24

D.0

运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.5

B.1 2 3 4 5

C.19

D.7

有人编写了如下程序：

Private Sub Form_Click()

Dim s As Integer，x As Integer

s=0

x=0

Do While s=10000

x=x+1

s=s+x^2

Loop

Pdnt s

End Sub

上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是

A．把x=0改为x=1

B．把Do While s=10000改为Do While s<=10000

C．把Do While s=10000改为Do While s>10000

D．交换x=x+l和s=s+x^2的位置

有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0

B．20 -1

C．10 True

D．10 False

运行下列程序：

Private Sub Form_Click()

Dim sum As Double, i As Integer

For i = 1 To 20

If i Mod 5 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.50

B.100

C.4

D.5050

运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.5

B.1 2 3 4 5

C.19

D.7

运行下列程序：

Private Sub Form_Click()

Dim x As Integer, y As String, z As String

y = "12345"

For x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.1

B.11111

C.55555

D.12345

运行下列程序：

Private Sub Form_Click()

a = 32: b = 5

Do

a = a / 2

b = b + 1

Loop While b< 10

Print a

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.1

B.2

C.5

D.11