VB练习题含答案
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
vb练习题及答案
vb练习题及答案VB（Visual Basic）是一种面向对象的编程语言，被广泛应用于软件开发中。
通过练习题的形式可以巩固和提升对VB语言的理解和应用能力。
本文将提供一些VB练习题及其答案，帮助读者巩固VB编程技巧。
题目一：计算器程序设计一个简单的计算器程序，要求能够进行基本的加、减、乘、除运算。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“Calculator”。
首先，在窗体上添加一些按钮来表示数字和运算符。
然后，添加一个用于显示运算结果的文本框控件。
接下来，为数字按钮和运算符按钮分别添加点击事件处理程序。
在点击数字按钮时，将按钮对应的数字追加到文本框中。
在点击运算符按钮时，根据按钮的内容判断并执行相应的运算。
最后，通过运用VB的计算表达式功能和控件之间的交互，实现基本的加减乘除运算。
题目二：学生成绩管理设计一个程序用于管理学生成绩，要求能够输入学生信息、查询学生成绩、计算学生平均成绩等操作。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“StudentGrade”。
首先，设计一个学生类（Student），包括学号、姓名、各科目成绩等属性。
然后，创建一个用于存储学生信息的集合（如数组或集合类）。
接下来，在窗体上添加文本框、按钮等控件，用于输入学生信息和进行相关操作。
通过按钮点击事件处理程序，实现以下功能：1.输入学生信息：获取文本框中的学生信息，并创建一个新的学生对象，将其添加到学生信息集合中。
2.查询学生成绩：根据学生学号或姓名等关键信息，在学生信息集合中查找对应学生，并显示其成绩信息。
3.计算学生平均成绩：遍历学生信息集合，计算每个学生的平均成绩，并显示在窗体上。
通过以上步骤，可以实现一个简单的学生成绩管理系统。
题目三：数据排序设计一个程序用于对一组数字进行排序，要求能够实现升序和降序排列。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“DataSorting”。
VB练习题(含答案)
VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
VB答案
练习一对象部分的基础练习一1、使用Visual Basic的目的是 AA. 开发Windows应用程序B. 图象处理C. 制作WAV文件D. 文字处理2、Visual Basic 是面向 D 的程序设计语言。
A. 过程B. 工程C. 事件D. 对象3、所谓 A 就上使某个对象进入活动状态的一种操作或动作。
A.事件B.属性C.方法论D.对象4、 C 在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A.方法B.属性C.事件D.工程5、窗体文件名与工程文件名的扩展名分别是 BA. .vbp和.frmB. .frm和.vbpC. .frm和.basD. .vbp和.vbw6、窗体的 C 属性用来设置将出现在窗体标题中的标题。
A.StyleB. TextC.Caption7、启动应用程序，装载和显示窗体，产生 B 和Form_Show 事件。
A.Form_clickB.Form_loadC. Form_GotFocusD. Form_DbClick8、窗体从加载到显示，依次引发的事件 .A. Load Initialize ActivateB. Initialize Activate LoadC. Load Activate InitializeD. Initialize Load Activate9、下列窗体的事件在窗体从加载到卸载过程中只可能触发一次。
A. GotFocusB. ActivateC. LoadD. Initialize10、在VB中，如果要生成一个不依赖于VB环境就可以运行的程序文件，则应选择 DA.“工程”到“属性”B.“工具”到“选项”C.“文件”到“另存为”D. “文件”到“生成.EXE”11、控件的 B 确定当一个事件发生时执行的代码。
A. 函数B. 事件过程C. 子程序D. 调用过程12、 B 的改变可以在设计时和运行进表现出来，而事件过程只有在运行时才执行。
A. 方法B. 控件属性C. 对象D. 事件13、放置控件到窗体中地迅速的方法是 AA. 双击工具箱中的控件B. 单击工具箱中的控件C.拖动鼠标D.单击工具箱中的控件并拖动鼠标14、控件的 A 使用户能够调节其大小。
计算机二级考试《VB》练习题及答案
xx年计算机二级考试《VB》练习题及答案1、一个栈的初始状态为空。
现将元素1、2、3、4、5、A、B、c、D、E依次入栈，然后再依次出栈，那么元素出栈的顺序是( )。
A.12345ABCDEB.EDCBA54321C.ABCDEl2345D.54321EDCBA2、以下表达中正确的选项是( )。
A.循环队列有队头和队尾两个指针，因此，循环队列是非线性构造B.在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C.在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D.循环队列中元素的个数是由队头指针和队尾指针共同决定3、在长度为凡的有序线性表中进展二分查找，最坏情况下需要比拟的次数是( )。
A.0(n)B.O(n2)C.O(1092n)D.0(nlog2n)4、以下表达中正确的选项是( )。
A.顺序存储构造的存储一定是连续的，链式存储构造的存储空间不一定是连续的B.顺序存储构造只针对线性构造，链式存储构造只针对非线性构造C.顺序存储构造能存储有序表，链式存储构造不能存储有序表D.链式存储构造比顺序存储构造节省存储空间5、数据流图中带有箭头的线段表示的是( )。
A.控制流B.事件驱动C.模块调用D.数据流6、在软件开发中，需求分析阶段可以使用的工具是( )。
A.N—s图B.DFD图C.PAD图D.程序流程图7、在面向对象方法中，不属于“对象”根本特点的是( )。
A.一致性B.分类性C.多态性D.标识唯一性8、一问宿舍可住多个学生，那么实体宿舍和学生之间的联系是( )。
A.一对一B.一对多C.多对一D.多对多9、在数据管理技术开展的三个阶段中，数据共享最好的是( )。
A.人工管理阶段B.文件系统阶段C.数据库系统阶段D.三个阶段相同10.栈和队列的共同特点是( )A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同点参考答案： C。
VB1-5章练习题
VB1~5章练习题第一章一、单选题1.VB6.0集成开发环境可以（）A) 编辑、调试、运行程序，但不能生成可执行程序B）编辑、生成可执行程序、运行程序，但不能调试程序C）编辑、调试、生成可执行程序，但不能运行程序D）编辑、调试、运行程序，也能生成可执行程序2.英文“Visual”的含义是（）A）可视化B）集成C）结构化D）调试3.标准模块文件的扩展名是（）A）.frmB）.vbpC）.basD）.vbg4.与传统的程序设计语言相比，VB最突出的特点是（）A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术5.VB6.0是（）应用程序的开发工具A）8位B）16位C）32位D）64位6.英文缩写“OOP”的含义是（）A）时间驱动的编程机制B）结构化程序设计语言C）面向对象的程序设计D）可视化程序设计二、简答题1.什么是对象的属性、事件和方法？三、编程题1.编写程序，并且有三个功能：①显示“欢迎使用VB6.0中文版”②清除之前显示的“欢迎使用VB6.0中文版”③退出此程序第二章一、单选题1.在Visual Basic中，下列优先级最高的运算符是（）A）*B）\C）<D）Not2.以下关系表达式中，其值为假的是（）A）”XYZ”<”XYz”B）”VisualBasic”=”visualbasic”C）”the”<>”there”D）”Integer”>”Int”3.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：Private Sub Command1_click()Dim b As Integerb = b + 1End Sub运行程序，第3次单击命令按扭后，变量b的值为（）A）0 B）1 C）2 D）34.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：Private Sub Command1_click()Static a As Integera = a + 1End Sub运行程序，第3次单击命令按扭后，变量a的值为（）A）0 B）1 C）2 D）35.在Visual Basic中，数值1234&的类型是（）A）整型B）长整型C）字符串型D）双精度型6.从键盘上输入2个字符串，分别保存在变量str1、str2中，则确定第2个字符串在第1个字符串中起始位置的函数是（）A）Left B）Mid C）String D）InStr7.设a = ”Visual Basic”，则以下使b = “Basic”的语句是（）A）b = Left(a,8,12)B）b = Mid(a,8,5)C）b = Right(a,8,5)D）b = Left(a,8,5)8.设a = 5,b = 10，则执行c = Int((b-a)* Rnd + a) + 1后，c的值为（）A）5~10B）6~9C）6~10D）5~99.以下声明语句中错误的是（）A）Const varl = 123B）Dim var2 = …ABC‟C）DefInt a-zD）Static var3 As Integer二、简答题1.下列哪些可作为Visual Baisc的变量名，那些不行？4*Delta Alpha 4ABC ABπReadData Filename A(A+B) C254D Read2.Visual Basic中是否允许出现下列形式的数？±25.74 3.457E-10 .368 1.87E+50 10^(1.256) D32 2.5E 12E3 8.75D+6 0.2583.把下面的数写成普通的十进制数：（1）2.65358979335278D-006 （2）1.21576654590569D+019（3）8.6787E+8 （4）2.567E-124.指出下列Visual Basic表达式中的错误，并写出正确的形式。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单项选择（每小题2分，共40分）1、窗体文件、标准模块文件的扩展名分别是__D__。
(A) .frm和.mdb (B) .frm和.vbp (C) .bas和.vbp 工程文件扩展名(D) .frm和.bas2、如果要设置窗体的标题栏，应选择_ B__属性。
(A) Name窗体名称(B) Caption (C) Tips (D) Text3、当运行程序时，系统自动执行启动窗体的___ D _事件过程。
(A) Click (B) Unload (C) Gotfocus (D) Load4、Visual basic程序设计语言属于___C_。
(A) 面向过程的语言(B) 面向问题的语言(C) 面向对象的语言(D) 面向机器的语言5、任何控件都具有的属性是___B_。
(A) Text (B) Name (C) ForeColor (D) Caption文本框没有6、VB的一个文本框控件名为mytxt，要使该控件中显示“我的VB程序”，以下__C__语句执行后能正确结果。
(A) Text1.Text = "我的VB程序" (B) Text1.Caption = "我的VB程序"(C) mytxt.Text = "我的VB程序" (D) mytxt.Caption = "我的VB程序"7、Visual Basic程序设计中，构成对象的三要素是___B_。
(A) 属性、控件和方法(B) 属性、事件和方法(C) 控件、过程和模块(D) 窗体、控件和过程8、在语句Public Sub Sort(i As Integer)中的i 是一个按__C__传递的参数。
(A) 地址(B) 值(C) 变量(D) 常量9、要将变量x赋值为50到100之间（含50和100）的一个随机整数，下面语句正确的是___B_。
x=下限+Int(上限-下限+1*Rnd)(A)x=50+Int(50*Rnd) (B) x=50+Int(51*Rnd)(C) x=Int(49+50*Rnd) (D) x=Int(49+51*Rnd)10、在通用声明代码中有以下语句：Option Base 1Dim a (4,-3 to 3) As String则该数组有__ __个元素。
A(A) 28 (B) 24 (C) 35 (D) 3011、要使某控件在运行时不可见，应将其_D___属性设置为False。
(A) Text (B) Caption (C) Enabled (D) Visible12、为了使标签Label1的大小根据其Caption属性的值自动扩大或缩小，应对Label1的何种属性进行怎样的设置？B(A) 将BorderStyle属性设为1有边框(B) 将AutoSize属性设为True(C) 将BorderStyle属性设为0 (D) 将AutoSize属性设为False13、下列哪一个是VB中合法的变量名?D(A) 123abc数字开头(B) a-b 减号(C) Dim VB关键字(D) str_x空格14、以下事件过程中，Private表示__B__。
Private Sub Text1_ChangeP rint "Text1 Changed"End Sub(A)此过程可以被任何其他过程调用(B)此过程只可以被本窗体中的其他过程调用(C)此过程不可以被任何其他过程调用(D)此过程只可以被本工程中的其他过程调用15、下面语句的循环次数为___B_。
For i = -3 To 20 Step 4(A) 5 (B) 6 (C) 7 (D) 816、如果变量a、b、c的值分别为3、2、-3.5，则Abs(b*c-a)+Int(c)的值为__A_。
(A) 6 (B) 7 (C) 14 (D) -13 |2*-3.5-3|-4=6下列函数中_D__的值与其他三个的不一样。
(A) Val ("-1") -1(B) Round (-0.9) -1(C) Int (-0.9) 小于等于N最大整数-1(D) Fix (-0.9) N整数部分017、下列程序代码执行的结果是DConst st As String = "1234"st = st + "5678"Print st(A) 1234 (B) (C) 6912 (D) 出错信息18、用户释放任意一个鼠标按钮时触发的事件是____。
B(A) MouseDown (B) MouseUp (C) MouseMove (D) MouseClick19、当用户在文本框中键入一个字符时，能触发文本框的____事件。
C(A) KeyPress和Click (B) KeyPress和LostFocus(C) KeyPress 和Change (D) Change 和LostFocus二、填空（每空2分，共40分）1、 把数学表达式2b a-+写成VB 表达式是____(1)____ ，把数学表达式 | x + y | + z 7 写成VB 表达式是____(2)____。
(-b+sqr(b^2-4*a*c))/2*a abs(x+y)+z^72、 窗体中有两个命令按钮：“显示”（控件名为cmdDisplay ）和“测试”（控件名为cmdTest ）。
完成下列事件代码过程，使单击“测试”按钮时，隐藏“显示”按钮。
Private Sub cmdTest_Click ()_____(3)______ cmdDisplay.visible=falseEnd Sub3、 窗体中有图像框Image1，完成下列事件过程代码，使单击Image1时，Image1移到窗体中心。
Private Sub Image1_Click ()Image1. ___ (4)___ = (Form1.ScaleWidth - Image1.Width) \ 2 leftImage1.Top = ___ (5)___ (Form1.ScaleHighth - Image1.Highth) \ 2End Sub4、窗体中有图片框（Picture1）和计时器（Timer1）两个控件。
完成下列事件代码过程，使运行程序时，将指定图片加载到图片框里，然后图片框以每2秒钟一次的速度向窗体的右下角移动（每次向右移动100个twip ，同时向下移动100个twip ）。
Private Sub Form_Load ()Picture1.Picture = ___ (6)___ ("c:\white.bmp") LoadPictureTimer1.Interval = ___ (7)___ 2000End SubPrivate Sub Timer1_Timer ()Picture1.Move ___ (8)___ , ___ (9)___ Picture1.Left+100 Picture1.Top+100 End Sub5、 完成以下程序，使其运行后，点击窗体，能打印出如图1所示的结果。
图1Private Sub Form_Click ()Dim se As StringPrint Tab(35); "九九乘法表"For i = ___ (10)___ 1 to 9For j = ___ (11)___ i to 9se = i & "×" & j & "=" & i * jPrint Tab ( (j - 1) * 9 + 1); ___ (12)___; se Next jNext iEnd Sub6、用公式111(1)143521nnπ--=-+-+-……可以计算π的近似值。
请完成下列程序，编写函数Pi（n）求π的近似值，并调用该函数求n＝100时π的近似值。
Function Pi (ByVal n As Integer) As DoubleDim i As IntegerPi = 0For i = 1 To nPi = Pi + ___ (13)___ (-1)^(i-1)/(2*n-1)Next iPi =___ (14)___ 4*PiEnd FunctionPrivate Sub Form_Click ()Print "n=100时，π的近似值为："; ___ (15)___ Pi(100)End Sub7、输入任意一个整数x，将其插入到一个按升序排列的整数数组中，并保证数组在插入之后仍按原来的升序排列，请填写完整程序。
Const n = 9Private Sub Form_Click()Dim aDim i As Integer, j As Integer, x As Integer____(16)____ = Array(1, 3, 4, 5, 9, 15, 22, 28, 30, 60) ax = InputBox("输入一个整数x：")ReDim Preserve a(n + 1)For i = n To 1 ____(17)____ step -1If ____(18)____ Then x<a(i)a(i + 1) = a(i)Else____(19)____ a(i+1)=xExit ForEnd IfNext iIf i < 1 Then ____(20)____ a(1)=xEnd Sub三、程序设计（每题10分，共20分）1、编写程序，使得单击窗体时，产生10个值为100－400之间（含100和400）的随机整数，用冒泡法将10个数从小到大排序后，显示在窗体上。
Private Sub Form_Click()Dim i, x As Integer, a(1 To 10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 301) + 100Print a(i);Next iPrintFor i = 10 To 2 Step -1For j = 1 To i - 1If a(j) > a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = xNext jNext iFor i = 1 To 10Print a(i);Next iPrintEnd Sub2、编写程序实现求水仙花数（水仙花数是指一种三位数,其各个数之立方和等于该数）Option ExplicitPrivate Sub Command1_Click()Dim x%Dim hundred%, ten%, one%If Len(Text1) <> 3 ThenMsgBox ("请输入三位数的正整数") '如果Text1中的不是三位数时，则……Text1 = ""Label2 = ""Elsex = Val(Text1)hundred = x \ 100 '百位数上的数ten = (x Mod 100) \ 10 '十位数上的数one = x Mod 10 '个位数上的数If hundred ^ 3 + ten ^ 3 + one ^ 3 = x ThenLabel2.Caption = x & "是水仙花数！"ElseLabel2.Caption = x & "不是水仙花数！"End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1 = ""Label2 = ""End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Text1_Change()Dim n% '整型变量n用来存放输入的字符个数If IsNumeric(Text1) Or Text1 = "" Then '如果Text1中的是0～9的数或空字符，则……ElseMsgBox ("无效字符，请输入正整数")Text1 = ""Label2 = "" End IfEnd Sub。