vb数字金字塔1 121 12321一直到9
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/17 00:56:36
vb数字金字塔1 121 12321一直到9
For i = 1 To 9
For j = 1 To i
Print j;
Next j
For j = i - 1 To 1 Step -1
Print j;
Next j
Print这个代码怎么改能变如图
Next i
For i = 1 To 9
For j = 1 To i
Print j;
Next j
For j = i - 1 To 1 Step -1
Print j;
Next j
Print这个代码怎么改能变如图
Next i
![vb数字金字塔1 121 12321一直到9](/uploads/image/z/15954982-70-2.jpg?t=vb%E6%95%B0%E5%AD%97%E9%87%91%E5%AD%97%E5%A1%941+121+12321%E4%B8%80%E7%9B%B4%E5%88%B09)
自己看图,是不是这样,我发了两个小时才调好的,我也才学,代码如下:
Private Sub Form_Click()
Dim a(1 To 5) As Integer
For j = 1 To 5
a(j) = j
Next j
For i = 1 To 5
Print Tab(30 - i * 3);
For j = 1 To 2 * i - 1
If j > i Then
Print a(2 * i - j);
Else
Print a(j);
End If
Next j
Next i
End Sub
![](http://img.wesiedu.com/upload/5/ff/5ff26f57892e488d367a189d7b8e4236.jpg)
Private Sub Form_Click()
Dim a(1 To 5) As Integer
For j = 1 To 5
a(j) = j
Next j
For i = 1 To 5
Print Tab(30 - i * 3);
For j = 1 To 2 * i - 1
If j > i Then
Print a(2 * i - j);
Else
Print a(j);
End If
Next j
Next i
End Sub
![](http://img.wesiedu.com/upload/5/ff/5ff26f57892e488d367a189d7b8e4236.jpg)
VB数字倒金字塔程序 输入1-9之间的数字,形成以下倒金字塔
VB中数字金字塔 样式为:1 121 12321 1234321 以此类推,请问这个程序该怎么设计
C语言,数字金字塔 ,形式是1 22 333 4444 55555 一直可以到9个9.可以控制输出的行数
求VB代码_数字金字塔
vfp数字金字塔的程序 1 121 12321
求用VB程序解决~生成数字金字塔,要求一个等腰三角形金字塔尖朝下,另一个朝上,中间数字为1,向两个方向递推增加.最多到数
数字金字塔12 23 3 34 4 4 4..一直到n ,n由我们输入!用C++编程!
vB l中 用 WHILE 来做 121 12321 1234321 金字塔求答!急要
⑩以后一直到50带圈数字1
VB 从1到500所有自然数中不含数字4的自然数共有多少个
VB计算圆周率近似值 π/4=1-1/3+1/5+.+1/i一直到i
VB怎样选连续选两个数字隔一个数字再连选两个数字,比如0到10,我选124578或是0,1,3,4,6,7,9,10