单选题 以下程序的输出结果是(    )。
   Dim i As Integer,j As Integer,k As Integer
     i=1:k=5:j=1
     Do While i＜=k*j
        i=i+1
     Loop
     MsgBox i  
   A．3    B．4    C．5 D．6