UC知道VB里输出一个数字金子塔
来源：百度知道 编辑：UC知道 时间：2024/05/05 00:04:50
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)``是什么意思``
最好是在每步的后面给点标注``我知道自己很白痴``但学不会就永远成白痴了``高手指教下吧``
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)``是什么意思``
最好是在每步的后面给点标注``我知道自己很白痴``但学不会就永远成白痴了``高手指教下吧``
dim i as integer '把i定义成短整型数字
dim j as integer '把j定义成短整型数字
dim m_str as string '把m_str定义成字符型数字
form1.cls '把窗体清空
for i=1 to step 1 '开始循环，这里缺少一个数，i从1循环到几？
m_str="" '把m_str设为空字符串
for j=9 TO i+1 step -1 '开始内层循环，j从9倒数到i+1
m_str=m_str+" " 'm_str在原有的基础上，右边再多一空格
next j '下一个j
for j=1 to 2*i-1 step 1 '重新开始内层循环
m_str =m_str+str$(i) 'm_str在原有的基础上，右边再加是上数字i
nextj '下一个j
for j=9 to i +1 step -1 '重新开始内层循环
m_str= m_str+ " " 'm_str在原有的基础上，右边再多一空格
next j '下一个j。这三个内层循环的的作用是使m_str变成若干空格＋若干数字＋若干空格的形状。并且m_str的长度是不变的，即数字多了，相应的空格就少了。
form1.print m_str '每一个i,就把m_sr从窗体上输出
next i '下一个i
end sub