Private Sub Command1_Click()
Dim a(1 To 12) As Integer, i As Integer, x As Integer
a(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20
a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1
i = 1
x = Val(Text1.Text)
List1.Clear
Do While ①
If x >= a(i) Then
List1.AddItem Str(a(i))
②
End If
i = i + 1
Loop
End Sub
(1)上述代码中“List1.Clear”中的Clear是对象List1的![]() | | ![]() | | ![]() |
A | | B | | C |