Question

vb题: 使用二重循环打出如下图形(2) 在线急等

使用二重循环打出如下图形
*
***
*****
*******
*********
***********

谢鸟
图不对,算了,大家不用做了

Answer 1

dim i as int
for i=1 to 11
Print Spc(n \ abs(6-i)); ////打出abs(6-i)个空格
Print String(6-abs(6-i), "*"); ///打出6-abs(6-i)个*号
print chr(10) & chr(13) //换行
next
(以上.是工作单位要人的作法)
dim i ,j as int
for i=1 to 11
print spc(7-abs(6-i))
print //换行.
for j=1 to 6-abs(6-i)
print "*"
next
next
(以上是有中国特色垃圾教育代码)
5 1
4 2
3 3
2 4
1 5
2 4
3 3
4 2
5 1

按以上这组数来想.
共有11组.
所以.for i=1 to 11
生成.
1
2
3
4
5
6
7
8
9
10
11
怎么让它们变成
5 1
4 2
3 3
2 4
1 5
0 6
1 5
2 4
3 3
4 2
5 1
呢?.负数!中间值.6-(i=1 to 11)=
5
4
3
2
1
0
-1
-2
-3
-4
-5

Answer 2

Private Sub Command1_Click()

Const n = 6 '总行数

For i = 1 To n
Print Spc(n - i); '行前空格
Print String(2 * i - 1, "*"); '星号
Print '换行
Next i

End Sub

?