dim i as integer
dim j as integer
dim m_str as string
form1.cls
for i=1 to step 1
 m_str=""
 for j=9 TO i+1 step -1
  m_str=m_str+" "
  next j
for j=1 to 2*i-1 step 1
  m_str =m_str+str$(i)
nextj
for j=9 to i +1 step -1
  m_str= m_str+ " "
next j
form1.print m_str
next i
end sub
  说实话``死活是看不明白`能不能帮我详细解释下呢``尤其是这个地方str$(i)``是什么意思``
最好是在每步的后面给点标注``我知道自己很白痴``但学不会就永远成白痴了``高手指教下吧``

大哥
这个是例题``就是看不明白才发上来