VB课件 2008.ppt

以Form 对象为例，它们的语法格式为： (1)Private Sub Form_ Click（） (2)Private Sub Form_ DblClick（） (3)Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Single，Y As Single） (4)Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single） (5)Private Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single） (1)Button ：表示按下（释放）哪个键： 0：未按下任何按钮 1：按下（释放）了左键 2：按下（释放）了右键 3： 按下（释放）了中间键 (2)Shift参数用来监测鼠标与键盘上Shift、Ctrl和Alt键的组合 1：按Shift 键 2：按Ctrl 键 4：按Alt 键 7：按Shift、Ctrl 和Alt 键 (3)X、Y参数表示鼠标指针的坐标位置。 例：显示鼠标指针的当前位置，运行结果如图所示。 程序如下： Private Sub Form_MouseMove(Button as Integer, Shift as Integer ，X As Single,Y As Single) Text1.Text = X Text2.Text = Y End Sub 例：显示鼠标指针的当前位置，运行结果如图所示。 Private Sub Form_MouseMove(Button%, Shift%, X ！, Y！) Text1 = X Text2 = Y If Button = 1 Then Text3 = 按了左键了 If Button = 2 Then Text3 = 按了右键了 If Shift = 1 Then Text4 = 按了SHIFT了 If Shift = 2 Then Text4 = 按了CTR了 If Shift = 4 Then Text4 = 按ALT了 End Sub 周一第四大节：N201 周六晚上 E207 书面作业 找出100～200间有多少满足各位数字之和等于6？ 创建一个学生成绩文件，里面包含有(学号 姓名 数学成绩 英语成绩)，可实现不断添加记录 Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i Next i End Sub 问程序实现的功能是什么？ Option base 1 Private Sub Form_Click() Dim a(2, 4) As Integer Dim b(4, 3) As Integer Dim c(2, 3) As Integer For i = 1 To 2 For j = 1 To 3 c(i, j) = 0 For k = 1 To 4 c(i, j) = c(i, j) + a(i, k) * b(k, j) Next k Next j Next i End Sub 问程序实现的功能是什么？ 课下练习 Dim a(1 To 3, 1 To 3) As Integer For j = 1 To 3 For k = 1 To 3 a(j, k) = (j - 1) * 3 + k Next k Next j For j = 2 To 3 For k = 2 To 3 Print a(k, j); Next k Print Next j D