Question

VB代码，数字金字塔

如图 1
22
333
4444
55555
666666
7777777
88888888
999999999
0000000000
【提示】使用Tab函数定打印位置，可使用的函数还有：String, Right，Str
（1）循环体内显示用String函数来实现，找出循环控制变量与Sting函数内个数的关系，即String（j，Trim（str（i）））。
（2）Trim（）去空格函数是去掉字符串两边的空格。因为将数值I转换成字符串的时候，系统会自动在数字前面加符号位，正数为空格，负数为“-”；而String函数只取字符串中的首字符，这里是空格，因此要利用Trim函数先去掉空格。
（3）为了使最后一行的0显示，若按照上面的通式，则最后一行显示的是1，则要对公式进行修改，即String（j，Right（str（i）））。
图为等腰三角形

Answer 1

不好意思，刚上，才看见你给我发的信息。
你肯定把题目图案弄错了，第二行三个2吧……
我就上楼上的基础上加了一个j

Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String
j = -1
For i = 1 To 10
j = j + 2
s = String(j, Right(Trim(Str(i)), 1))
Print Tab(11 - i); s
Next i
End Sub

Answer 2

Private Sub Form_click()
Dim i As Integer
Dim s As String
For i = 1 To 10

s = String(i, Right(Trim(Str(i)), 1))
Print Tab(11 - i); s
Next i
End Sub

Answer 3

学习