郑州轻院计算机语言VB图形题题库_第1页
郑州轻院计算机语言VB图形题题库_第2页
郑州轻院计算机语言VB图形题题库_第3页
郑州轻院计算机语言VB图形题题库_第4页
郑州轻院计算机语言VB图形题题库_第5页
已阅读5页，还剩4页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

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 Sub编写程序，使用双循环输出下列三角形： 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.Event

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论