UC知道vb金字塔关于空格怎么打
来源：百度知道 编辑：UC知道 时间：2024/05/23 18:40:37
只差这一步了，请指教
问题2，将所有数字换成*怎么写
For x = 1 To 9
For i = 1 To x
Print Trim(i);
Next i
For j = x - 1 To 1 Step -1
Print Trim(j);
Next j
Print
Next x
对不起刚才没说清楚 我的意思是要形成金字塔的形状还要写一步关于空格的程序怎么输入
谢谢
问题2，将所有数字换成*怎么写
For x = 1 To 9
For i = 1 To x
Print Trim(i);
Next i
For j = x - 1 To 1 Step -1
Print Trim(j);
Next j
Next x
对不起刚才没说清楚 我的意思是要形成金字塔的形状还要写一步关于空格的程序怎么输入
谢谢
print " "
或者 print chr(空格的ASCII码)
100%你的需要
空格：print " "或者print vbspa
要打*把print trim(i), print trim(j)换成print * 就行啦
Private Sub Command1_Click()
For x = 1 To 9
'=============================加入代码
For k = 8 To x Step -1
Print " ";
Next k
'=======================
For i = 1 To x
Print Trim(i);
Next i
For j = x - 1 To 1 Step -1
Print Trim(j);
Next j
Print
Next x
End Sub
换成*号的
Private Sub Command1_Click()
For x = 1 To 9
'=============================加入代码
For k = 8 To x Step -1
Print " ";
Next k
'=======================
For i = 1 To x
Print "*";
Next i
For j = x - 1 To 1 Step -1
Print "*";
Next j
Print
Next x
End Sub