题型:综合题 题类:常考题 难易度:普通
浙江省台州市2017-2018学年高二上学期信息技术第一次月考试题
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
试题篮