请高手帮忙详解下这个VB代码（请按步解释越详细越好不胜感谢必厚报）

Question

Public Sub setgrid()
Dim i As Integer
On Error GoTo seterror
With MSFlexGrid1
.ScrollBars = flexScrollBarBoth
.FixedCols = 0
.Rows = rs_data1.RecordCount + 1
.Cols = 7
.SelectionMode = flexSelectionByRow
For i = 0 To .Rows - 1
.RowHeight(i) = 315
Next
For i = 0 To .Cols - 1
.ColWidth(i) = 1800
Next i
End With
Exit Sub
seterror:
MsgBox Err.Description
End Sub

Public Sub setgridhead()
On Error GoTo setheaderror
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "房号"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "房价"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "姓名"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "性别"
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = " 证件号码"
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = "抵达日"
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = "离店日"
Exit Sub
setheaderror:
MsgBox Err.Description
End Sub

Answer 1

这个程序主要是定制一个表格，然后向其中的第一列填写文字

Public Sub setgrid()
声明一个整型变量（长度16位，即两个字节）
Dim i As Integer
’如果发生错误则跳到下方 seterror 标记处
On Error GoTo seterror
’一下以点开始的属性，均为MSFlexGrid1表格控件的属性
With MSFlexGrid1
’等于 MSFlexGrid1.ScrollBars = flexScrollBarBoth
’设置表格控件有固定的水平和垂直滚动条
.ScrollBars = flexScrollBarBoth
’表格左侧无固定列
.FixedCols = 0
’表格行数为数据库记录个数加1(应该是多算一个标题行吧）
.Rows = rs_data1.RecordCount + 1
列数为7
.Cols = 7
’选择模式－－当鼠标点击表格某单元格时，整行被选
.SelectionMode = flexSelectionByRow
’循环设置每一行高
For i = 0 To .Rows - 1
.RowHeight(i) = 315
Next
’循环设置每一列宽
For i = 0 To .Cols - 1
.ColWidth(i) = 1800
Next i
’结束 MSFlexGrid1 的免写方式，参看上方的 With MSFlexGrid1
End With
’退出本过程
Exit Sub
’若发生错误转到这里
seterror:
’以对话框形式通知错误信息（Err.Description <--错误的文字内容）
MsgBox Err.Description
End Sub

Public Sub setgridhead()
’若发生错误，应转到下方 setheaderror 处
On Error GoTo setheaderror
’指向第1行
MSFlexGrid1.Row = 0
’指向第1列
MSFlexGrid1.Col = 0
’单元格第1行第1列的文字设为 "房号"
MSFlexGrid1.Text = "房号"
’单元格第2行第1列的文字设为 "房价"
MSFlexGrid1.Col = 1
’以下如此类推。。。。
MSFlexGrid1.Text = "房价"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "姓名"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "性别"
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = " 证件号码"
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = "抵达日"
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = "离店日"
’结束本过程
Exit Sub
’若发生错误转到这里
setheaderror:
’以对话框形式通知错误信息（Err.Description <--错误的文字内容）
MsgBox Err.Description
End Sub