大哥哥大姐姐，帮小妹一个帮，谢谢！！！Visual Basic的问题！！！

Question

由于小妹在大学期间没有用功学习，碰到程序就头疼，所以请大哥哥大姐姐们帮帮忙，麻烦你们帮帮小妹，这些程序大概是什么意思？大恩不言谢！
Private Sub cmdAddNewGroup_Click()
'弹出对话框要求用户输入组名
Dim strGroupName As String
strGroupName = InputBox("请输入组名:")
If strGroupName = "" Then Exit Sub

'在lvwGroups控件中添加组名
Dim lvi As ListItem
Set lvi = Me.lvwGroups.ListItems.Add
lvi.Icon = 1
lvi.SmallIcon = 1
lvi.SubItems(1) = strGroupName

'更改组的数目和数组的维数
GroupCount = GroupCount + 1
ReDim Preserve Groups(GroupCount - 1)
'设置新添加的组的参数
Groups(GroupCount - 1).GroupIcon = 1
Groups(GroupCount - 1).GroupName = strGroupName
'写组的信息到文件中
WriteGroupsToFile
'刷新控件的显示
RefreshList
End Sub

Answer 1

什么程序？

Answer 2

源程序呢?