Question

vb编程 大神指教

4.两个自然数X，Y相除，商3余10，被除数、除数、商、余数的和是163，求被除数、除数。 (115、35)

6.一个四位数，恰好等于去掉它的首位数字之后所剩的三位数的3倍，这个四位数是多少？(1500)

Answer 1

4、

Dim x As Long, y As Long
y = 1
Do
    x = y * 3 + 10
    if x + y + 13 = 163 Then Exit Do
    y = y + 1
Loop
Print "被除数"; x
Print "除数"; y

6、

Dim n As Integer
For n = 1000 To 9999
    If n = (n Mod 1000) * 3 Then
        Print "这个四位数是"; n
        Exit For
    End If
Next

Answer 2

Private Sub GetXY()
Dim x As Integer, y As Integer
y = 1: x = y * 3 + 10
Do Until y + x + 3 + 10 = 163
y = y + 1: x = y * 3 + 10
Loop
MsgBox x & vbTab & y
End Sub

Private Sub GetN()
'一个四位数，恰好等于去掉它的首位数字之后所剩的三位数的3倍，这个四位数是多少？(1500)
Dim x As Integer
For x = 1000 To 9999
If x = 3 * Int(Right(x, 3)) Then MsgBox x: Exit For
Next
End Sub

追问

用不了

追答

怎么可能,我现场验证的.
到底哪里卡住了???

Answer 3

4）
Private Sub Command1_Click()
'x=3y+10
'x+y+3+10=163 即x+y=150
y = 1: x = 10
While x + y <> 150
y = y + 1
x = 3 * y + 10
Wend
Print x; "/"; y; "="; x \ y; "..."; x Mod y
Print "x="; x, "y="; y
Print
End Sub

5）
Private Sub Command2_Click()
For i = 1000 To 9999
j = i Mod 1000
If 3 * j = i Then Print j; "*"; 3; "="; i: Exit For
Next i
End Sub