VB试题答案 基础篇.docVIP

4 (1) 参考答案 Private Sub Command1 _Click() CD1.ShowOpen End Sub (2) 参考答案 Private Sub Command1 _Click() Command1.Left ＝ Command1.Left － 100 End Sub (1) 参考答案 Private Sub Command1 _Click() Combo1.AddItem Text1 End Sub Private Sub Command2 _Click() Print Combo1.ListCount End Sub (2) 参考答案 第1个？处填入：Caption 第2个？处填入：m 第3个？处填入：k 第4个？处填入：a 参考答案 第1个？处填入：a(k) 第2个？处填入：ch 排序按钮的代码 Private Sub C2 _Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch ＝ For i ＝ 50 To 2 Step －1 For j ＝ 1 To 49 　　　　If a(j) a(j ＋ 1) Then 　　　　　　t ＝ a(j ＋ 1) 　　　　　　a(j ＋ 1) ＝ a(j) 　　　　　　a(j) ＝ t