![]()

程序代码如下:
Private Sub Command1_Click()
Dim sum As Integer 'sum用来统计符合条件的自然数个数
Dim n, max As Integer
List1.Clear
sum = 0
max = _______①______ '指定查找范围的最大自然数,在text1框中输入
n = 0
Do While n <= max
n = n + 1
If _______ _② ___ Then
List1.AddItem Str(n) '
________③_______
End If
Loop
List1.AddItem ("共计" + Str(sum) + "个")
End Sub
如13907715200、13907718366是符合条件的两个号码。
算式描述如图所示

请将程序补充完整
Private Sub Form_Cliek()
Dim a As Integer, b As Integer
Dim I As Integer, s As Integer
s=0
For =10000 To 19999
a=
b=(i Mod 100)\10
If a=b Then
s=
End If
Next i
Print“最后两位数字相同的号码个数有:”;
End Sub
For i = 100 To 999 lag = True: j = 2
Do While j < i And flag
Loop
If flag Then List1.AddItem Str(i) Next i
方框中的代码由以下四部分组成:①End If ②If i Mod j = 0 Then ③j = j + 1
④flag = False。代码顺序正确的是( )
s=0
for i in range(1, 101):
if i%2== 0:
s+=i
该程序段被执行后,变量s中存储的是1~100之间的( )
Private Sub Command1_Click()
s = 0
For i =To
If i Mod 17 = 0 And =5 Then
s = s + i
End If
Next i
Print s
End Sub