Private Sub Command1_Click()
Dim Sum As Long,i As Long
For i＝100000 To 999999
If i Mod 100＜＞0 Then
If(i\100 Mod (i Mod 100)＝83) Then
Sum＝Sum＋i
End If
End If
Next i
Print "Sum＝" & Sum
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024