题型:综合题 题类:模拟题 难易度:普通
浙江省杭州市2015年高考模拟命题比赛信息技术(6)
图1
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i = 0 To 99
n = 110800 + i
If Then
List1.AddItem Str(n) + " " + "5"
c = c + 1
End If
Next i
Label2.Caption = "满足条件的数有:" + Str(c) + "组"
End Sub
试题篮