Question

高中VB程序题，求详细过程

求解第七道

Answer 1

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