《郑州轻院计算机语言VB图形题题库.doc》由会员分享,可在线阅读,更多相关《郑州轻院计算机语言VB图形题题库.doc(9页珍藏版)》请在三一文库上搜索。
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 str1 = str1 + Space(2 * i) For j = 1 To 9 - i * 2 str1 = str1 + p +
2、Next str1 = str1 + Chr(10) p = Chr(Asc(p) - 1) Next MsgBox(str1) End Sub 写程序,使用双循环输出下列三角形 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 str1 =
3、str1 + Space(2 * i) For j = 1 To 9 - 2* i str1 = str1 + Str(p) Next str1 = str1 + Chr(10) p=p-1 Next MsgBox(str1) End Sub写程序,使用双循环输出下列三角形m n o p q r sm n o p qm n omPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim p,
4、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编写程序,输出下列三角形: 1 2 2 2 3 3 3 3 3 4 4 4 4 4 4 4Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button
5、1.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编写程序,使用双循环输出下列三角形: A A B C A B C D E A B C D E F G Private Sub Butto
6、n1_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
7、MsgBox(str1) End Sub编写程序,输出下列三角形: 1 1 2 3 1 2 3 4 5 1 2 3 4 5 6 7Private 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 -
8、 1 str1 = str1 + Str(data) data = data + 1 Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 编写程序,使用双循环输出下列三角形: 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
9、 To 4 str1 = str1 + Space(2 * i) 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 2 3 4 5 6 7 1 2 3 4 5 1 2 3 1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butto
10、n1.Click Dim i, j As Integer Dim str1 As String For i = 1 To 4 str1 = str1 + Space(2 * i) For j = 1 To 9 - i * 2 str1 = str1 + Str(j) Next str1 = str1 + Chr(10) Next MsgBox(str1) End Sub 编写程序,使用双循环输出下列三角形: m m n m n o m n o p Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System
11、.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编写程序,使用双循环输出下列三角形 a b c d e a b c d a b c a ba Private Sub Button1_Click(ByVal se
12、nder 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编写程序,输出下列三角形 A B C D C B A A B C B A A B A A Pri
13、vate 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 str1 = str1 + Space(2 * i) For j = 1 To 5 - i str1 = str1 + p + p = Chr(Asc(p) + 1) Next p = Chr(Asc(p) - 2) For j = 1 To
14、 4 - i str1 = str1 + p + p = Chr(Asc(p) - 1) Next str1 = str1 + Chr(10) p = A Next MsgBox(str1)End Sub编写程序,用循环和表达式生成下列数组,且输出。 1 2 3 4 5 6 7 8 9 10 11 12Private 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 St
15、ring 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 编写程序,用循环和表达式生成下列数组,且输出。 2 3 4 5 6 7 8 9 10 11 12 13Private Sub Button1_Click(ByVal sender As Syste
16、m.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 S
17、ub编写程序,使用双循环输出下列三角形: 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