Lec_11_WangL_医学信息技术.pptVIP

鼠标与键盘事件 一些常用的判断参数 e.x：鼠标在控件中的横坐标 e.y：鼠标在控件中的纵坐标 cursor.position.x：鼠标在屏幕上的横坐标 cursor.position.y：鼠标在屏幕上的纵坐标 cursors.default|hand|……：鼠标显示的光标 吃豆子-用鼠标控制豆子 Form1_MouseDown Timer1.Stop() PictureBox2.Left = e.X PictureBox2.Top = e.Y Form1_MouseUp Timer1.Start() 吃豆子|拖动豆子 Dim bMouseDown As Boolean = False Dim x As Integer, y As Integer PictureBox2_MouseDown bMouseDown = True x = e.X y = e.Y PictureBox2_MouseMove If bMouseDown Then PictureBox2.Left = PictureBox2.Left + e.X - x PictureBox2.Top = PictureBox2.Top + e.Y - y End If PictureBox2_MouseUp bMouseDown = False 一、数组的输入 Dim cj(3,4) As Integer For i = 0 To 3 For j = 0 To 4 cj(I,j) = InputBox(输入 i “, j 元素) Next j Next i 2.3 数组的基本操作 * 二、数组的输出 形成5×5的方阵，分别输出方阵中各元素 * 2.4 数组的应用 将从键盘随意输入的30个数从大到小排列输出。 思路 1.输入部分 2.排序 3.输出 * 2.4.1 输入30个数 Dim a(29) As Integer Dim i As Integer For i = 0 To 29 a(i) = Val(InputBox(“请输入第” + Str(i) + “个数：”, “输入)) Next * 本章目录 2.4.2 冒泡法排序 基本思想： 每次在若干个无序数中找更小(大)数，并交换位置。 * 12 18 40 30 i=0,j=1 12 18 40 30 18 12 40 30 40 12 18 30 i=0,j=2 i=0,j=3 * i=1,j=2 12 18 30 i=1,j=3 12 18 30 18 12 30 * 排序 For i = 0 To 28 For j = i + 1 To 29 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i * A(i) A(j) T T = a(i) a(i) = a(j) a(j) = T 交 换 * 2.4.3 输出 For i = 0 To 29 Label1.Text = Label1.Text + Str(a(i)) + , Next * 2.5 控件数组 是由一组相同类型的控件组成的，它们共用一个控件名。 例如： * 2.5.1 添加动态控件数组 Dim?List?As?New?ArrayList????? Private?Sub?Button1_Click( )?Handles?Button1.Click???? ?????Dim?i?As?Integer???? ?????For?i?=?0?To?4?‘利用循环语句动态加入控件数组。???? ????? Dim?FirstTextBox?As?New?TextBox????????????? ????? Me.Controls.Add(FirstTextBox)????? ????? List.Add(FirstTextBox)???????? ???? ?List.Ite