VB的幾道題期末考試要考的求幫忙

1、

'屬性name屬性caption屬性index?屬性（value）

'chk1?北京01

'chk1?上海11

'chk1?天津20

'chk1?廣州30

3、

Private?Sub?Command1_Click()

Label1.Move?Label1.Left?-?Label1.Width?/?2,?Label1.Top?-?Label1.Height?/?2,?Label1.Width?*?2,?Label1.Height?*?2

Label1.FontSize?=?Label1.FontSize?*?2

End?Sub

4、

'屬性name屬性（max）屬性（min）

'text1

'vs1?10000

'form1

Private?Sub?VS1_Change()

Text1?=?VS1

End?Sub

5、

Private?Sub?Command1_Click()

Dim?i%

For?i?=?List1.ListCount?-?1?To?0?Step?-1

List2.AddItem?List1.List(i)

List1.Clear

End?Sub

VB的幾道題 期末考試要考的 求幫忙