vb 求能被97除余3,且中间两位数字（即千位、百位）相同的所有六位数之

Private Sub Command1_Click()
  For i = 100000 To 999999
    If i Mod 97 = 3 And i \ 1000 Mod 10 = i \ 100 Mod 10 Then
      s = s + i
    End If
  Next i
  Print "Sum ="; s
End Sub

本回答被网友采纳