数组和数组的操作课件

4.1数组和数组的操作11谢谢观赏2019-8-234.1数组和数组的操作11谢谢观赏2019-8-23数组的定义Dimresult(3)asstring表示定义了:result(0)、result(1)、result(2)、result(3)Dim数组变量名(a1toa2)

as元素的类型2谢谢观赏2019-8-23数组的定义Dimresult(3)asstringDi复习：随机数Rnd:[0,1)，产生一个大于等于0且小于1的随机数。在用Rnd之前请添加这个语句：Randomize产生[n,m]之间的随机数通式：int(Rnd*(m-n+1))+n3谢谢观赏2019-8-23复习：随机数Rnd:[0,1)，产生一个大于等于0且小于1产生-100到100之间的数定义全局（窗体）数组变量i，类型为整形。窗体载入即产生500个”-100到100”之间的数，在list1中输出。参考：Forx=1To500i(x)=Int(Rnd*201-100)List1.AddItemi(x)Next4谢谢观赏2019-8-23产生-100到100之间的数定义全局（窗体）数组变量i，类型复习：过程（局部）变量与窗体变量5谢谢观赏2019-8-23复习：过程（局部）变量与窗体变量5谢谢观赏2019-8-23求出平均值结果输出在label1中。6谢谢观赏2019-8-23求出平均值结果输出在label1中。6谢谢观赏2019-8-求出最大值和最小值结果输出在label1中。7谢谢观赏2019-8-23求出最大值和最小值结果输出在label1中。7谢谢观赏201求所有的正数和使用DO循环结果输出在label1中。s=0n=1DoWhilen<=500Ifi(n)>0Thens=s+i(n)n=n+1LoopLabel1.Caption="所有正数和："&s8谢谢观赏2019-8-23求所有的正数和使用DO循环s=08谢谢观赏2019-8-统计正数的个数使用DO循环结果输出在label1中。s=0n=1DoWhilen<=500Ifi(n)>0Thens=s+1n=n+1LoopLabel1.Caption="正数的个数："&s9谢谢观赏2019-8-23统计正数的个数使用DO循环s=09谢谢观赏2019-8-相邻元素的最大差值如“-10,0,20,-10,1”中，相邻元素的最大差值为20-(-10)，即30。s=0Forn=1To499IfAbs(i(n)-i(n+1))>sThens=Abs(i(n)-i(n+1))NextLabel1.Caption="相邻元素的最大差值："&s10谢谢观赏2019-8-23相邻元素的最大差值如“-10,0,20,-10,1”中，相邻最长连续上升子序列个数把数组中的数据看成经济指数，可以求出哪几年是连续增长的，并且增长了几年。如“2,1,3,7,5,8”中，连续上升的是”1,3,7”，一共3个。temp=1Max=1Forn=1To499Ifi(n)<i(n+1)Thentemp=temp+1Elsetemp=1EndIfIftemp>MaxThenMax=tempNextLabel1.Caption="最长连续上升子序列个数："&Max11谢谢观赏2019-8-23最长连续上升子序列个数把数组中的数据看成经济指数，可以求出哪寻找众数众数（Mode）是统计学名词，是一组数据中出现次数最多的数值，叫众数，有时众数在一组数中有好几个。12谢谢观赏2019-8-23寻找众数众数（Mode）是统计学名词，是一组数据中出现次数最参考代码'本代码不能区分有多个众数的情况Dimx(-100To100)AsIntegerForn=1To500

x(i(n))=x(i(n))+1NextMax=0Forn=-100To100IfMax<x(n)ThenMax=x(n)flag=nEndIfNextLabel1.Caption="众数为："&flag&"；一共出现次数为："&Max建一个新数组x，编号等于数组i的内容，内容为x(n)在数组i中的个数13谢谢观赏2019-8-23参考代码'本代码不能区分有多个众数的情况建一个新数组x，编号数组i数组x分析14谢谢观赏2019-8-23数组i数组x分析14谢谢观赏2019-8-23数组i数组x分析思考：1.70不能做编号，怎么办？15谢谢观赏2019-8-23数组i数组x分析思考：1.70不能做编号，怎么办？15谢谢观课堂任务产生640个30-100的数字，完成基本任务：统计及格人数、众数。（选做）计算“方差”。第1次循环算平均值，第2次循环算“每个数和平均值”的平方，最后算方差的平均值。方差是各个数据与平均数之差的平方的平均数。在概率论和数理统计中，方差（英文Variance）用来度量随机变量和其数学期望（即均值）之间的偏离程度。在许多实际问题中，研究随机变量和均值之间的偏离程度有着很重要的意义。16谢谢观赏2019-8-23课堂任务产生640个30-100的数字，完成基本任务：方差是参考代码DimsAsDouble,xAsDoubles=0Forn=1To640s=s+i(n)Nextx=x/640s=0Forn=1To640s=s+(i(n)-x)^2NextLabel1.Ca