Visual Basic.NET程序设计实验实训指导 教学课件 作者 邱炳城 实验5 求平均值.pptVIP

Visual Basic.NET程序设计实验实验5 求平均值 【功能描述】 通过对话框任意输入若干个数（每次输入一个数），求出输入的数据个数及它们的平均值。 【实验内容】 1．Do-Loop语句及For-Next语句的应用。 2．ReDim语句的运用。 3．UBound()、InputBox()、IIf()、Max()、InStr()函数的应用。 4．TextBox控件外观的进一步设置。 5．String对象的Length属性的应用。 【实验目的】 1．熟悉Do-Loop语句的格式、功能及运用。 2．理解数组的概念，掌握数组的定义、重定义的方法及数组的使用方法。 3．掌握数组元素的输入、输出的基本方法。 4．掌握字符串的处理方法。 【预备知识】 1．Do-Loop语句 2．数组 3．ReDim语句 4．相关函数 【实验步骤】 1．创建及保存项目 2．“即时”窗口的使用 3．窗体设计 4．程序设计 5．程序调试 6．程序改进 【问题与思考】-1 1．与InStr()函数功能类似的另一个函数是InStrRev()，另外，字符串对象String有两个方法IndexOf()和LastIndexOf()，试通过联机帮助比较这四者的功能及使用方法的异同。 2．有字符串s = 29,309,264,120,3,409,8,54,520,40,1,360,47,52,602,190,230，现需要从它的右边取最多n个字符，要求结果不能截断数字且不能以逗号开头。如，要取出右边10个字符，则取出的结果应为190,230，而不能是02,190,230，也不能是,190,230。试用Mid()函数及其它函数写出满足要求的表达式。 【问题与思考】-2 3．本实验的主要目的是为了学习数组的声明及数组元素的输入、输出的基本方法，下面代码没有使用数组同样完成本实验的程序功能。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sum As Double, i As Integer = 1 Dim x, s, ms As String Do x = InputBox(ms vbCrLf vbCrLf 现输入第 i 个数) If x Then sum += Val(x) s = Val(x) ms = 共输入了 i 个数： vbCrLf TextBox1.Text = ms s vbCrLf 它们的平均值是： sum / i ms = IIf(s.Length 47, s, ... + _ Mid(s, InStr(Math.Max(s.Length - 46, 1), s, ,) + 1)) s = , i += 1 End If Loop Until x = End Sub （1）新建一个项目运行上面程序，并比较运行过程和结果与本实验的程序的运行过程和结果的异同。 （2）分析上面代码中这些函数的作用： Math.Max(s.Length - 46, 1) InStr(…, s, ,) Mid(s, …) IIf(s.Length 47, s, …) Do-Loop语句 –格式1 在实验3和实验4中，我们已学习过For-Next语句的应用。对于For语句，一般是在已知循环次数时使用它。当循环次数未知，需要达到某一条件才结束循环时，通常使用Do-Loop语句。 格式1 Do While condition 语句s Loop 当条件condition为True时重复执行“语句s”，直到condition为False时退出循环。 Do-Loop语句 –格式2 Do Until condition 语句s Loop 当条件condition为False时重复执行“语句s”，直到condition为True时退出循环。 Do-Loop语句 –格式3 Do 语句s Loop While condition 重复执行“语句s”，当条件condition为False时退出循环。 Do-Loop语句 –格式4