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

来源：学生作业帮编辑：灵鹊做题网作业帮分类：数学作业时间：2024/05/13 08:29:46

Private Sub Command1_Click()
' 1
' 2 3
' 4 5 6
Dim a(6) As Integer
For i1 = 1 To 6
For i2 = 1 To 6
For i3 = 1 To 6
For i4 = 1 To 6
For i5 = 1 To 6
For i6 = 1 To 6
a(1) = i1
a(2) = i2
a(3) = i3
a(4) = i4
a(5) = i5
a(6) = i6
For i = 1 To 6
For j = i + 1 To 6
If a(i) = a(j) Then GoTo x:
Next
Next
If i1 + i2 + i4 = i4 + i5 + i6 And i1 + i2 + i4 = i1 + i3 + i6 Then
Print " ";
Print i1
Print " ";
Print i2;
Print i3
Print i4;
Print i5;
Print i6
Exit Sub
End If

x:
Next
Next
Next
Next
Next
Next
End Su

用VB编写一个解“数字三角形”程序：将自然数1到6分别填入图中的小圆圈内,使这个三角形的每边上的三个数将1~6这6个数字分别填入途中的小圆圈内,使每条三角形每条边上三个数的和是11. 将123456789这九个数字分别填入图中的小圆圈中,使三角形每边上四个数的和都是17 将1—9九个数分别填入下图圈内,使外三角形边上圈内数字和等于内三角形边上圈内数字和. 将1-9个数字分别填入小圆圈内,使每条直线上三个数加起来的和都是15. 把数字1，2，3，…，9分别填入下图的9个圈内，要求三角形ABC和三角形DEF的每条边上三个圈内数字之和都等于18．图中把数字1，2，3，…，9分别填入右图的9个圈内，要求三角形ABC和三角形DEF的每条边上三个圈内数位之和等于18．将1到9九个数字分别填入图中小圆圈中,使三角形每边上的四个数的和是17? 将六个数1，3，5，7，9，11分别填入如图中的圆圈内（每个圆圈内仅填一个数），使每边上三个数的和都等于17，则三角形点将1~10这十个数分别填入十个小圆圈内,使每条线上的四个小圆圈内数的和相等把数字1,2,3,···,9分别填入下图的9个圈内,要求三角形ABC和三角形DEF的每条边上三个圈内数位和为18 将1～8这八个自然数分别填入下图中的八个○内，使四边形每条边上的三个数之和都等于14，且数字1出现在四边形的一个顶点上．