n = 6

d(1) = 23: d(2) = 31: d(3) = 19: d(4) = 33: d(5) =58: d(6) = 28

k = Abs(d(2) - d(1))

For i = 3 To n

 If Abs(d(i) - d(i - 1)) > k Then k = Abs(d(i) - d(i - 1))

Next i

Text1.Text = Str(k)

上述程序段执行后，文本框Text1显示的内容是（  ）

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 = 1

For p=1 to 50

   If  p Mod 3 = 0  Then  a = a + 1

Next p