编程：循环的运用

Private Sub Form_click()
h = 65
a = ""
vtime = 1
For i = 1 To 26
For j = 1 To vtime
a = a + Chr(h)
Next
a = a + vbCrLf
vtime = vtime + 2
h = h + 1
Next
MsgBox a
End Sub

s什么环境?

for i=1 to 行数
for j=1 to i
print asc(96+i) 'A的ASCII码好象是97，忘了
next j
'换行代码
next i

for(i=1;I<行数 ,i+=2)
{for(j=1 ;j<=i ;j++)
printf("%c",(96+i));
printf("\n\r");
}