有会VB的吗下面是什么意思谁会解释一下

Private Sub Command16_Click()
Dim i As Integer
Dim j As Integer
j = MaxID()
For i = 1 To j '13个变量的意思：
Dim AreaID As String
Dim area As String
Dim pc As Integer
Dim ProjID As String
Dim xmID As String
Dim Proj As String
Dim AgeID As Integer
'Dim Age As Integer
Dim AgeItem As String
Dim COMPID As String
Dim secID As String
Dim cn1 As Connection
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
Set cn1 = CurrentProject.Connection
sql1 = "select ID,选手资料.选区,选手资料.专业,选手资料.组别 from 选手资料 where ID=" & Trim(i)
rs1.Open sql1, cn1, 3, 3, 1
area = rs1("选区")
Proj = rs1("专业")
AgeItem = rs1("组别")
rs1.Close

AreaID = DLookup("[选区ID]", "选区代码表", "[选区名称]='" & area & "'")
ProjI

有会VB的吗下面是什么意思谁会解释一下 下面的VB语句是什么意思 阿有谁会VB的，帮帮忙吧~~ 有谁会做这个试题 VB的 有谁会VB全部的软件编程 有谁会VB呢,会的话一定要帮我啊 谁会写繁体 帮我翻一下下面的几句话 我会有奖励！！！ 谁会下面的课外阅读？ vb高手救命啊~~ 下面的代码都是什么意思啊? 有谁会做下面几题啊？