【用VB编写一个解“数字三角形”程序：将自然数1到6分别填入-查字典问答网

来自倪锦根的问题

　　【用VB编写一个解“数字三角形”程序：将自然数1到6分别填入图中的小圆圈内,使这个三角形的每边上的三个数】

　　用VB编写一个解“数字三角形”程序：将自然数1到6分别填入图中的小圆圈内,使这个三角形的每边上的三个数

1回答

2019-12-06 22:18

我要回答

请先登录

马清亮

　　PrivateSubCommand1_Click()

　　'23

　　'456

　　Dima(6)AsInteger

　　Fori1=1To6

　　Fori2=1To6

　　Fori3=1To6

　　Fori4=1To6

　　Fori5=1To6

　　Fori6=1To6

　　a(1)=i1

　　a(2)=i2

　　a(3)=i3

　　a(4)=i4

　　a(5)=i5

　　a(6)=i6

　　Fori=1To6

　　Forj=i+1To6

　　Ifa(i)=a(j)ThenGoTox:

　　Ifi1+i2+i4=i4+i5+i6Andi1+i2+i4=i1+i3+i6Then

　　Print"";

　　Printi1

　　Print"";

　　Printi2;

　　Printi3

　　Printi4;

　　Printi5;

　　Printi6

　　ExitSub

　　EndIf

　　EndSub

2019-12-06 22:19:10