本帖最后由 ysr 于 2026-1-16 15:20 编辑
输入:7和130
输出:
7 129 {21,24,28,56}
7 120 {21,24,35,40}
7 130 {20,24,30,56}
7 120 {20,28,30,42}
7 124 {18,28,36,42}
输入:7和100
输出:无解
输入:7和300
输出:
7 129 {21,24,28,56}
7 120 {21,24,35,40}
7 174 {20,21,28,105}
7 155 {20,21,30,84}
7 136 {20,21,35,60}
7 130 {20,24,30,56}
7 120 {20,28,30,42}
7 179 {18,20,36,105}
7 164 {18,21,35,90}
7 159 {18,21,36,84}
7 144 {18,21,42,63}
7 134 {18,24,36,56}
7 124 {18,28,36,42}
7 234 {16,18,56,144}
7 209 {16,18,63,112}
7 189 {16,20,48,105}
7 172 {16,20,56,80}
7 191 {16,21,42,112}
7 169 {16,21,48,84}
7 144 {16,24,48,56}
7 134 {16,28,42,48}
7 211 {15,20,56,120}
7 200 {15,20,60,105}
7 288 {15,21,42,210}
7 180 {15,21,60,84}
7 242 {15,24,35,168}
7 184 {15,24,40,105}
7 155 {15,24,56,60}
7 213 {15,28,30,140}
7 162 {15,28,35,84}
7 145 {15,28,42,60}
7 277 {14,20,63,180}
7 278 {14,21,54,189}
7 259 {14,21,56,168}
7 235 {14,21,60,140}
7 224 {14,21,63,126}
7 198 {14,22,63,99}
7 244 {14,23,46,161}
7 288 {14,24,40,210}
7 248 {14,24,42,168}
7 198 {14,24,48,112}
7 178 {14,24,56,84}
7 173 {14,24,63,72}
7 158 {14,27,54,63}
7 298 {14,28,32,224}
7 217 {14,28,35,140}
7 204 {14,28,36,126}
7 168 {14,28,42,84}
7 163 {14,28,44,77}
输入:7和700
输出:
7 129 {21,24,28,56}
7 120 {21,24,35,40}
7 345 {20,21,24,280}
7 174 {20,21,28,105}
7 155 {20,21,30,84}
7 136 {20,21,35,60}
7 130 {20,24,30,56}
7 120 {20,28,30,42}
7 696 {18,20,28,630}
7 320 {18,20,30,252}
7 179 {18,20,36,105}
7 444 {18,21,27,378}
7 319 {18,21,28,252}
7 164 {18,21,35,90}
7 159 {18,21,36,84}
7 144 {18,21,42,63}
7 134 {18,24,36,56}
7 124 {18,28,36,42}
7 361 {16,17,56,272}
7 334 {16,18,48,252}
7 234 {16,18,56,144}
7 209 {16,18,63,112}
7 631 {16,20,35,560}
7 189 {16,20,48,105}
7 172 {16,20,56,80}
7 312 {16,21,35,240}
7 191 {16,21,42,112}
7 169 {16,21,48,84}
7 404 {16,24,28,336}
7 144 {16,24,48,56}
7 134 {16,28,42,48}
7 449 {15,18,56,360}
7 345 {15,18,60,252}
7 306 {15,18,63,210}
7 497 {15,20,42,420}
7 332 {15,20,45,252}
7 211 {15,20,56,120}
7 200 {15,20,60,105}
7 356 {15,21,40,280}
7 288 {15,21,42,210}
7 180 {15,21,60,84}
7 534 {15,22,35,462}
7 242 {15,24,35,168}
7 184 {15,24,40,105}
7 155 {15,24,56,60}
7 420 {15,25,30,350}
7 213 {15,28,30,140}
7 162 {15,28,35,84}
7 145 {15,28,42,60}
7 438 {14,19,63,342}
7 541 {14,20,52,455}
7 397 {14,20,55,308}
7 370 {14,20,56,280}
7 304 {14,20,60,210}
7 277 {14,20,63,180}
7 564 {14,21,46,483}
7 419 {14,21,48,336}
7 378 {14,21,49,294}
7 324 {14,21,51,238}
7 278 {14,21,54,189}
7 259 {14,21,56,168}
7 235 {14,21,60,140}
7 224 {14,21,63,126}
7 540 {14,22,42,462}
7 388 {14,22,44,308}
7 198 {14,22,63,99}
7 244 {14,23,46,161}
7 578 {14,24,36,504}
7 288 {14,24,40,210}
7 248 {14,24,42,168}
7 198 {14,24,48,112}
7 178 {14,24,56,84}
7 173 {14,24,63,72}
7 424 {14,25,35,350}
7 158 {14,27,54,63}
7 492 {14,28,30,420}
7 298 {14,28,32,224}
7 217 {14,28,35,140}
7 204 {14,28,36,126}
7 168 {14,28,42,84}
7 163 {14,28,44,77}
输入:7和10000
输出:
7 129 {21,24,28,56}
7 120 {21,24,35,40}
7 345 {20,21,24,280}
7 174 {20,21,28,105}
7 155 {20,21,30,84}
7 136 {20,21,35,60}
7 130 {20,24,30,56}
7 120 {20,28,30,42}
7 1128 {19,21,24,1064}
7 3845 {18,20,27,3780}
7 696 {18,20,28,630}
7 320 {18,20,30,252}
7 179 {18,20,36,105}
7 884 {18,21,26,819}
7 444 {18,21,27,378}
7 319 {18,21,28,252}
7 164 {18,21,35,90}
7 159 {18,21,36,84}
7 144 {18,21,42,63}
7 5608 {18,22,24,5544}
7 134 {18,24,36,56}
7 124 {18,28,36,42}
7 1499 {17,18,36,1428}
7 1495 {17,20,30,1428}
7 1494 {17,21,28,1428}
7 1509 {16,17,48,1428}
7 361 {16,17,56,272}
7 1084 {16,18,42,1008}
7 334 {16,18,48,252}
7 234 {16,18,56,144}
7 209 {16,18,63,112}
7 631 {16,20,35,560}
7 189 {16,20,48,105}
7 172 {16,20,56,80}
7 741 {16,21,32,672}
7 312 {16,21,35,240}
7 191 {16,21,42,112}
7 169 {16,21,48,84}
7 4434 {16,24,26,4368}
7 404 {16,24,28,336}
7 144 {16,24,48,56}
7 134 {16,28,42,48}
7 1520 {15,17,60,1428}
7 4492 {15,18,49,4410}
7 1658 {15,18,50,1575}
7 449 {15,18,56,360}
7 345 {15,18,60,252}
7 306 {15,18,63,210}
7 1894 {15,20,39,1820}
7 915 {15,20,40,840}
7 497 {15,20,42,420}
7 332 {15,20,45,252}
7 211 {15,20,56,120}
7 200 {15,20,60,105}
7 1332 {15,21,36,1260}
7 356 {15,21,40,280}
7 288 {15,21,42,210}
7 180 {15,21,60,84}
7 2380 {15,22,33,2310}
7 534 {15,22,35,462}
7 909 {15,24,30,840}
7 242 {15,24,35,168}
7 184 {15,24,40,105}
7 155 {15,24,56,60}
7 2168 {15,25,28,2100}
7 420 {15,25,30,350}
7 213 {15,28,30,140}
7 162 {15,28,35,84}
7 145 {15,28,42,60}
7 3678 {14,19,54,3591}
7 1153 {14,19,56,1064}
7 888 {14,19,57,798}
7 438 {14,19,63,342}
7 6661 {14,20,47,6580}
7 1762 {14,20,48,1680}
7 1063 {14,20,49,980}
7 784 {14,20,50,700}
7 541 {14,20,52,455}
7 397 {14,20,55,308}
7 370 {14,20,56,280}
7 304 {14,20,60,210}
7 277 {14,20,63,180}
7 1884 {14,21,43,1806}
7 1003 {14,21,44,924}
7 710 {14,21,45,630}
7 564 {14,21,46,483}
7 419 {14,21,48,336}
7 378 {14,21,49,294}
7 324 {14,21,51,238}
7 278 {14,21,54,189}
7 259 {14,21,56,168}
7 235 {14,21,60,140}
7 224 {14,21,63,126}
7 3078 {14,22,39,3003}
7 540 {14,22,42,462}
7 388 {14,22,44,308}
7 198 {14,22,63,99}
7 5869 {14,23,36,5796}
7 244 {14,23,46,161}
7 2928 {14,24,34,2856}
7 913 {14,24,35,840}
7 578 {14,24,36,504}
7 288 {14,24,40,210}
7 248 {14,24,42,168}
7 198 {14,24,48,112}
7 178 {14,24,56,84}
7 173 {14,24,63,72}
7 5671 {14,25,32,5600}
7 424 {14,25,35,350}
7 1016 {14,27,30,945}
7 158 {14,27,54,63}
7 883 {14,28,29,812}
7 492 {14,28,30,420}
7 298 {14,28,32,224}
7 217 {14,28,35,140}
7 204 {14,28,36,126}
7 168 {14,28,42,84}
7 163 {14,28,44,77}
代码如下:
Private Sub Command1_Click()
Dim n, a As Double
n = Val(Text1)
m = Val(Text3)
a = Val(4 * n)
Do While a >= Val(2 * n) And a <= 4 * n
b = Val(a + 1)
Do While b <= Val(4 * n)
c = Val(b + 1)
Do While c <= Val(9 * n)
u = Val(a * b * c * n)
v = Val(a * b * c - n * (a * b + (a + b) * c))
If Val(v) > 0 Then
d = Val(u / v)
If c < d And u Mod Abs(v) = 0 Then
k = Val(a + b + c + d)
If k <= m Then
s = "{" & a & "," & b & "," & c & "," & d & "}"
s2 = s2 & n & " " & k & " " & s & vbCrLf
s3 = s3 + 1
End If
End If
End If
c = Val(c + 1)
Loop
b = Val(b + 1)
Loop
a = Val(a - 1)
Loop
If s3 > 0 Then
Text2 = s2
Else
Text2 = "无解"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
|