题目
用VB编写一个解“数字三角形”程序:将自然数1到6分别填入图中的小圆圈内,使这个三角形的每边上的三个数
提问时间:2020-08-08
答案
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 Sub
' 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 Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1高中数学 向量题目…急!
- 2为什么4点45分时时针和分针的度数为127.5度
- 3甲车与乙车速度比是4﹕5,行完同一段路程,乙车所用时间和甲车所用时间的比是_.
- 4把一个高是10分米的圆柱体切成底面是许多相等的扇形,再拼成一个近似长方体,(如图)已知拼成后长方体表面积比原来圆柱表面积增加了40平方分米,原来圆柱体积是多少立方分米?
- 5若点P(m,1-2m)的横坐标与纵坐标互为相反数,则点P一定在( ) A.第一象限 B.第二象限 C.第三象限 D.第四象限
- 6两栖动物的发育过程
- 7面积测量仪如何实现不规则土地面积的测定
- 8I have no pens ___ no pencils.A and B not C or D with 选什么.为什么
- 9《埃及金字塔》采用了什么写作手法?
- 10美仑美奂什么意思
热门考点