Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer,n As Long
c = 0
n = 110800 + i
If Then
List1.AddItem Str(n) + " " + "5"
End If
Next i
Label2.Caption = "满足条件的数有:" + Str(c) + "组"
End Sub
微信扫码预览、分享更方便