vb题库(新01）.docVIP

图形题 401、用循环编写程序，输出如图所示的三角形： D D D D D D D C C C C C B B B A Dim i, j As Integer, str1,p As String str1 = : p = D For i = 1 To 4 str1 = str1 + Space(2 * i) For j = 1 To 9 - 2 * i str1 = str1 + p + Next str1 = str1 + vbCrLf p = Chr(Asc(p) - 1) Next TextBox1.Text = str1 402、用循环编写程序，输出如图所示的三角形 ： A A A A A A A B B B B B C C C D Dim i, j As Integer, str1 ,p As String str1= : p = A For i = 1 To 4 str1 = str1 + Space(2 * i) For j = 1 To 9 - 2 * i str1 = str1 + p + Next str1 = str1 + vbCrLf p = Chr(Asc(p) + 1) Next TextBox1.Text = str1 403、用循环编写程序，输出如图所示的三角形 ： A B C D E F G A B