VB文本输出重复问题！

来源：百度知道 编辑：UC知道 时间：2024/05/25 03:42:05
题目要求输出的结果是
AAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBB
CCCCCCCCCCCCCC
DDDDDDDDDDDD
EEEEEEEEEE
FFFFFFFF
GGGGGG
HHHH
II
我编了以下程序：
Private Sub Form_Click()
Dim x As String
Dim i, t, asc As Integer
For asc = 65 To 73
t = Chr(asc)
For i = 9 To 1 Step -1
x = String(2 * i, Trim(t))
Print Tab(10 - i); x;

Next i
Next asc
End Sub
程序运行的结果却是
AAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAA
AAAAAAAAAAAAAA
AAAAAAAAAAAA
AAAAAAAAAA
AAAAAAAA
AAAAAA
AAAA
AA
BBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBB
BBBBBBBBBBBBBB
BBBBBBBBBBBB

Private Sub Form_Click()
Dim x As String
Dim i, t, asc As Integer
asc = 65
For i = 9 To 1 Step -1
t = Chr(asc + 9 - i)
x = String(2 * i, Trim(t))
Print Tab(10 - i); x;
Next i
End Sub
把你的程序这样改一下，就行了。

循环重复嘛。
如下代码可以实现：
Private Sub Form_Click()
Dim x As String
Dim i, t, asc As Integer
i = 9
For asc = 65 To 73
t = Chr(asc)
x = String(2 * i, Trim(t))
Print Tab(10 - i); x;
i = i - 1
Next asc
End Sub

这样可以吗?
for i=9 to 1 step -1
print string(i*2,char(65+9-i))
next