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)``是什么意思``
最好是在每步的后面给点标注``我知道自己很白痴``但学不会就永远成白痴了``高手指教下吧``

买个VB书看，看完那一本书基础就差不多了

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

str$(i) 意思是把数字强制转换为 数字字符
看看书就知道了！

For i = 1 To 9
    Print Space(18 - i * 2);
    For j = 1 To i * 2 - 1
        Print Str(i);
    Next
    Print
Next
这样就可以达到你的效果了,不用写那么多