Question

某4位数ABCD能够被78整除，它的前两位数字相同，后两位数相同A=B,C=D，求这个数

Answer 1

7722
7722除以78等于99

追问

是VB编程 谢谢

追答

Private Sub Command1_Click()
For i = 1111 To 9999
If Mid(i, 1, 1) = Mid(i, 2, 1) And Mid(i, 3, 1) = Mid(i, 4, 1) And i Mod 78 = 0 Then
MsgBox i
End If
Next i
End Sub