【单选题】

在Activate事件过程中，写入下面的程序：Prirate Sub Form_Activate() Dim SAs String，aAs String，bAs Stringa="*"：b="$"For i=1 To 4If i/2=Int(i/2) ThenS=String(Len(a)+i,b) ElseS=String(Len(a)+i,a) End IfPrint S：Next i End Sub运行程序后，显示的结果是()。

A、$$***$$$$*****
B．*$$**$$***$$$****$$$$
C．**$$$****$$$$$
D．$*$$**$$$***$$$$****