VB中把316分为两个数的和，一个数能被13整除，另一个数能被11整除，求这两个数

来源：百度知道 编辑：UC知道 时间：2024/05/05 23:57:28
急需代码，谢谢

Private Sub Command1_Click()
Dim X As Integer, Y As Integer
For X = 0 To 316
Y = 316 - X
If X / 13 = X \ 13 And Y / 11 = Y \ 11 Then
Print X, Y
End If
Next X
End Sub

for i=0 to 316\13
for j=0 to 361\11
if i*13+j*11=316 then msgbox(i*13 & "与" & j*11)
next j
next i