VB编程，打印如下所示的几何图形
发布网友
发布时间：2022-04-22 08:39
共2个回答
热心网友
时间：2023-10-06 05:19
'试一下
Private Sub Form_Activate()
Dim i As Long, j As Integer, n, k
For i = 65 To
k = 2 * n + 1
n = n + 1
Print Space(5 - n);
For j = i To k + i - 1
Print Chr(j);
Next
Print
i = j - 1
Next
End Sub
热心网友
时间：2023-10-06 05:20
Private Sub Form_Click()
For i = 1 To 5
Print Tab(10 - i);
For j = 1 To 2 * i - 1
Print "#";
Next j
Next i
End Sub
输出那里可以改，如果想是字母写给循环，用ascii加就可以！
