vb编程事例

dim r as string,i as integer
for i=1 to 9 step 2
r=string(10-i,"*")+space(1)+string(i,"*")
print r
next i

搞笑一下~~

呵呵

Private Sub Command1_Click()
Print "********* * "
Print "******* ***"
Print "***** *****"
Print "*** *******"
Print "* ********* "
End Sub

楼下的接~~