Private Sub Command1_Click()
  Dim s As Double
  Dim i As Integer
  s = 5
  i = 1
  Do While i < 6
    i = i + 2
    s = s + i
  Loop
  Text1.Text = s
End Sub
程序运行后，单击命令按钮，在文件框Text1中的输出结果是（   ）。
A、13 B、20
C、11 D、18