Question

vb循环输出语句

y = (3125 * x + 4149) / 1024 哪位好心人帮我调试下,这个算式x,y均要为正整数,y为多少数值是最小的,求x, y 谢谢

Answer 1

这个要是y最小，那么只需要x最小就行了，但是这有个x，y为正整数的条件，那么只需要从x=1开始增加x，得到一个正整数的y即是最小的y了。（x和y成正比）

x=1
z=3125*x+4149
do while z mod 1024 <> 0
x++
loop
y=z/1024

希望对你有帮助。

Answer 2

Private Sub Command1_Click()
Dim x&
x = 1
Do
If (3125 * x + 4149) Mod 1024 = 0 Then Exit Do
x = x + 1
Loop
Print "x="; x
Print "y="; (3125 * x + 4149) / 1024
End Sub

X=1023 y=3126

Answer 3

Option Explicit

Private Sub Command1_Click()
Dim x As Single, y As Long

Do
y = y + 1
x = (y * 1024 - 4149) / 3125
If Int(x) = x And x >= 0 Then
Print x & " " & y
Exit Do
End If
Loop
End Sub

Answer 4

Sub test()
flag = 0
x = 1
Do While flag = 0
y = (3125 * x + 4149) / 1024
If y = Int(y) Then
MsgBox ("x=" & x & ";y=" & y)
Exit Do
End If
x = x + 1
Loop

End Sub