VB程序设计复习资料.doc

VB程序设计基础复习资料班级：12机械设计制造及其自动化工本教学大纲一、课程的性质与目的和任务Visual Basic是可视化编程的、面向对象的、由事件驱动的结构化程序设计语言，具有简单易学、直观形象、功能丰富、使用灵活等多方面的优点。通过该课程的学习，掌握面向对象的程序设计方法，培养学生利用计算机解决实际问题的能力。教学目的和任务： 掌握用VB编制应用程序的基本方法。 熟悉VB的常用控件，以及常用控件的常用属性，能熟练地阅读、理解、编制简短的VB程序，并上机调试。 掌握掌握面向对象程序设计的方法和编程技巧，能够灵活的使用VB编制解题程序。二、课程的教学内容和基本要求 第一章 Visual Basic 6.0 概述教学内容：编制VB应用程序的基本步骤；VB集成环境；VB的术语及相关概念；实例。基本要求：熟悉VB开发环境以及菜单、工具箱、工具栏、窗体、工程窗口和属性窗口的使用。掌握应用程序（一个工程）的开发过程，如：添加窗体、模块，保存工程。了解面向对象程序设计、可视化编程、事件驱动等基本概念。 第二章 基本数据类型与表达式教学内容：数据类型、常量与变量；运算符、表达式、常用内部函数； InputBox函数和MsgBox函数。基本要求：了解不同类型数据（常量、变量）的定义和使用方法；在熟悉常用函数的基础上，能够根据数学式、关系式写出VB表达式。 第三章 顺序结构与常用控件 教学内容：Print语句、赋值语句；建立控件，命令按钮控件，标签框控件，文本框控件。 基本要求：熟悉以上控件的常用属性、方法，能够使用命令按钮或文本框控件用于编程（所谓常用属性、方法，是指教材中着重介绍或在例题中多次使用的属性、方法）。 第四章 选择结构与常用控件 教学内容：选择结构；单选按钮控件，复选框控件，框架控件。基本要求：掌握选择结构（行If、块If、Select Case），控件的常用属性、方法，根据解题需要正确地选择控件、编制控件的相应事件过程。第五章 循环结构教学内容：for 循环,当循环，do 循环，多重循环基本要求：正确使用循环结构（For/Nex、Exit For、Do/Loop、Exit Do、While/Wend）第六章 数组和基他控件教学内容：数组，数组的应用举例，控件数组，列表框和组合框控件，滚动条控件，定时器控件。基本要求：熟练掌握数组的定义、表示与使用；要求熟悉数组的选择排序（分类）或冒泡法等常用算法；以上控件的常用属性、方法，利用已学的控件建立控件数组。根据解题需要正确地选择控件、编制控件的相应事件过程。第七章 过程教学内容：函数过程与SUB过程。基本要求：掌握Sub过程的定义与调用、Function函数过程的定义与调用；理解参数传递规则；变量和常量的作用域及生存期，包括相关的声明语句或关键字。第八章 图形控件与图形方法 教学内容：VB坐标系，图片框控件，影像框控件，形状控件和直线控件，图形方法 基本要求：以上控件的常用属性、方法；改变VB坐标系；画点、线（矩形）、圆（弧与椭圆）；正确地使用颜色。 第九章 对话框与菜单 教学内容：通用对话框控件，菜单设计 基本要求：通用对话框控件的建立和使用（如何打开不同对话框？对话改变了控件的属性是什么？）；用菜单编辑器创建菜单；掌握菜单的常用属性；掌握菜单的Click事件。 第十章 文件 教学内容：与文件操作有关的控件，直接调用外部可执行文件的Shell方法，数据文件的操作。基本要求：理解文件的概念；熟练掌握驱动器列表框、目录列表框和文件列表框的功能和综合作用；顺序文件的基本操作。第十一章 数据库的应用教学内容：数据库的基本知识；数据控件基本要求：会建立简单的数据库，并会使用常用的数据控件。三、学习进度 四、课程考核方式及题型 本课程采用一页开卷考试，题目类型见五套样卷，题型和样卷一致。五、教材省教育厅重点教材Visual Basic 6.0程序设计，2007年8月浙江大学出版社，张健等编。 VB练习题（一）一、判断题 （每题 1 分，共 10 分）（ ）1. 由Visual Basic语言编写的应用程序有解释和编译两种执行方式。（ ）2. 文本框控件的MaxLength属性值为0时，在文本框内不可以输入任何字符。（ ）3. 要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。 （ ）4. 在一个窗体中不能使用Unload来卸载本窗体，即一个窗体只能由其它窗体卸载。（ ）5. VB的Double类型数据，可以精确表示其数值范围内的所有实数。（ ）6. 在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。（ ）7. 命令按钮不但能响应单击事件，而且还能响应双击事件。（ ）8. 在自定义函数过程中，函数名必须被赋值。（ ）9. 文本框控件只能响应KeyPress、KeyDown、KeyUp、Change事件。（ ）10. 如果一个菜单项的Visible属性为False，则它的子菜单也会显示。二、单选题 （每题 2 分，共 20 分）（ ）11. 要改变控件的高度，应修改控件的_属性。 A、Top B、 Left C、 Height D、Width （ ）12. VB算术运算符乘或除、整除、求余的优先级，从高到低依次为_。A、乘或除、求余、整除 B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余（ ）13. 下列哪个属性用来表示标签（Label）的内容和窗体（Form）的标题_。 A、Caption B、Text C、Left D、Name（ ）14. 判断整型变量m能否被n整除的VB表达式为_。A、n Mod m=0 B、m/n*n=m C、m Mod n D、mn*n=m（ ）15. 选中复选框控件时，Value属性的值为_。 A、True B、False C、0 D、1（ ）16. 在窗体Form1的一个事件过程中，使用_来清除窗体上所绘制的图形的方法是不正确的。 A、Form1.Cls B、Form.Cls C、Me.CLS D、Cls（ ）17. 设计动画时通常用时钟控件_属性来控制动画速度。 A、Interval B、 Timer C、 Move D、 Enabled（ ）18. 使用Circle方法不可以绘制的图形是_。A、圆角矩形 B、椭圆 C、圆饼图 D、扇形（ ）19. 运行时组合框控件Comb1中所选择的表项，可以表示为_。 A、Comb1.Text B、Comb1.ListIndex C、Comb1.List D、Comb1.ListCount（ ）20. 若i的初值为9，则下列循环语句的循环次数为 _次。 Do While ia(j) Then m=a(i) (23) a(j)=m Next jNext i For i=1 To 30 If (24) Then (25) Next iEnd Sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序说明】下列程序运行时，单击Command1(0)后，图片每秒自动左移1毫米，单击Command1(1)停止移动（当图片尾部移出窗体后，图片从窗体右端进入窗体）。界面设计如下图1所示。图1 程序2的界面设计【程序】 Private Sub Command1_Click(Index As Integer) If Index=0 Then (26) Else Timer1.Enabled=False End Sub Private Sub Form_Load() Timer1.Interval = (27) Form1.ScaleMode = 6 (28) End Sub Private Sub Timer1_Timer() Picture1.Left = (29) If Picture1.Left + Picture1.Width = Form1.ScaleLeft Then _ (30) = Form1.ScaleLeft + Form1.ScaleWidth End Sub（26） (27) (28 ) (29 ) (30 ) 四、程序阅读题（每小题5分，共 20 分）程序31、请写出单击窗体三次后，窗体上的显示结果。Private Sub Form_Click() Static a As Integer Dim b As Integer b = a + b + 2 a = a + b Form1.Print a=; a, b=; bEnd Sub程序32、 请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click() For i% = 1 To 7 Print Spc (7- i) ; For j% = 1 To (2 * i%) - 1 : Print M ; : Next j% Print Next i%End Sub程序33、写出程序运行时，单击Option1(2)后，窗体上的显示结果。Private Sub Form_Load() Option1(0).Value=FalseOption1(1).Value=FalseOption1(2).Value=FalseEnd SubPrivate Sub Option1_Click(Index As Integer) If Option1(Index).Value=True Then Select Case Index Case 0 Check1(0).Value=1: Check1(1).Value=0 Case 1 Check1(0).Value=0: Check1(1).Value=1 Case 2 Check1(0).Value=1: Check1(1).Value=1 End Select If Check1(0).Value=1 Then Print 您好 If Check1(1).Value=1 Then Print 欢迎使用Visual Basic! End IfEnd Sub程序34、设Text1.Text为 abcdef，运行时连续单击3次控件HScroll1右侧箭头后，分别写出组合框控件中的第1项、第2项及第3项的内容。Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.ClearEnd SubPrivate Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub 五、程序设计题 （每题 10 分，共 30 分）35编制事件过程Command1_Click，执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件Text1中显示。（10分）36. 编制通用函数过程fsum ，计算Single类型一维数组所有元素的和。（10分）37. 在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用Visual Basic！”同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初态。（10分）VB练习题（一）参考答案试题一、判断题（每小题1分，共10分）1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 试题二、单选题（每小题2分，共20分）11. C 12. B 13. A 14. D 15. D 16. B 17. A 18.A 19. C 20. B试题三、程序填空题（每空2分，共20分）21Int(Rnd*90)+10 22. i+1 To 30 23. a(i) = a(j) 24. a(i) Mod 20 25. Print a(i); 26. Timer1.Enabled=True 27. 1000 28. Timer1.Enabled = False 29. Picture1.Left-1 30. Picture1.Left试题四、程序阅读题(每小题5分，共20分)31. a = 2 b = 2 a = 6 b = 4 a = 14 b = 8 32. M MMM MMMMM MMMMMMM MMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMM33.您好 欢迎使用Visual Basic!34. abcd abc ab 试题五、程序设计题（每小题各10分，共30分）35编制事件过程Command1_Click，执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件Text1中显示。Private Sub Command1_Click() Dim s As Single, n As Integer, x As Single n=InputBox(输入n) For i=1 To n x=InputBox(x=): s=s+x Next i Text1.Text=sEnd Sub36. 编制通用函数过程fsum，计算Single类型一维数组所有元素的和。 Private Function fsum(a() As Single, n As Single) As Single Dim i As Integer For i = 1 To n fsum = fsum + a(i) Next i End Function37. 在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。Private Sub Command1_Click() If Command1.Caption = 显示 Then Print 欢迎使用Visual Basic！ : Command1.Caption = 清除 Else Form1.Cls : Command1.Caption = 显示 End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Form1.Cls : Command1.Caption = 显示End SubVB练习题（二） 一、判断题 （每题 1 分，共 10 分）（ ）1VB是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。（ ）2用DIM定义数值变量时，该数值变量自动赋初值为0。（ ）3移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。（ ）4列表框和文本框一样均没有Caption属性，但都具有Text属性。（ ）5图片框可以通过Print方法来显示文本。（ ）6语句“FontName = 宋体”与“Form1.FontName = 宋体”的作用完全相同，无一例外。（ ）7SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。（ ）8由于定时器控件在运行时是不可见的，因此在设置时可任意地将其放在任何位置。（ ）9表示各控件对象的变量名的属性为Caption。（ ）10. 决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。二、单选题 （每题 2 分，共 20 分）（ ）11下列哪个属性用来表示各对象（控件）的位置_。A、Text B、Caption C、Left D、Name（ ）12List1.Clear中的Clear是_。A、方法 B、对象 C、属性 D、事件（ ）13将文本框控件的_属性设置为True，可正常显示文本但不可编辑。 A、Locked B、EnabledC、MultiLine D、Visible（ ）14取字符串Ax从第1个非空格符开始的连续5个字符，写作表达式_。A、Mid(Ax,1,5) B、Left(Trim(Ax),5) C、Left(Ax,5)D、Mid(Trim(Ax),5)（ ）15数学式 (x+5)1/3 写成VB表达式是_。A、(x+5)1/3B、(x+5)(13) C、(x+5)13 D、(x+5)(1/3)（ ）16要使Shape控件以实心方式填充，应该设置其_属性。A、FillColor B、FillStyle C、BackStyle D、Shape（ ）17将命令按钮Command1设置为不可见，应修改该命令按钮的_属性。A、Visible B、Value C、Caption D、Enabled（ ）18将变量x、y中的最大数赋值给变量a，正确的表示为_。 A、a= If yx Then y Else x B、If yx Then a=y: a=x C、a=x: If yx Then a=y D、If yx Then a=y Else a=x End If（ ）19文本框控件Text4的Text属性默认值为_。A、Text4 B、Text4 C、Locked D、Name（ ）20描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，正确的是_。 A、Circle(1000,1000),400,0,3.1415926/2 B、Circle(1000,1000),400,0,3.1415926/2 C、Circle(1000,1000),400,0,3.1415926/2 D、Circle(1000,1000),400,0,90三、程序填空题 （每空 2 分，共 20 分） 1【程序说明】 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）图1 动态秒表 程序代码如下： Dim x As Long Dim h As Integer, m As Integer, s As Integer Private Sub Form_Load() Form1.Caption = 动态秒表（小时：分：秒） Command1.Caption = 开始 Command2.Caption = 结束 Label1.Alignment =”Center” Label1.Caption = 0: 0: 0 Timer1.Interval= (21) Timer1.Enabled = False x = 0 End Sub Private Sub Command1_Click() (22) End Sub Private Sub Command2_Click() Timer1.Enabled = False x = (23) Label1.Caption = 运行了+Str(h)+小时+Str(m)+_ 分+Str(s)+秒 End Sub Private Sub Timer1_Timer() (24) h = x 3600 m = (x Mod 3600) 60 s = (25) Label1.Caption = Str(h) + : + Str(m) + : + Str(s)End Sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序说明】本程序将1个大于100的偶数n分解为2个素数之和。其中nflag逻辑型函数用于判断自然数x是否为素数。 Private Sub Form_Click()Dim n As Integer,x As Integer,y As Integern = Val(InputBox(”请输入1个大于100的偶数”，”输入数据”，100)For x = 3 To n 2 Step 2If nflag(x) Theny = (26) If nflay(y) ThenForm1.Print n; ”=”; x; ”+”; y : Exit ForEnd IFEnd If (27) End SubFunction nflag(x As Integer)Dim flag As Boolean k = 2 : m = Int(Sqr(x)flag = (28) Do While k 1 If x Mod i = 0 Then Print i; : x = x i Else i = i + 1 LoopEnd Sub程序33、顺序写出运行时在文本框控件Text1中输入abcd后，列表框控件List1中的各表项。 Dim s As String Private Sub Form_Load() List1.Clear Text1.Text = End Sub Private Sub Text1_Change() s = s + Text1.Text List1.AddItem sEnd Sub程序34、运行下面程序，并输入数据分别为129，32，53时，写出label1显示的内容。Private Sub Form_Click()Dim a As Integer a = Val(InputBox(请输入数据,100)Select Case a mod 5Case Is 4w = a + 10Case Is 2w = a * 2Case Elsew = a - 10End SelectLabel1.Caption = w= & Str(w)End Sub五、程序设计题 （每题 10 分，共 30 分）35. 随机产生n 个两位正整数（n由输入对话框输入，且0n100）,求出其中的偶数之和，并在标签框Label1上显示。（10分）36.编程，输入x值，按下式计算并输出y值。（10分）37.在窗体上建立4个命令按钮Command1、Command2、Command3和Command4,运行结果如下图2。（10分）要求： 命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。 每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。 单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。 4个按钮每单击一次都在窗体上显示“欢迎使用VB”。 双击窗体后可以退出。图2 运行后的显示结果VB练习题（二）参考答案试题一、判断题（每小题1分，共10分）1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 试题二、单选题（每小题2分，共20分）11. C 12. A 13. A 14. B 15. D 16. D 17. A 18.C 19.B 20. C试题三、程序填空题（每空2分，共20分）211000 22. Timer1.Enabled = True 23. 0 24. x = x + 1 20 25. s=xMod3600Mod60 26. n - x 27. next x 28. flag = true 29. k = k + 1 30. flag试题四、程序阅读题(每小题5分，共20分)31. L 32. 2 2 3 5 H F D B 33. a aab aababc aababcabcd 34. w=119 w=42 w=63 试题五、程序设计题（每小题各10分，共30分）35. 随机产生n 个两位正整数（n由输入对话框输入，且0n100）,求出其中的偶数之和，并在标签框Label1上显示。（10分）Private Sub Form_Click()Dim n As Integer, s as Single, a(100) as IntegerS=0 Do n=InputBox(输入n(0n100):)Loop While n 100For i=1 To na(i)= Int(Rnd*90)+10Next iFor i=1 To 30 If a(i) Mod 2=0 Then s=s+a(i) Next iLabel1.Caption=sEnd Sub36.编程，输入x值，按下式计算并输出y值。（10分）Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox(请输入X的值：) If x 4 Then y = 3*x - 2 ElseIf x = 2 And x -3 And x 2 Then y = Sqr(x+8) Else y = 0 End If Print 当X=; x; 时, y=; yEnd Sub37. 在窗体上建立4个命令按钮Command1、Command2、Command3和Command4,运行结果如下图2。（10分） 界面设计（略） 过程设计Private Sub Command1_Click() Form1.FontSize = Form1.FontSize + 3 : Form1.Print 欢迎使用VBEnd SubPrivate Sub Command2_Click() Form1.FontSize = Form1.FontSize - 3 : Form1.Print 欢迎使用VBEnd SubPrivate Sub Command3_Click() Form1.FontBold = True : Form1.Print 欢迎使用VBEnd SubPrivate Sub Command4_Click() Form1.FontBold = False : Form1.Print 欢迎使用VBEnd SubPrivate Sub Form_DblClick() EndEnd Sub程序运行后，单击Command1两次后，单击Command2、Command3、Command4各一次，将显示如图2所示的结果。单击窗体右上角的“关闭”按钮，可以退出运行。此外，双击窗体时调用了事件过程DblClick，也可以退出运行。VB练习题（三）一、判断题 （每题 1 分，共 10 分）（ ）1. 面向对象的程序设计是一种以对象为基础、由事件驱动对象执行的设计方法。对（ ）2. 窗体的WindowState属性是可读写属性。对（ ）3单选按钮能响应Click事件，但不能响应KeyPress事件。错（ ）4. 定时器控件的Interval属性是只读属性。错（ ）5. 由于定时器控件在运行时是不可见的，因此在设置时可任意地将其放在任何位置。对（ ）6. 控件的属性值不可以在程序运行时动态地修改。错（ ）7. 事件过程可以由某个用户事件触发执行，它不能被其他过程调用。错（ ）8. 用Cls方法能清除窗体或图片框中用Picture属性设置的图形。错（ ）9. 在过程中用DIM语句或Const语句定义的变量或符号变量是局部变量或局部符号常量。对（ ）10. 目录路径列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。对二、单选题 （每题 2 分，共 20 分）（ ）11一个对象可以执行的动作和可被对象识别的动作分别称为_。A、事件、方法 B方法、事件 C属性、方法 D过程、事件（ ）12滚动条的_属性用于指用户单击滚动条的滚动箭头时，Value属性值的增减量。A、LargeChange B、SmallChange C、Value D、Change（ ）13函数 InStr(windowse, Mid(winnt,2,2) 的返回值是_。A、0 B、1 C、2 D、3（ ）14条件“m、n不同时为0”写作VB的表达式为_。 A、m=0 And n0 B、m+n=0 C、Not(m=0 And n=0) D、m*n=0（ ）15由For k=35 To 0 Step 3: Next k 循环语句控制的循环次数是_。A、 0 B、 12 C、 11 D、 10（ ）16按Tab键时，焦点在各个控件之间移动的顺序是由_属性来决定的。A、Index B、TabIndex C、TabStop D、SetFocus（ ）17改变控件在窗体中的上下位置应修改该控件的_属性。A、Top B、Left C、Width D、Right（ ）18Int( Rnd * 10 ) 表示的是_范围内的整数。 A、0，10 B、1，9 C、0，9 D、1，10（ ）19_对象不具有Caption属性。A、Label B、Option C、Form D、Timer（ ）20编制一个对Single类型一维数组排序的Sub过程，该过程只能被本模块中其他过程所调用，其首句为_。 A、Sub f(a() As Single, n As Integer)B、Public Sub f(a() As Single) C、Private Sub f(a(n) As Single,n As Integer) D、Public Sub f(a() As Single,n As Integer)三、程序填空题 （每空 2 分，共 20 分） 1【程序说明】窗体上有两个命令按钮：Command1（显示）和Command2（退出）。下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符“*”组成的6层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应，运行结果如图1所示。图1 金字塔Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 6 Print Spc(24 - i); For j = ( 21 ) Print *; Next j ( 22) Next i Command1.Enabled = False( 23 ) End SubPrivate Sub Command2_Click() ( 24 ) End SubPrivate Sub Form_Load() Command1.Enabled = True ( 25 ) End Sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序说明】单击窗体后，用输入对话框输入x、n，按下式计算结果。要求：将计算结果以标签控件显示，且每秒钟随机变换一次颜色。【程序】Dim s As SinglePrivate Sub Form_Load() Timer1.Interval = (26) Timer1.Enabled = FalseEnd SubPrivate Sub Form_Click() Dim x As Single, n As Integer, i As Integer, t As Single s = 0: x = InputBox(x=): n = InputBox(n=) (27) For i =2 To n + 1 t = t * x / i (28) Next i (29) End SubPrivate Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label1.Caption = (30) End Sub（26） (27) (28 ) (29 ) (30 ) 四、程序阅读题（每小题5分，共 20 分）程序31、顺序写出运行时执行下列事件过程的显示结果。Private Sub Command1_Click() For i = 2 To 20 If i Mod 2 = 1 And i Mod 5 = 3 Then Print i Next i Print iEnd Sub程序32、下列过程f的功能是对相应实参数组按绝对值从大到小排序；运行时单击命令按钮控件Command1后，写出窗体上的显示结果。 Private Sub f(a() As Single, n As Integer) Dim i As Integer, j As Integer, k As Integer, t As Single For i = 1 To n - 1 k = i For j = i + 1 To n if abs(a(j) abs(a(k) Then k = j Next j t = a(k): a(k) = a(i): a(i) = t Next iEnd SubPrivate Sub Command1_Click() Dim x(5) As Single x(1) = 5: x(2) = -7: x(3) = 5: x(4) =