VB程序a/x=800*x+9*x+1 x是两位数，8*x是两位数， 9*x是三位数。求a,x

来源：百度知道 编辑：UC知道 时间：2024/06/10 18:08:11

Private Sub Command1_Click()
For x = 1 To 50
If Len(CStr(8 * x)) = 2 And Len(CStr(9 * x)) = 3 Then
Print "x=" & x
Exit For
End If
Next

For a = 1 To 1000000
If a / x = 800 * x + 9 * x + 1 Then
Print "a=" & a
Exit For
End If
Next
End Sub

x=12.你可以求a了