贺军翔所有的吻戏:某八位数如2abcdefg,它与3的乘积如abcdefg4,则七位数abcdefg应是多少

来源:百度文库 编辑:高校问答 时间:2024/05/04 05:51:18

8571428

VB代码,调试环境:WIN2K+VB6
由于是在20000000 和 29999999之间。所以循环起来比较慢

Private Sub Command1_Click()
For i = 20000000 To 29999999
DoEvents
x = i * 3
y = Right(CStr(i), 7)
z = Left(CStr(x), 7)
m = Right(CStr(x), 1)
If y = z And m = "4" Then
MsgBox z
Exit Sub
End If
Next i
End Sub

根据题意:
(abcdefg+20000000)*3=abcdefg*10+4
abcdefg*7=60000000-4
abcdefg=8571428