程序运行后，单击命令，依次在输入对话框中输入5、4、3、2、1、-1，则输出的结果为（　　　）

（A）2                    （B）3                        （C）14                      （D）15

7．       在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Command1_Click( )

  s = 0

  For i =1 To 15

x = 2 * i -1

If x Mod 3 =0 Then s = s + 1

                Next i

                Label1.Caption = s

            End Sub

程序运行后，单击命令按钮，则标签中显示的内容是（　　　）

（A）1                    （B）5                        （C）27                      （D）45

8．       在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click( )

  a = Text1.Text

  Select Case n

    Case 1 To 20

x = 10

Case 2,4,6

  x = 20

Case Is < 10

  x = 30

Case 10

  x = 40

End Select

Text2.Text = x

            End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（　　　）

（A）10                  （B）20               （C）30                      （D）40

9．       有如下程序：

            a = 10

            b = 4

            For j = 1 To 20 Step -2

                a = a + 5

                b = b + 4

            Next j

            Print a;b

运行后，输出的结果是（　　　）

（A）10　4             （B）60　24              （C）110　44            （D）55　40

10．   设有如下程序：

            Private Sub Command1_Click( )

                Dim sum As Double, x As Double

                sum = 0

                n = 0

                For i = 1 To 5

                   x = n / i

                   n = n + 1