vb题: 使用二重循环打出如下图形
使用二重循环打出如下图形
*
***
*****
*******
*********
***********
*************
***********
*********
*******
*****
***
*
图不对阿,算了,大家不用做了
dim i ,j as int
for i=1 to 13
Print Spc(n \ abs(12-i)); ////打出abs(12-i)个空格
Print String(12-abs(i-12), "*"); ///打出12-abs(i-12)个*号
next
Print Spc(n \ abs(12-i));
Print String(12-abs(i-12), "*");
这两个函数是向楼上学的.
for i=1 to 13
Print Spc(n \ abs(12-i)); ////打出abs(12-i)个空格
Print String(12-abs(i-12), "*"); ///打出12-abs(i-12)个*号
next
Print Spc(n \ abs(12-i));
Print String(12-abs(i-12), "*");
这两个函数是向楼上学的.
温馨提示：内容为网友见解，仅供参考
第1个回答 2007-07-15
是不是这个图:
Private Sub Command1_Click()
Dim x As Integer
Const n = 13
x = 1
For i = 1 To n
Print Spc(n \ 2 - x + 1);
Print String(2 * x - 1, "*");
If i <= n \ 2 Then
x = x + 1
Else
x = x - 1
End If
Print
Next i
End Sub
Private Sub Command1_Click()
Dim x As Integer
Const n = 13
x = 1
For i = 1 To n
Print Spc(n \ 2 - x + 1);
Print String(2 * x - 1, "*");
If i <= n \ 2 Then
x = x + 1
Else
x = x - 1
End If
Next i
End Sub
相似回答
