Question

VB中要求实现单击窗体时能够在对话框上显示5行5列的平行四边形，显示图形所用字符为*,如下图

*****
*****
*****
*****
*****

Answer 1

private sub form_click()
dim i as integer, j as integer

for i=1 to 5
for j=1 to 5
print space(j-1)&"*****"
next
next
end sub