执行以下程序段 　　Dim x As Integer, i As Integer 　　x=0 　　For i = 20 To 1 Step -2 　　 x = x + i\ 5 　　Next I 　　后，x的值为:

执行以下程序段

Dim x As Integer，i As Integer

x＝0

For i=20 To 1 Step-2 x＝x+i\5

Next i

后,x的值为

A．16

B．17

C．18

D．19

执行下列程序段后，x的值为______。

Dim x As Integer, i As Integer

x=0

For i=20 To 1 Step -2

x=x +i\5

Next i

A、16

B、17

C、18

D、19

A、16

B、17

C、18

D、19

下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。

Private Sub MoveRight(x()As Integer)

Dim i As Integer

Dim j As Integer

Dim k As Integer

i＝UBound(x)

j＝x(i)

For k＝i To【 】 Step—1

【 】

Next k

x(LBound(x))＝j

End Sub

Private Sub Command1_Click()

Dim a(10) As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i＝0 To 10

a(i)＝i

Next i

j＝Val(Text1.Text)

k=0

Do

k＝k+1

Call MoveRight(a)

Loop Until k＝j

For i=0 To 10

Print a(i);

Next i

End Sub

下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。

Private Sub MoveRight (x() As Integer)

Dim i As Integer

Dim j As Integer

Dim k As Integer

i = UBound (x)

j = x(i)

For k = i To【 】Step -1

【 】

Next k

x(LBeund(x)) = j

End Sub

Private Sub Command1_click()

Dim a(10) As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i = 0 To 10

a(i) = i

Next i

j = Val(TextText)

k=0

Do

k=k+1

Call MoveRight(A)

Loop Until k = j

For i = 0 To 10

Print a(i);

Next i

End Sub

下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。

Private Sub Moveright(x()As Integer)

Dim i As Integer

Dim j As Integer

Dim k As Integer

i=UBound(x)

j=x(i)

For k=i To ______ Step-1

_______

Next k

x(LBound(x))=j

End Sub

Private Sub Command1_Click()

Dim a(10)As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i=0 To 10

a(i)=i

Next i

j=Val(Text1.Text)

k=0

Do

k=k+1

Call MoveRight(a)

Loop Until k=j

For i=0 To 10

Print a(i)；

Next i

End Sub

执行以下程序段

Dim i As Integer, x As Integer

x = 0

For i = 20 To 1 Step -2

x = x + i \ 5

Next

Print x

后，x的值为（ ）。

A．16

B．17

C．18

D．19

有如下程序(其中chr(13)表示换行)。以下关于程序功能的叙述中，正确的是(  )。

  Dim x As Integer, a As Integer, b As Integer, i As Integer

  For i=1 T0 10

   x=InputBox("请输入一个整数：")

   If Int(x/2)=x/2 Then

    a=a+1

   Else

    b=b+1

   End If

  Next i

  MsgBox"a="&a&chr(13) &"b="&b

  A．对输入的10个数求累加和

  B．对输入的10个数分别统计奇数和偶数的累加和  

  C．对输入的10个数分别统计奇数和偶数的个数，其中奇数的个数保存在变量a中

  D．对输入的10个数分别统计奇数和偶数的个数，其中偶数的个数保存在变量a中

设有如下通用过程： Public Sub Fun(a( )，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr( )，n) Textl.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．10

B．15

C．25

D．24