郑州轻院计算机语言VB图形题题库
vb考试试题及答案
vb考试试题及答案1. 介绍VB语言特点VB（Visual Basic）是一种基于事件驱动的可视化编程语言，最早由微软公司于1991年推出。
以下是VB语言的特点：简单易学：VB语言采用自然语言和图形化的界面，减少了繁杂的语法和代码编写，使得初学者能够迅速掌握。
可视化设计：VB提供了强大的可视化设计功能，开发者可以通过拖拽控件、设置属性等直观的方式创建用户界面。
面向对象编程：VB具备面向对象的编程特性，支持封装、继承和多态等概念，可以更好地组织和管理代码。
强大的控件库：VB拥有丰富的控件库，开发者可以通过调用这些控件实现各种功能，如按钮、文本框、列表框等。
易于与其他技术集成：VB能够与其他微软技术集成，如数据库、Office套件和网络等，方便开发者进行相关应用的开发。
2. VB考试试题1) VB语言中的变量命名规则是什么？2) VB中的条件语句有哪些？请列举并示例。
3) 如何在VB中实现错误处理？4) VB中如何定义函数和子过程？它们之间有什么区别？5) VB中常用的数据类型有哪些？请简要介绍。
6) 如何在VB中连接数据库，并执行相关操作？3. VB考试答案1) VB语言中的变量命名规则是以下几点：- 变量名由字母、数字和下划线组成，但不能以数字开头。
- 变量名区分大小写。
- 变量名不能与VB的关键字相同。
- 变量名应具有描述性，方便代码维护。
2) VB中的条件语句包括以下几种：- If语句：根据条件判断执行不同的代码块。
示例：```If condition Then' 执行语句块Else' 执行其他语句块End If```- Select Case语句：根据表达式的值选择执行对应的代码块。
示例：```Select Case expressionCase value1' 执行语句块1Case value2' 执行语句块2Case Else' 执行其他语句块End Select```3) 在VB中，可以使用Try...Catch...Finally块来实现错误处理。
郑州轻院计算机语言VB图形题题库
编写程序，使用双循环输出下列三角形D D D D D D DC C C C CB B BAPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim str1 As StringDim p As String = "D"For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - i * 2str1 = str1 + p + " "Nextstr1 = str1 + Chr(10)p = Chr(Asc(p) - 1)NextMsgBox(str1)End Sub写程序，使用双循环输出下列三角形4444444333332221Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim str1 As StringDim P as integer = 4For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - 2* istr1 = str1 + Str(p)Nextstr1 = str1 + Chr(10)p=p-1NextMsgBox(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.ClickDim i, j As IntegerDim p, str1 As Stringp = "m"For i = 1 To 5For j = 1 To 9 - 2 * istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "m"NextMsgBox(str1)End Sub编写程序，输出下列三角形： 12 2 23 3 3 3 34 4 4 4 4 4 4Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j, data As IntegerDim str1 As Stringstr1 = "" : data = 1For i = 1 To 4str1 = str1 + Space(8 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + Str(data)Nextstr1 = str1 + Chr(10)data = data + 1NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：AA B CA B C D EA B C D E F GPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j, data As IntegerDim str1 As Stringstr1 = ""For i = 1 To 4data = Asc("A")str1 = str1 + Space(8 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + Chr(data) + " "data = data + 1Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，输出下列三角形：11 2 31 2 3 4 51 2 3 4 5 6 7Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j, data As IntegerDim str1 As Stringstr1 = ""For i = 1 To 4data = 1str1 = str1 + Space(8 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + Str(data)data = data + 1Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：abcdefgabcdeabcaPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim p, str1 As Stringp = "a"For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - 2 * istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "a"NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：1 2 3 4 5 6 71 2 3 4 51 2 31Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim str1 As StringFor i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - i * 2str1 = str1 + Str(j)Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：mm nm n om n o pPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim str1 As StringDim p As String = "m"For i = 1 To 4For j = 1 To istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "m"NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形a b c d ea b c da b ca baPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, j As IntegerDim p, str1 As Stringp = "a"For i = 1 To 5For j = 1 To 6 - istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "a"NextMsgBox(str1)End Sub'编写程序，输出下列三角形' A B C D C B A' A B C B A' A B A' APrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim i, j As IntegerDim str1 As StringDim p As String = "A"For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 5 - istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextp = Chr(Asc(p) - 2)For j = 1 To 4 - istr1 = str1 + p + " "p = Chr(Asc(p) - 1)Nextstr1 = str1 + Chr(10)p = "A"NextMsgBox(str1)End Sub编写程序，用循环和表达式生成下列数组,且输出。
vb练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题：是非题（共10分，每项1分）1. VB6.0只能运行在Windows 2000下，不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上，并且永久保留。
4A.对B.错√第二题、单选题（共45分，每项1.5分）1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题：是非题（共10分，每项1分）1. 在事件驱动的应用程序中，代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题（共45分，每项1.5分）1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿＿＿。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False，则＿＿＿。
6A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容√C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容第三题、简单程序（共15分，每项1.5分）1. 以下程序的输出结果是______。
VB试题库及答案
VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。
程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。
A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。
A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。
A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。
A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。
郑州大学vb上机考试试题真题
一、单项选择题（50道小题，共50分）1、在Visual Basic中，系统为每个对象预先定义好了一系列的事件。
下列事件中，不属于VB系统提供的事件是( )。
（1分）A、Click()B、Change()C、MyFirst()D、DblClick()2、以下有关Visual Basic语言描述中，错误的是( )。
（1分）A、语句是一行一句，以回车键结束B、用“,”分隔一行中的多个语句D、一条语句放在多行中，则在前一行结束处C、变量名不区分大小写使用续行符“_”连接下一行3、下列叙述中，正确的是( )。
（1分）B、Visual Basic应用程序只能以解释方式A、事件可以由用户触发，也可以由系统触发执行C、保存Visual Basic程序时，只需保存窗D、所有控件都有DblClick事件体文件即可4、下列不属于VB三种模式的是( )模式。
（1分）A、设计B、运行C、代码D、中断5、( )是对象的一个基本要素，它描述了对象在程序中的外观特点。
（1分）A、事件B、属性C、方法D、事件程序6、对象能够识别的操作称为( )。
（1分）A、属性B、方法C、事件D、过程7、VB系统中供用户直接调用，使对象完成一定的操作或实现一定功能的特殊过程称为( )。
（1分）A、事件B、方法C、属性D、文件8、可以用来进行一些简单计算的窗口是( )。
（1分）A、属性窗口B、立即窗口C、工程窗口D、窗体布局窗口9、打开Visual Basic集成环境后，默认显示的工具栏是( )。
（1分）A、编辑工具栏B、标准工具栏C、调试工具栏D、窗体工具栏10、在Visual Basic的中断模式下，按下功能键F8，则( )。
（1分）A、执行中断时的下一个语句B、执行中断时的下一个模块C、退出Visual BasicD、结束当前的运行11、当程序中断修改后再运行时，VB进入( )模式。
（1分）A、设计B、运行C、中断D、编程12、在工具箱窗口关闭的情况下，如果要打开只需选择( )菜单的“工具箱命令”即可。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
Vb操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
河南省计算机等级考试—VB题库
一.选择题1、在Windows中，关于对话框叙述不正确的是__D____。
（D）A、对话框没有最大化按钮B、对话框没有最小化按钮C、对话框不能改变形状大小D、对话框不能移动2、Windows中，可以打开“开始”菜单的组合键是__B____。
（B）A、Alt键+Esc键B、Ctrl键+Esc键C、Tab键+Esc键D、Shift键+Esc键3、在Windows中，不可对任务栏进行的操作是___A___。
（A）A、设置任务栏的颜色B、移动任务栏的位置C、设置任务栏为“总在最前”D、设置任务栏为“自动隐藏”4、下列关于Windows窗口的描述中，__A____是错误的。
（A）A、窗口是Windows应用程序的用户界面B、Windows的桌面也是Windows的窗口C、用户可以改变窗口的大小，也可以移动其位置D、窗口主要由边框、标题栏、菜单栏、工作区、状态栏、滚动条等组成，并且部分菜单项中的命令在大部分窗口下具有相同或类似的功能5、关于word中的多文档窗口操作，以下叙述中错误的是_B_____。
（B）A、 Word的文档窗口可以拆分为两个文档窗口B、多个文档编辑工作结束后，只能一个一个地存盘或关闭文档窗口C、 Word允许同时打开多个文档进行编辑，每个文档有一个文档窗口D、多文档窗口内的内容可以进行剪切、粘贴和复制等操作6、在Word“字体”对话框中，不能设定文字的______。
（A）A、行距B、字符间距C、字形D、字符颜色7、在Excel工作表中，当前单元格只能是______。
（D）A、单元格指针选定的一个B、选中的一行C、选中的一列D、选中的区域8、在Excel工作表中，选定某单元格，选择“编辑”菜单下的“删除”选项，不能实现_____。
（D）A、删除该行B、右侧单元格左移C、删除该列D、左侧单元格右移9、欲新建PowerPoint演示文稿，以下方法中不能使用的是______。
（C）A、内容提示向导B、模板C、幻灯片版式D、空演示文稿10、在PowerPoint中打开文件，以下叙述中正确的是______。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
编写程序，使用双循环输出下列三角形D D D D D D DC C C C CB B BAPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As IntegerDim str1 As StringDim p As String = "D"For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - i * 2str1 = str1 + p + " "Nextstr1 = str1 + Chr(10)p = Chr(Asc(p) - 1)NextMsgBox(str1)End Sub写程序，使用双循环输出下列三角形4444444333332221Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As IntegerDim str1 As StringDim P as integer = 4For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - 2* istr1 = str1 + Str(p)Nextstr1 = str1 + Chr(10)p=p-1NextMsgBox(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 IntegerDim p, str1 As Stringp = "m"For i = 1 To 5For j = 1 To 9 - 2 * istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "m"NextMsgBox(str1)End Sub编写程序，输出下列三角形： 12 2 23 3 3 3 34 4 4 4 4 4 4Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As IntegerDim str1 As Stringstr1 = "" : data = 1For i = 1 To 4str1 = str1 + Space(8 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + Str(data)Nextstr1 = str1 + Chr(10)data = data + 1NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：AA B CA B C D EA B C D E F GPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As IntegerDim str1 As Stringstr1 = ""For i = 1 To 4data = Asc("A")str1 = str1 + Space(8 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + Chr(data) + " "data = data + 1Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，输出下列三角形：11 2 31 2 3 4 51 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 IntegerDim str1 As Stringstr1 = ""For i = 1 To 4data = 1str1 = str1 + Space(8 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + Str(data)data = data + 1Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：abcdefgabcdeabcaPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As IntegerDim p, str1 As Stringp = "a"For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - 2 * istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "a"NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：1 2 3 4 5 6 71 2 3 4 51 2 31Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As IntegerDim str1 As StringFor i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 9 - i * 2str1 = str1 + Str(j)Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形：mm nm n om n o pPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As IntegerDim str1 As StringDim p As String = "m"For i = 1 To 4For j = 1 To istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "m"NextMsgBox(str1)End Sub编写程序，使用双循环输出下列三角形a b c d ea b c da b ca baPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As IntegerDim p, str1 As Stringp = "a"For i = 1 To 5For j = 1 To 6 - istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextstr1 = str1 + Chr(10)p = "a"NextMsgBox(str1)End Sub'编写程序，输出下列三角形' A B C D C B A' A B C B A' A B A' APrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim i, j As IntegerDim str1 As StringDim p As String = "A"For i = 1 To 4str1 = str1 + Space(2 * i)For j = 1 To 5 - istr1 = str1 + p + " "p = Chr(Asc(p) + 1)Nextp = Chr(Asc(p) - 2)For j = 1 To 4 - istr1 = str1 + p + " "p = Chr(Asc(p) - 1)Nextstr1 = str1 + Chr(10)p = "A"NextMsgBox(str1)End Sub编写程序，用循环和表达式生成下列数组,且输出。
1 2 3 45 6 7 89 10 11 12Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, data As IntegerDim str1 As Stringstr1 = "" : data = 1For i = 1 To 3For j = 1 To 4If data < 10 Thenstr1 = str1 + " " + Str(data)Elsestr1 = str1 + " " + Str(data)End Ifdata = data + 1Nextstr1 = str1 + Chr(10)NextMsgBox(str1)End Sub编写程序，用循环和表达式生成下列数组,且输出。