作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/04 02:53:40
请用VB的循环语句打印出如下图形:A B C D E F G H I J K L M N O P
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 Su