VB代码求解释

Question

Option Explicit '所有变量经过dim
Dim hDesk As OLE_HANDLE
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long什么意思！！
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long什么意思！！
Private Sub Form_Click()
hDesk = GetDC(0)
MsgBox Hex(GetPixel(hDesk, 500, 500))
End Sub
就是一找指定点颜色的小程序 初学者！越详细越好，我还可以上网查，就想大神给思路！！！谢谢

Answer 1

总得来说,应该是根据学生的前三个成绩,进行求平均成绩什么的
然后求平均成绩的总和
并将得到的值赋于学生中的这些对应的字段,并显示这个学生的成绩情况
Private Sub Form_Load()
Dim X As Single
Dim Y As Single
Dim z As Single
Dim intMnuda As Single
Dim intSum As Single '定义N个变量
Label5.Caption = rsStudent.Fields(0).Value '将学生记录里面的首列值赋给label5
Label6.Caption = rsStudent.Fields(1).Value '将学生记录里面的第二列值赋给label6
Label7.Caption = Format(Date, "YYYY-MM-DD") '将当前日期以年月日的格式赋给label7
Label8.Caption = rsStudent.Fields(3).Value '将学生记录里面的第三列值赋给label8

intMnuda = rsStudent.Fields(4).Value / rsMnuda.RecordCount '取得学生的第4列的值除以/rsMnuda记录集中的记录总数
rsMnuda.MoveFirst '将记录集rsMnuda移动首条记录
Do While Not rsMnuda.EOF '当rsMnuda记录不是最后一条就执行while
If rsMnuda.Fields(2).Value = rsMnuda.Fields(3).Value Then '如果rsMnuda列2的值与列3的值相等
X = X + intMnuda ‘将x的值加上上面已得的除数intMnuda
End If
rsMnuda.MoveNext '移动下一条记录
Loop '继续
Dim intMnudb As Single '定义一个变量
intMnudb = rsStudent.Fields(5).Value / rsMnudb.RecordCount ''取得学生的第5列的值除以/rsMnudb记录集中的记录总数
rsMnudb.MoveFirst '将记录集rsMnudb移动首条记录
Do While Not rsMnudb.EOF '当rsMnudb记录不是最后一条就执行while
If rsMnudb.Fields(2).Value = rsMnudb.Fields(3).Value Then '如果rsMnudb列2的值与列3的值相等
Y = Y + intMnudb '将y的值加上上面已得的除数intMnudb
End If
rsMnudb.MoveNext '移动下一条记
Loop
Dim intMnudc As Single '定义一个变量
intMnudc = rsStudent.Fields(6).Value / rsMnudc.RecordCount ''取得学生的第6列的值除以/rsMnudc记录集中的记录总数
rsMnudc.MoveFirst '将记录集rsMnudc移动首条记录
Do While Not rsMnudc.EOF '当rsMnudc记录不是最后一条就执行while
If rsMnudc.Fields(2).Value = rsMnudc.Fields(3).Value Then '如果rsMnudc列2的值与列3的值相等
z = z + intMnudc '将z的值加上上面已得的除数intMnudc
End If
rsMnudc.MoveNext '移动下一条记条
Loop
intSum = X + Y + z '求得三个平均值的之和
Text1.Text = X '将第一个平均值赋于text1
Text2.Text = Y '..............text2
Text3.Text = z '..............text3
Label14.Caption = intSum '将总平均值的和赋给label4

rsStudent.Edit '修改学生记录集
rsStudent.Fields(7).Value = X '将X更新到学生记录集的第7列
rsStudent.Fields(8).Value = Y '将Y更新到学生记录集的第8列
rsStudent.Fields(9).Value = z '将z。。。。。。。。。。9
rsStudent.Fields(10).Value = intSum '将总平均分.........10列
rsStudent.Update '执行更新，进行数据库
If intSum >= 90 Then '如果总平均分大于等于90
Label10.Caption = "ÄãÕæ°ô!" '应该是优秀
ElseIf intSum >= 70 Then '否则总平均分大于70
Label10.Caption = "³É¼Â¨Á¼ºÃ!" ’中等
Else '不满足上面的就中小于70
Label10.Caption = "³É¼Â¨ºÜ²î!" '合格或不合格
End If

End Sub

追问

我想通过一张静态图不需要加载到控件上，就可以读取图片任一点的颜色值。并且保存到变量中，有解吗，满意直接100分