第四章批量数据的处理教学讲义.pptVIP

键盘事件 Private Sub Textl_KeyPress(KeyAscii As Integer) End Sub Private Sub object_KeyDown(keycode As Integer, shift As Integer) End Sub Private Sub object_KeyUp(keycode As Integer, shift As Integer) End Sub 键盘事件应用举例 按下Enter键时进行数据检查并执行某些操作 在KeyPress事件里检查输入数据的有效性；检查通过后，自动把焦点转到下一个控件；若检查不通过，则提示用户，清空文本框，等待重新输入。（三角形面积程序） 让输入的字符都变成大写字母 对KeyPress事件编程，截获用户输入的信息，并修改它们。KeyAscii = Asc(Ucase(KeyAscii)) KeyPress事件用于输入检查 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1.Text) Then MsgBox 输入的不是数字，请重新输入！ Text1.Text = Text1.SetFocus ElseIf Val(Text1.Text) 0 Then MsgBox 输入的边长小于0，请重新输入！ Text1.Text = Text1.SetFocus Else Text2.SetFocus End If End If End Sub KeyPress事件用于截获输入 Private Sub Textl_KeyPress(KeyAscii As Integer) KeyAscii=Asc(UCase(Chr(KeyAscii))) End Sub 多窗体 多窗体指一个应用程序中有多个并列的普通窗体，每个窗体可以有自己的界面和程序代码，完成不同的功能。 添加窗体和移除窗体 设置启动对象 有关的语句、方法 不同窗体间数据的存取 添加窗体 单击“工程”菜单的“添加窗体”命令，弹出“添加窗体”对话框 “现存”：添加一个已 有窗体到本工程中。 “新建”：新建一个窗 体并添加到本工程中。 交换数组中各元素 将数组第1个元素与最后一个交换，第2个元素与倒数第2个元素交换，依此类推，结果如图所示： For i = 1 to 10 \ 2 Temp = v(i) v(i) = v(15 – i + 1) v(15 – i + 1) = TempNext i 思考题 1. 如何求一维数组最小元素及其下标？如何求二维数组的最小元素及其下标？ 2. 进行数组元素交换操作时，为什么循环的终值是15 \ 2，而不是15？如果要将数组的前一半元素与后一半元素交换，即第1个与第9个交换，第2个与第10个交换，上述代码应如何修改？ 数组应用举例：40抽12的实现 从40个学号中直接抽出12个互不相同的学号点名：(1) 完全不使用数组的写法；(2) 使用数组进行重复判断的写法；(3) 完全使用数组的写法； 控件数组 类型相同且功能相近的控件可以组成控件数组，它们使用相同的名称（Name），通过索引值（下标）来互相区别。 创建控件数组：（1）设计时创建；（2）运行时动态加载； 控件数组应用举例 应用举例4.5.7：考试成绩分析统计 应用举例4.5.5：矩阵运算程序* 动态数组 事先不知道数组大小时，可以声明该数组为动态数组，在需要时再用ReDim语句指定数组的大小。 创建动态数组的步骤：（1）声明数组为动态数组；（2）在需要时指定数组大小。 动态数组应用举例 应用举例4.5.2：观测值均值和中误差的计算 应用举例4.5.3：学号抽点程序的完善 求数组各元素之和 一维求和：For i = 1 to 15 sum =sum + v(i)Next i 二维求和：For i = 1 to 15 For j = 1 to 15 sum = sum + Q(i, j) Next jNext i 数组元素排序 选择法排序：①从n个数中选出最小数，将其与第1个数交换位置；②除第1个数外，其余n-1个数再按步骤①选出次小数，与第2个数交换位置；③重复步骤①