版权声明 关于本站 在线留言 登陆管理 个人博客 |
『辰桦网络』. All Rights Reserved Station construction time: on April 4, 2006 |
显示内容如下:
de
defg
defghi
defghijk
defghijklm
程序源码
Private Sub Command1_Click()
Dim k, j As Integer
For k = 1 To 5
Print Space(5 - k);
For j = 1 To k * 2 - i
Print Chr(Asc("c") + j);
Next j
Print
Next k
End Sub