用单循环显示有规律图形。

2025-05-14 07:07:11

推荐回答（2个）

回答（1）：

呵呵,看看我的思路..

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)

回答（2）：

Dim i%
For i = 1 To 10
Print String(2 * i - 1, IIf(i = 10, 48, i + 48))
Next i

测试成功,使用string函数,返回指定数目的ASCII码字符..
具体查VB函数.