1 222 33333 4444444 555555555 金字塔形状的 VF啊 怎么编写啊 新手啊

答:有1116种,望采纳谢谢!

4 =4*1+4*11+4*111+...=4*(1+11+111+...)以此类推

For i = 1 To 4
Print Tab(5 - i);
For j = 1 To 2 * i - 1
Print i & "";
Next j
Print
Next i

两个都是一斤,肯定是一样重啦.

心灵——
心灵是一方广袤的天空,它包容着世间的一切；心灵是一片宁静的湖水,偶尔也会泛起阵阵涟漪；心灵是一块皑皑的雪原,它辉映出一个缤纷的世界.
痛苦——
痛苦是黑暗中的摸索,前进的路途中满是坎坷；痛苦是无人理解的悲哀,无助的面对一切挫折；痛苦是心灵最深的折磨,无泪且无法直言；痛苦是天生没有的表情,是烦恼中的恶魔.
愚蠢——
愚蠢是一种天生的无奈,是一种后天的懒惰,是一颗自己种下的恶果,是一条好果实中的蛀虫.
谎言——
谎言是一只心灵的蛀虫,将人的心蛀得面目全非；谎言是一个深深的泥潭,让人深陷其中无法自拔；谎言是一个无尽的黑洞,让人坠入罪恶的深渊万劫不复.
阴险——
阴险,是一条披着羊皮的狼,干着不见天日的勾当；阴险是善良的公敌,嫉妒的朋友；阴险是一座心灵的冰山,让人透过清澈感到的是阵阵的寒意.
自私——
自私是一面镜子,镜子里永远只看得到自己；自私是一块布匹,蒙住了自己的眼睛,看不见别人的痛楚；自私是一层玻璃,看上去透明,却始终隔开了彼此的距离.
1.爱心：爱心是一片照射在冬日的阳光,使贫病交迫的人感到人间的温暖；爱心是一泓出现在沙漠里的泉水,使濒临绝境的人重新看到生活的希望；爱心是一首飘荡在夜空的歌谣,使孤苦无依的人获得心灵的慰藉.
2.美：静物是凝固的美,动景是流动的美；直线是流畅的美,曲线是婉转的美；喧闹的城市是繁华的美,宁静的村庄是淡雅的美.生活中处处都有美,只要你有一双发现美的眼睛,有一颗感悟美的心灵.

173333316

Private Sub Command1_Click() Dim n '定义一个n,可以变成自己输 n = 5 For i = 1 To n s1$ = i & i & i & i & i & i & i & i & i & i & i & i & i & i & i & i '定义一个由i组成的字符串,长度 应该为2*n个以上 s$ = Space(n - i + 1) & Mid(s1,1,2 * i - 1) & Space(n - i + 1) '得到一个前面空格,中间取i,后面取空格的字符串 Print s '输出s Next i End Su

(4×4+4+4+4÷4)×4=100
(5×5-5)÷5=4
(5×5+5)÷5=6
(5+5)÷5+5=7

看看我的思路..
Private Sub Command1_Click()
Dim i%
For i = 1 To 10
Print Tab(11 - i); String(2 * i - 1,StrReverse(i))
Next
End Sub
String 函数
返回 Variant (String),其中包含指定长度重复字符的字符串.
String(number,character)
StrReverse函数
返回一个字符串,其中一个指定子字符串的字符顺序是反向的.
StrReverse(string1)