下载文档原格式
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
vb试题及答案期末一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. VB中，哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Mid答案：A3. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. BooleanD. All of the above答案：D4. VB中，哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B5. VB中，哪个函数用于将字符串转换为小写？A. LCaseB. UCaseC. StrConvD. Trim答案：A6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. Do WhileC. For NextD. All of the above答案：D7. VB中，哪个关键字用于创建一个数组？A. DimB. ReDimC. EraseD. Option Base答案：A8. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Timer答案：B9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For RandomD. All of the above答案：D10. VB中，哪个关键字用于退出一个循环？A. ExitB. BreakC. ContinueD. Return答案：A二、填空题（每题3分，共30分）1. VB中，声明一个整型变量并赋值为100的语句是________。
答案：Dim myVar As Integer = 1002. 要将一个变量的值增加10，可以使用________运算符。
答案：+=3. 在VB中，________函数用于输出信息到即时窗口。
vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。
VB期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假定有以下程序段, 则执行结束后k的值是：（ A ）For i =1 To 3k = i+2Next iA． 5 B．4 C． 3 D．62. 以下控件中可以作为容器控件的是（ B ）A．Image图像框控件 B．PictureBox图片框控件C．TextBox文本框控件 D．ListBox列表框控件3.关于Image控件和PictureBox控件的说明，其中错误的是（ B ）A．Image控件和PictureBox控件都有Picture属性B．Image控件和PictureBox控件都支持Print方法C．Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中D．Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为( D )A．5 B．500 C．10 D．5000 5.能显示窗体的方法是（ B ）。
A．Visible B．Show C．New D．Open6.MsgBox函数中有4个参数，其中必须写明的参数是（ C ）A．指定显示按钮的个数 B．对话框的标题 C. 提示信息 D. 所有参数都是可选的7.你若在代码窗口中编写：msgbox(“AAAA”,vbokonly,”BBBB”)语句后，所产生的信息框的标题是（ C ）A．AAAA B．空 C．BBBB D．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（D ）方法。
A．GotFocus B．LostFocus C．KeyPress D．SetFocus9.为了把焦点移到某个指定的控件，所使用的方法是（ A ）A．SetFoeus B．Visible C．Refresh D．GetFocus10.语句if 3*4>=10 thena=1elsea=2end if执行后，a的值为（ D ）。
VB期末考试试卷及答案一·选择题1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B ）A属性、控件和方法B属性、事件和方法C窗体、控件和过程 D控件、过程和模块2. 所有控件都有一个共同的属性，这个属性是（C ）A textB fontC nameD caption3。
下列叙述中错误的是（A )A 工程文件扩展名是.vbgB 标准模块文件的扩展名是.basC 窗体模块的扩展名是。
frmD 类模块的扩展名是.cls4。
当要编写一个新的Visual Basic程序时，所做的第一件事是（A )A 新建一个工程B 编写代码C 设置属性D 添加Active X控件5。
下面控件中，没有caption属性的是（B ）A 框架B 组合框C 命令按钮D 复选按钮6. 在文件框中输入字符时，若只显示某个字符，如(＊），应设置属性是（B ）A MultiLineB PasswordCharC TextD selText7. 若要将窗体从内存中卸载出去，其实现的方法是（D ）A ShowB HideC LoadD UnLoad8。
下列关于过程叙述不正确的是（D ）A 过程的传值调用是将实参的具体值传值传递给形参B 过程的传址调用是将实参在内存的地址传递给形参C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D 无论过程传值调用还是传地址调用，参数传递都是双向的9。
某人创建1个工程，其中的窗体名为Form1,之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是( C )A 在Form1的Load事件过程中加入语句Load Form2B 在Form2的Load事件过程中加入语句Form2.ShowC 在“过程属性"对话框中把“启动对象”设置为Form2D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为210。
vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
vb期末考试题和答案1．在代码中引用一个控件时，应使用控件的（ b ）属性。
A．Caption B．Name C．Text D．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。
A．x+a<= b-y B． x> 0 AND y < 0C．a = b OR x>y D．x+y>a+b AND NOT (y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函数Sgn(3.1416)的返回值是（ c ）。
A．-1 B．0 C．1 D．以上都不对5．67890属于（ d ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是（ d ）。
A．3S B．Print C．Select My Name D．Select_17．下列赋值语句（ a ）是有效的。
A．sum = sum-sum B．x+2 = x + 2 C．x + y =sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（ b ）。
A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。
A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为（ b ）。
Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 - kNext kx = 5Print m(2 + m(x))End SubA．2 B．3 C．4 D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式： n Mod 13=0 And n Mod17=0 。
VB程序设计期末试卷及答案选择题1. Visual Basic中的窗体⽂件的扩展名是A、.regB、.frmC、.basD、.vbp2. Visual Basic中的模块⽂件的扩展名是A、.regB、.frmC、.basD、.vbp3. Visual Basic中的⼯程⽂件的扩展名是A、.regB、.frmC、.basD、.vbp4. ⼀个对象可以执⾏的动作和可被对象识别的动作分别称为A、事件、⽅法B、⽅法、事件C、属性、⽅法D、过程、事件5要使窗体在运⾏时不可改变窗体的⼤⼩和没有最⼤化和最⼩化按钮，要对下列属性进⾏设置。
A．MaxButton B．Width C．MinButtonD．BorderStyle6 在⽤菜单编辑器设计菜单时，必需输⼊的项有＿＿＿＿。
A．快捷键B．索引C．标题D．名称8 ⽂件号最⼤可取的值为A 255 B511 C512 D2569 以下能判断是否到达⽂件尾的函数是＿＿＿＿A BOFB LOC C LOFD EOF10 Visual basic 常见的颜⾊设置中，表⽰红⾊的是A vbblueB vbredC vbblackD vbcyan11当使⽤line⽅法画直线后，当前坐标在A （0,0）B 直线起点C 直线终点D容器的中⼼12语句circle（500,500），300,8，-6，-3将绘制A圆 B 椭圆 C 圆弧D扇形13坐标度量单位可以通过来改变A DrawstyleB DrawwidthC ScaleD Scalemode14对象的边框类型由设置A DrawstyleB DrawwidthC BorderstyleD Scalemode 15以下的属性和⽅法中可重新定义坐标系A DrawstyleB DrawwidthC ScaleD Scalemode16执⾏语句line（1200,1200）——step(1000,500),B后，CurrentX=A 2200B 1200C 1000D 170017 在下列通⽤对话框的叙述中，错误的是A Commondialogl.showfont显⽰字体对话框B 在打开或另存为对话框中，⽤户选择的⽂件名可以通过Filetitle 属性返回C在打开或另存为对话框中，⽤户选择的⽂件名及其路径可以经Filetitle属性返回D 通过对话框可以⽤来制作和显⽰帮助对话框填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。
VB程序设计期末模拟试题及答案第一篇：VB程序设计期末模拟试题及答案《VB》期末复习题及答案综合复习题一、填空题1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的__text__属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。
4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。
8．表达式93 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c达式c>a And Not b10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print“30+60”, Print 30 + 60 ？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z五、编程题1．设计一个计算程序。
Vb 选择题精选版（试题加答案）一、选择题（1分×50=50分）1. 下面正确的赋值语句是__（1）_____。
A. X + Y = 10B. Y = π *R*RC. Y = X + 10D. 2y = X2. 当一个命令按钮的 （2） 属性设置为False 时，该按钮为灰白显示(不可用)。
A. VisibleB. EnabledC. BackcolorD. default3. 执行下列语句时，会出现出错提示的是 （3） 。
A. Print 32765+3B. Print 32768+3C. Print "56" + 56D. Print 5+7=144. 如果要在菜单的两个菜单命令项之间加一条分隔线，可在标题文本框中键入一个（4） 符号。
A.下划线B.@ C .连字符（-） D.&5. 下面哪一个是日期型常量 (5) 。
A ．"02/25/2005" B. #January 1,1993#C. "02/25/2005#D. #02/25/2005"6. 要声明一个长度为8个字符的定长字符串变量str ，以下 (6) 语句是正确的。
（A ）Dim str As String （B ）Dim str As String (8)（C ）Dim str As String [8] （D ）Dim str As String *87. 在窗体的通用声明中可以用 （7） 语句定义变量。
A. Dim 、PrivateB. Dim 、StaticC.Dim 、Public D . Dim 、Public 、Private8. （8） 语句是专门用来为数组或对象集合中的每个元素重复执行一组语句而设置的。
A. Select-Case-End SelectB. Do-LoopC. For-NextD. For Each-Next9. 若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用__(9)___关键字在该过程中定义局部变量。
练习卷五一、语言基础题（40分）判断题（本题10分，每小题1分）1. 可以在窗体的通用部分声明静态变量。
2. 事件过程也可以用Sub过程调用语句进行调用。
3. 表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。
4. 表达式 -5^2 > Rnd*10 的值为False.5. 对象的Top和Left属性值都必须大于或等于零。
6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。
7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。
8. 每个Vb对象都有Name属性。
9. 组合框ComboBox和列表框ListBox都有Selected属性。
10. CommonDialog 对象的ShowSave方法能保存用户指定的文件。
单选题（本题10分，每小题1分）1. 菜单条的顶层菜单控件＿＿。
[A] 不允许设置快捷键[B] 允许设置快捷键[C] 不存在ShortOut属性[D] 有子菜单时允许有快捷键2. 当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，＿＿。
[A] 该事件发生在文本框对象的KeyDown事件前。
[B] 该事件发生在文本框对象的KeyDown事件后。
[C] 随后便发生文本框对象的Lick事件。
[D] 随后便发生文本框对象的 GotFocus事件。
3. 程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值＿＿。
[A] 增加一个SmallChange量[B] 减少一个SmallChange量[C] 增加一个LargeChange量[D] 减少一个LargeChange量4. 执行Form1.Scale (10,-20)-(-30,20)语句后，Form1窗体座标系X和Y轴的正方向是＿＿。
[A] 向左和向下[B] 向右和向上[C] 向左和向上[D] 向右和向下5. 执行List1.List(List1.ListCount)= “80”语句后，＿＿。
[A]会产生出错信息[B] List1列表框最后一个表项被改为“80”[C] List1列表框会增加一个“80”表项[D] 指定List1列表框的表项个数为80个6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在＿＿。
[A] Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive和在Dir1的Change事件过程中加入代码[B] Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path ,在Dir1的Change事件中加入Dir1.Path = 代码[C] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入代码[D] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入代码7. 在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件过程中加入＿＿语句。
[A] Text1.Index=0 [B] Text1.TabIndex=0[C] Text1.Appearance=0 [D] Text1.Tag=08. 窗体Form、框架Frame、图片框Picture、图像框Image中＿＿是容器控件。
[A] Image、Form、Frame [B] Frame、Picture、Image[C] Picture、Image、Form [D] Form、Frame、Picture9. Dim B1,B2 As Boolean语句显式声明变量＿＿。
[A] B1和B2都为布尔型变量[B] B1是整型，B2是布尔型变量[C] B1是变体型，B2是布尔型变量[D] B1和B2都为是变体型变量10. 如果文本框Text1的GotFocus事件过程有Text1.Text=“abcd”: Text1.SelStart=1 :Text1.SelLength=2代码，程序运行时，当文本框获得焦点后，文本框内会＿＿。
[A] 显示abcd且ab字符被选取[B] 显示abcd且bc字符被选取[C] 显示选取的ab字符[D] 显示选取的bc字符填空题（本题20分，每小题2分）1. 表达式-2^2+43\5的值是＿＿＿＿。
2. 函数Int(Rnd*10)产生的随机数范围是＿＿＿＿。
3. 循环语句For I=20 To 10 Step –3.3 … Next的循环次数是＿＿＿＿。
4. 用＿＿＿＿方法可以在列表框中插入列表项。
5. Do Until 条件… Loop 循环结构中，当条件为＿＿＿＿时结束循环。
6. Text文本框能接受的最长字符数由文本框的＿＿＿＿属性确定。
7. 执行＿＿＿＿语句，会清除Picture1l图片框内的图片。
8. 如果要新建一个顺序文件，用Open语句时，操作方式关键词是＿＿＿＿。
9. 要设置命令按钮的背景色，首先必须使它的Style属性值设置为＿＿＿＿。
10.Msgbox函数的数据类型是＿＿＿＿。
二、程序阅读题（本题20分，每小题5分）1. 写出单击窗体的运行结果Private Sub Form_Click()For I=1 To 5Print Tab(11-I);For J=1 To I*2-1Print “*”;NextPrintNext IEnd Sub2. 写出单击窗体的运行结果Option Base 1Private Sub Form_Click()Dim a(5, 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5If j <= i Thena(i, j) = 1End IfPrint a(i, j); " ";Next jPrintNext iEnd Sub3. 程序运行时，连续二次单击窗体后，写出屏幕上显示的结果：Dim x As IntegerPrivate Sub Form_Load()x = 2End SubPrivate Sub Form_Click()Static a As IntegerDim b As Integer,y As Integerb = x ^ 2abc x, ba =a+ xy=y+bPrint a, b, x,yEnd SubSub abc(ByRef y As Integer, ByVal z As Integer)y = y + zz = y - zEnd Sub4. 写出单击窗体的运行结果Private Sub Form_Click()Dim a(4, 4) As IntegerDim c As Integer, r As IntegerDim i As Integer, j As Integer, k As Integerc = 4: r = 1: i = 1: j = 1For k = 1 To 16a(i, j) = kIf i < c And j = r Theni = i + 1ElseIf i = c And j < c Thenj = j + 1ElseIf i > r And j = c Theni = i - 1ElseIf i = r And j > r + 1 Thenj = j - 1End IfIf i = r And j = r + 1 Thenc = c - 1r = r + 1End IfNextFor i = 1 To 4For j = 1 To 4Print Tab(j * 4); a(i, j);If j = 4 Then PrintNextNextEnd Sub三、程序填空题（本题20分，每空2分）1.程序启动后，界面如右图所示：输入两点坐标，单击命令按钮，显示座标系、座标原点和两点的连线.Private Sub Form_Load()Command1.Caption = "显示连线"Picture1.Scale (-100, 100)-(100, -100)Frame1.＿＿(1)＿＿= "输入两点坐标"Label1.Caption = "x1"Label2.Caption = "y1"Label3.Caption = "x2"Label4.Caption = "y2"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.TabIndex = 0End SubPrivate Sub Command1_Click()Picture1.Currentx=-30Picture1.Currenty=0Picture1.Print ＿＿(2)＿＿Picture1.Line ＿＿(3)＿＿Picture1.Line ＿＿(4)＿＿Picture1.Line ＿＿(5)＿＿End Sub2.冒泡排序BubbleSort过程是冒泡排序过程,使a数组中的数按降序排列。
Swap过程交换两个变量数值。
GenerateData过程产生10个[1，20]之间互不相同的随机整数存入a数组。
程序如下：Private Const n = 10Private a(1 To n) As IntegerPublic Sub BubbleSort()Dim i As Integer, j As IntegerGenerateDatai = 1DoFor j = i + 1 To nIf a(j) > a(i) Then＿＿(1)＿＿End IfNext ji = i + 1Loop While ＿＿(2)＿＿Form1.Print "排序结果"For i = 1 To nForm1.Print a(i);Next iEnd SubPublic Sub GenerateData()Dim i As IntegerDim j As IntegerDim b As BooleanFor i = 1 To nb = FalseDo While ＿＿(3)＿＿a(i) = Int(20 * Rnd + 1)b = TrueFor j = 1 To ＿＿(4)＿＿If a(i) = a(j) Thenb = FalseExit ForEnd IfNext jLoopForm1.Print a(i)Next iEnd SubPublic Sub Sref a As Integer, Byref b As Integer)Dim temp As Integertemp = aa =＿＿(5)＿＿b = tempEnd Sub四、 程序设计题（本题20分，每小题10分）1. 通讯录程序设计：程序启动后，界面如右图所示：(1)当用户在文本框内输入完一个同学的记录后，单击“添加”命令按钮，则记录字段加入各数组和组合框的List 集内。
