新Visual Basic.NET程序设计实验实训指导 教学课件 邱炳城 实验6 数值排序.pptVIP

Visual Basic.NET程序设计实验实验6 数值排序 【功能描述】 从程序窗口的文本框中任意输入的用逗号分隔的十个数值，程序能将它们从小到大进行排序，并在窗口的文本标签中输出排序结果。 【实验内容】 1．Do-Loop语句及For-Next语句的应用。 2．On Error语句的运用。 3．Array对象及其应用。 【实验目的】 1．掌握Do-Loop语句的格式、功能及运用。 2．熟悉On Error语句的格式、功能及运用。 3．熟悉Array类的属性、方法及其应用。 4．掌握字符串的处理方法。 【预备知识】 1．On Error语句 2．Array类 3．相关函数 【实验步骤】 1．创建及保存项目 2．“即时”窗口的使用 3．窗体设计 4．程序设计 5．程序调试 6．程序改进 【问题与思考】-1 1．通过联机帮助学习Err对象的有关属性与方法。 2．改写如图6-3所示的程序代码中的第16-20行，使数值从大到小排列。 3．字符串对象String有Split()和Join()两个方法，试比较它们与Split()和Join()函数的功能及使用方法的异同。 【问题与思考】-2 4．下面代码实现的功能与如图6-3所示的程序代码实现的功能相同，试分析两者实现方法的异同。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9) As Double, i As Integer Dim b() As String = Split(TextBox1.Text, ,, 10) Dim x As String = 排序结果： vbCrLf For i = 0 To 9 a(i) = Val(b(i)) Next Array.Sort(a) For i = 0 To 9 x = a(i) , Next Label2.Text = Mid(x, 1, x.Length - 2) TextBox1.Focus() End Sub 【问题与思考】-3 5．通过联机帮助或互联网查询有关资料，采用正则表达式处理字符串的方法，使程序的运行结果如图6-4所示。 On Error语句 在实验1中已学习过结构化异常处理的Try语句，除此之外，对于异常处理，还可以使用非结构化异常处理语句On Error来保证程序的正常运行。On Error语句用于指示当程序运行发生错误时应当如何处理。 On Error语句的常用格式是： On Error Resume Next 该语句通常放在一个过程的开始位置，指示程序运行时如果发生错误，则跳过有错误的语句，继续执行下一句。 一般会预测有可能出错的语句，然后调用错误对象Err的错误号属性Number进行异常处理。错误号是一个整数。没有错误时，Err.Number=0。发生错误时，Err.Number0，可由If语句或Select Case语句进行判断并处理。 On Error语句 示例 如果用户在文本框TextBox1.Text中输入的内容不是数字，则语句“y = TextBox1.Text”会发生错误。这时，Err.Number0，由If语句判断处理并退出当前过程。 On Error Resume Next Dim y As Integer y = TextBox1.Text If Err.Number 0 Then MsgBox(请输入一个数!) Exit Sub End If …… 通常，当处理完错误后，如果不使用Exit Sub或Exit Function退出当前过程，则应使用Clear()方法清除Err对象，即执行语句Err.Clear()。 Array类 Array类提供创建、操作、搜索和排序数组的方法。 ◆Clear()方法 将数组中的一系列元素设置为默认值。调用格式为： Array.Clear(array, index, length) 其中 array —— 要进行操作的数组。 index —— 从第几个元素开始。要求：0 ≤ index ≤ array.length - 1 length —— 要处理几个元素。要求：length ≥0 且 index + length ≤ array.length