资源描述：
《Visual Basic.NET程序设计实验实训指导 教学课件 作者 邱炳城 实验5 求平均值.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、VisualBasic.NET程序设计实验实验5求平均值7/24/2021【功能描述】通过对话框任意输入若干个数（每次输入一个数），求出输入的数据个数及它们的平均值。7/24/2021【实验内容】1．Do-Loop语句及For-Next语句的应用。2．ReDim语句的运用。3．UBound()、InputBox()、IIf()、Max()、InStr()函数的应用。4．TextBox控件外观的进一步设置。5．String对象的Length属性的应用。7/24/2021【实验目的】1．熟悉Do-Loop语句的格式、功
2、能及运用。2．理解数组的概念，掌握数组的定义、重定义的方法及数组的使用方法。3．掌握数组元素的输入、输出的基本方法。4．掌握字符串的处理方法。7/24/2021【预备知识】1．Do-Loop语句2．数组3．ReDim语句4．相关函数7/24/2021【实验步骤】1．创建及保存项目2．“即时”窗口的使用3．窗体设计4．程序设计5．程序调试6．程序改进7/24/2021【问题与思考】-11．与InStr()函数功能类似的另一个函数是InStrRev()，另外，字符串对象String有两个方法IndexOf()和Last
3、IndexOf()，试通过联机帮助比较这四者的功能及使用方法的异同。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()函数及其它函数写出满足要求的表达式。7/24/2021【问题与思考】-23．本实验的主要目的是为了学习数组的
4、声明及数组元素的输入、输出的基本方法，下面代码没有使用数组同样完成本实验的程序功能。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsumAsDouble,iAsInteger=1Dimx,s,msAsStringDox=InputBox(ms&vbCrLf&vbCrLf&"现输入第"&i&"个数")Ifx<>""Thensum+=Val(x)s&=Val(x)ms=
5、"共输入了"&i&"个数："&vbCrLfTextBox1.Text=ms&s&vbCrLf&"它们的平均值是："&sum/ims&=IIf(s.Length<47,s,"..."+_Mid(s,InStr(Math.Max(s.Length-46,1),s,",")+1))s&=","i+=1EndIfLoopUntilx=""EndSub（1）新建一个项目运行上面程序，并比较运行过程和结果与本实验的程序的运行过程和结果的异同。（2）分析上面代码中这些函数的作用：Math.Max(s.Length-46,1)In
6、Str(…,s,",")Mid(s,…)IIf(s.Length<47,s,…)7/24/2021Do-Loop语句–格式1在实验3和实验4中，我们已学习过For-Next语句的应用。对于For语句，一般是在已知循环次数时使用它。当循环次数未知，需要达到某一条件才结束循环时，通常使用Do-Loop语句。格式1DoWhilecondition语句sLoop当条件condition为True时重复执行“语句s”，直到condition为False时退出循环。7/24/2021Do-Loop语句–格式2DoUntilco
7、ndition语句sLoop当条件condition为False时重复执行“语句s”，直到condition为True时退出循环。7/24/2021Do-Loop语句–格式3Do语句sLoopWhilecondition重复执行“语句s”，当条件condition为False时退出循环。7/24/2021Do-Loop语句–格式4Do语句sLoopUntilcondition重复执行“语句s”，直到condition为True时退出循环。7/24/2021Do-Loop语句–格式的区别上面的4种格式中，格式1与格式
8、3类似，格式2与格式4类似，不同的是，格式1和格式2是先判断循环条件再执行循环体，而格式3和格式4是先执行循环体然后再判断循环条件。也就是说，格式3和格式4至少循环一次，而格式1和格式2有可能一次循环都没有。另外，格式1也可以写成：Whilecondition语句sEndWhile7/24/2021例5-1摸球假设黑箱里有30个大小一致的小球，编号为1、2、
