有下列VB程序段：

Dim strA As String, strB As String

strA = "hongda"：strB = ""

For i = 1 To Len(strA) * 2

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

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)

End If

Next i

该程序段运行后，变量strB的值是（  ）

A、"jpfqic"

B、"qicqic"

C、"phbqic"

D、"qicoga"