《郑州轻院计算机语言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.EventArgs) Handles Button1.Click Dim i, j As Integer