在列表框中当前被选中的列表项的序号是由下列( )属性表示的。

A．Ptivate Sub Commandl_Click()
DimB As Books
Open"c:\Person.txt"For Output As#1
B．Name=InputBox(“输入姓名”)B．TelNum=InputBox(“输入电话号码”)
Whte#1，B.Name,B.TelNum
Close#1
End SubB．Private Sub Commandl_Crick()
DimB As Books
Open"C:\Person.txt"ForInput As#1B．Name=InputBox(“输入姓名”)B．TelNum=InputBox(“输入电话号码”)
Prin(#1，B.Name,B.Te1Num
Close#1
End Sub
C．Private Sub Conullandl_CHCk()
DimBAs Books
Open"c:\Person.txt"For Ouputut As#1
Name=hputBox(“输入姓名”)
Temum=InputBox(“输入电话号码”)
Whte#1，B
Close#1
End Sub
D.Privam Sub Commnandl_Click()
DimBAsBook
Open"C:\Person.txt"For Input As#1
Name=InputBox(“输入姓名”)
TelNum=InputBox(“输入电话号码”)
Print #1，B.Name，B.TelNum
Close#1
End Sub

A．GEDHFBCA
B．DGEBHFCA
C．ABCDEFGH
D．ACBFEDHG