Q-Eng

ごりおしまくろでけいさんしたなり

REM ***** BASIC *****

Sub Main
Dim A as integer
Dim B as integer
Dim C as integer
Dim D as integer
Dim E as integer
Dim F as integer
Dim G as integer
Dim H as integer
Dim var as integer
Dim Sheet As Object

Sheet = ThisComponent.CurrentController.ActiveSheet

var=3

FOR A =1 TO 9
FOR B=2 TO 9
if b<>a then
FOR C =2 TO 9
if c<>a and c<>b then
FOR D =2 TO 9
if d<>a and d<>b and d<>c then
FOR E =2 TO 9
if e<>a and e<>b and e<>c and e<>d then
FOR F =2 TO 9
if f<>a and f<>b and f<>c and f<>d and f<>e then
FOR G =2 TO 9
if g<>a and g<>b and g<>c and g<>d and g<>e and g<>f then
FOR H =2 TO 9
if h<>a and h<>b and h<>c and h<>d and h<>e and h<>f and h<>g then
IF ((10*A+B)*(10*C+D)/E-(F*G*H))=2016 then
sheet.getcellbyposition(2,var).value=A
sheet.getcellbyposition(3,var).value=B
sheet.getcellbyposition(4,var).value=C
sheet.getcellbyposition(5,var).value=D
sheet.getcellbyposition(6,var).value=E
sheet.getcellbyposition(7,var).value=F
sheet.getcellbyposition(8,var).value=G
sheet.getcellbyposition(9,var).value=H
var=var+1
endif
endif
next
endif
next
endif
next
endif
next
endif
next
endif
next
endif
next
next
End Sub