Dim n As Integer, L As Integer, R As Integer, sum As Long, i As Integer
List1. Clear
n= Int(Rnd*3+11)*2+1
L=1:sum= 0
For R=1 To n\2+1
Sum = sum+ R
Do While sum > n
Sum = sum - L
L=L+1
Loop
If sum = n Then
List1. AddItem Str(L) +””+ Str(R)
Exit For
End If
Next R
执行该程序段后,列表框List1中的值不可能为( )