结果:**$$$****$$$$$
a$ = "*":b$ = "$"
For i = 1 To 4
If i Mod 2 = 0 Then 'mod为取余,也就是i=2或i=4时表达式成立,1、3不成立
x$ = String(Len(a$) + i,b$)'string()函数用于生成字符串,len()函数求字符串长度len(a$)=1
Else '成立时i为2,就生成1+2=3个$,再成立时i为4,生成5个$
x$ = String(Len(a$) + i,a$)’这里生成2个*,3个*,原理同上.
End If
Debug.Print x$; ‘这里的分号表示不换行,连接打印
Next