VB数组与查找技术导学.doc

VB数组与查找技术导学 东风高中刘丽梅 【】【】 一、知识结构要点 1-1、VB窗体/工具箱《教科P14》《广东P77》 1-2、VB控件属性《教科P17》《广东P81》 1-3、VB控件数组《教科P60》《广东P78》 TEXT1——复制——粘贴——问“创建控件数组？选择[是Y] 1-4、数组概念《教科P50》《广东P115》 有限个类型相同的下标变量（或分量或数组元素）的集合。 Dim a(60) AS single RAM a(0) a(1) a(2) …… a(60) 1-5、程序功能复习回顾 界面设计操作 2-1在VB窗体添加一个文本控件text1 用鼠标单击text1控件，“复制——粘贴”命令执行时，会弹出一个消息框“已经有一个控件text1，创建一个控件数组吗？”《教科P60》《广东P78》 选择“是（Y）”。 再用同样的方法，粘贴八个文本框，共得到十个文本框。 添加其它控件 控件名 名称 属性名 属性值 Command 1 Command 1 caption 统计/确定 Command 2 Command 2 caption 清空/重置 Text 2 Text2 Text2 空 Text 3 Text3 Text3 空 Label 1 Label1 caption XX竞赛评委打分 Label 2 Label2 caption 空 其余控件自定。 三、算法分析 3-1自顶向下 输入数据 累加求和 找最大值 找最小值 计算有效总分 求平均分 输出结果 3-2逐步求精 Rem 输入数据n个 Dim a(20) AS single dim s AS single, max AS single, min AS single, y AS single For i=0 to 9 a(i)=Val(text1(i).text) S=S+a(i) Next i REM找最大值模块 Max= a(0) For i= 1 to 9 If aA(i)max then max=a(i) Next i REM最小值模块 Min=999 For i=0 to 9 If a(i) min then ( ) ’请补充完成代码 Next i REM计算有效成绩 S=S-max-min REM求平均分模块 Y=S/8 REM输出结果 Print tab(40); “去掉最高分” ; max Print tab(40);“去掉最低分” ; min Print tab(40); “最后得分” ; y 3-3、拓展 Rem 将结果显示到指定控件 Text2.test= val(max) Text3.test=”最低分”Str(min) Label2.caption=Str(y) 清零模块源代码 Private Sub Command2_Click( ) Text2.test=” ” Text3.test=” ” Label2.caption=” ” For i=0 to 9 text1(i).text= “ ” Next i End Sub 选手编号、图像等可自行拓展 3-4、测试数据 99 90 91 92 95 89.5 88.5 87 86 85.7 四、评价作品 建立文件夹，将窗体文件score.frm和工程文件score.vbp保存上交。 自主拓展 标准差计算 P=(a(0)+a(1)+……+a(n-1))/n T=SQR((a(0)-p)^2+(a(1)-p)^2+……+(a(n-1)-p)^2)/n) Label 2 For i=0 to n-1 A=inputbox(“分数”str(i+1)) S=S+A NEXT I ‘猴子掰苞米 Text 3 Text 2