全国计算机二级考试试题.doc

全国计算机二级考试试题全国计算机二级考试试题作者：星云 文章来源：本站原创 点击数：6500 更新时间：2006-7-17 17:08:12 例题详解（一）1编写程序，使用双循环输出下列三角形 D D D D D D D C C C C C B B B A 解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String Dim p As String = D For i = 1 To 4 For j = 1 To 20 + 2 * i str1 = str1 + Next For j = 1 To 9 - i * 2 str1 = str1 + p + Next str1 = str1 + Chr(10) p = Chr(Asc(p) - 1) Next MsgBox(str1) End Sub 2 编写程序，输出下列三角形： 4 4 4 4 4 4 4 3 3 3 3 3 2 2 2 1 解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String Dim P as integer = 4 For i = 1 To 4 For j = 1 To 20 + 3 * i str1 = str1 + Next For j = 1 To 9 - 2* i str1 = str1 + Str(p) + Next str1 = str1 + Chr(10) p=p-1 Next MsgBox(str1) End Sub 3 编写程序，使用双循环输出下列三角形： m n o p q r s m n o p q m n o m解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p, str1 As String p = m For i = 1 To 5 For j = 1 To 9 - 2 * i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = m Next MsgBox(str1) End Sub4 编写程序，输出下列三角形： 1 2 2 2 3 3 3 3 3 4 4 4 4 4 4 4 解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = : data = 1 For i = 1 To 4 str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Str(data) Next str1 = str1 + Chr(10) data = data + 1 Next MsgBox(str1) End Sub 5 编写程序，使用双循环输出下列三角形： A A B C A B C D E A B C D E F G解： Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = For i = 1 To 4 data = Asc(A) str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Chr(data) + data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub6 编写程序，输出下列三角形： 1 1 2 3 1 2 3 4 5 1 2 3 4 5 6 7 解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = For i = 1 To 4 data = 1 str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Str(data) data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 7 编写程序，使用双循环输出下列三角形： a b c d e f g a b c d e a b c a解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p, str1 As String p = a For i = 1 To 4 For j = 1 To 20 + 2 * i str1 = str1 + Next For j = 1 To 9 - 2 * i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = a Next MsgBox(str1) End Sub 例题详解（二）1 编写程序，使用双循环输出下列三角形： 1 2 3 4 5 6 7 1 2 3 4 5 1 2 3 1解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String For i = 1 To 4 For j = 1 To 20 + 3 * i str1 = str1 + Next For j = 1 To 9 - i * 2 str1 = str1 + Str(j) + Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 2. 编写程序，使用双循环输出下列三角形： m m n m n o m n o p解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String Dim p As String = m For i = 1 To 4 For j = 1 To i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = m Next MsgBox(str1) End Sub 3 编写程序，使用双循环输出下列三角形： A B C D E A B C D A B C A B A 解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p, str1 As String p = a For i = 1 To 5 For j = 1 To 6 - i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = a Next MsgBox(str1) End Sub 4. 编写程序，输出下列三角形 A B C D C B A A B C B A A B A A解： Private Sub Button5_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim i, j As Integer Dim str1 As String Dim p As String = A For i = 1 To 4 For j = 1 To 10 + 2 * i str1 = str1 + Next For j = 1 To 5 - i str1 = str1 + p + p = Chr(Asc(p) + 1) Next p = Chr(Asc(p) - 2) For j = 1 To 4 - i str1 = str1 + p + p = Chr(Asc(p) - 1) Next str1 = str1 + Chr(10) p = A Next MsgBox(str1) End Sub 5. 编写程序，用循环和表达式生成下列数组 , 且输出。 1 2 3 4 5 6 7 8 9 10 11 12解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = : data = 1 For i = 1 To 3 For j = 1 To 4 If data 10 Then str1 = str1 + + Str(data) Else str1 = str1 + + Str(data) End If data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 6.编写程序，用循环和表达式生成下列数组 , 且输出。 2 3 4 5 6 7 8 9 10 11 12 13解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1. Click Dim i, j, data As Integer Dim str1 As String str1 = : data = 2 For i = 1 To 3 For j = 1 To 4 If data 10 Then str1 = str1 + + Str(data) Else str1 = str1 + + Str(data) End If data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 7. 编写程序，使用双循环输出下列三角形： A B B B C C C C C D D D D D D D解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = : data = Asc(A) For i = 1 To 4 str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Chr(data) + Next str1 = str1 + Chr(10) data = data + 1 Next MsgBox(str1) End Sub 例题详解（三）1. 编写程序，使用双循环输出下列三角形 D D D D D D D C C C C C B B B A解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String Dim p As String = D For i = 1 To 4 For j = 1 To 20 + 2 * i str1 = str1 + Next For j = 1 To 9 - i * 2 str1 = str1 + p + Next str1 = str1 + Chr(10) p = Chr(Asc(p) - 1) Next MsgBox(str1) End Sub 2. 编写程序，使用双循环输出下列三角形 4444444 33333 222 1解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String Dim P as integer = 4 For i = 1 To 4 For j = 1 To 20 + 3 * i str1 = str1 + Next For j = 1 To 9 - 2* i str1 = str1 + Str(p) + Next str1 = str1 + Chr(10) p=p-1 Next MsgBox(str1) End Sub 3. 编写程序，使用双循环输出下列三角形 m n o p q r s m n o p q m n o m解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p, str1 As String p = m For i = 1 To 5 For j = 1 To 9 - 2 * i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = m Next MsgBox(str1) End Sub 4. 编写程序，输出下列三角形： 1 2 2 2 3 3 3 3 3 4 4 4 4 4 4 4解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = : data = 1 For i = 1 To 4 str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Str(data) Next str1 = str1 + Chr(10) data = data + 1 Next MsgBox(str1) End Sub 5. 编写程序，使用双循环输出下列三角形： A A B C A B C D E A B C D E F G解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = For i = 1 To 4 data = Asc(A) str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Chr(data) + data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub6. 编写程序，输出下列三角形： 1 1 2 3 1 2 3 4 5 1 2 3 4 5 6 7解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = For i = 1 To 4 data = 1 str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Str(data) data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 7. 编写程序，使用双循环输出下列三角形： A B B B C C C C C D D D D D D D 解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As Integer Dim str1 As String str1 = : data = Asc(A) For i = 1 To 4 str1 = str1 + Space(8 - 2 * i) For j = 1 To 2 * i - 1 str1 = str1 + Chr(data) + Next str1 = str1 + Chr(10)data = data + 1Next MsgBox(str1) End Sub 例题详解（四）1. 编写程序，使用双循环输出下列三角形： abcdefg abcde abc a解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p, str1 As String p = a For i = 1 To 4 For j = 1 To 20 + 2 * i str1 = str1 + Next For j = 1 To 9 - 2 * i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = a Next MsgBox(str1) End Sub 2. 编写程序，使用双循环输出下列三角形： 1 2 3 4 5 6 7 1 2 3 4 5 1 2 3 1解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String For i = 1 To 4 For j = 1 To 20 + 3 * i str1 = str1 + Next For j = 1 To 9 - i * 2 str1 = str1 + Str(j) + Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 3. 编写程序，使用双循环输出下列三角形： m m n m n o m n o p解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim str1 As String Dim p As String = m For i = 1 To 4 For j = 1 To i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = m Next MsgBox(str1) End Sub 4. 编写程序，使用双循环输出下列三角形 a b c d e a b c d a b c a b a解： Private Sub Button1_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p, str1 As String p = a For i = 1 To 5 For j = 1 To 6 - i str1 = str1 + p + p = Chr(Asc(p) + 1) Next str1 = str1 + Chr(10) p = a Next MsgBox(str1) End Sub 5. 编写程序，输出下列三角形 A B C D C B A A B C B A A B A A解： Private Sub Button5_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim i, j As Integer Dim str1 As String Dim