高校问答世界上最伟大的漫画家:帮我解释一下这是实现的什么,谢谢!
来源：百度文库 编辑：高校问答 时间：2024/05/07 11:35:42
Private Property Let TheArray(ByVal pPos As Integer, V() As Integer)
Select Case pPos
Case 0
mADisks0 = V
Case 1
mADisks1 = V
Case 2
mADisks2 = V
End Select
End Property
Select Case pPos
Case 0
mADisks0 = V
Case 1
mADisks1 = V
Case 2
mADisks2 = V
End Select
End Property
一个选择分支，通过判断值 为0、1、2给变量付值 如果值为0则mADisks0 付值为V，如果值为1则mADisks1 付值为V，依次类推！还不懂加我290628145
Private Property Let TheArray(ByVal pPos As Integer, V() As Integer) '定义函数名称，和变量名称，函数类型
Select Case pPos '判断通过参数传过来的 pPos
Case 0 '如果是0
mADisks0 = V 'mADisks0的直就是V下面的类似
Case 1
mADisks1 = V
Case 2
mADisks2 = V
End Select
End Property