Question

请用VB的循环语句打印出如下图形： A B C D E F G H I J K L M N O P

Answer 1

Private Sub Command3_Click()

For i = 1 To 4

For j = 1 To 4 - i

Print " ";

Next

For k = 1 To i * 2 - 1

a = a + 1

Print Chr(64 + a);

Next

Print

Next

End Sub

 如果觉得字符太密：

Private Sub Command3_Click()

For i = 1 To 4

For j = 1 To 4 - i

Print "  ";

Next

For k = 1 To i * 2 - 1

a = a + 1

Print Chr(64 + a) & " ";

Next

Print

Next

End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer

For i = 65 To 65 + 25
Print Chr(i)
Next i
End Sub

追问

谢谢你的回答，不过不对啊，运行出来不是这个