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

来源：学生作业帮助网编辑：六六作业网时间：2024/11/16 21:37:40

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

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

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

用VB编写一个解“数字三角形”程序：将自然数1到6分别填入图中的小圆圈内,使这个三角形的每边上的三个数用VB编写一个至少30句的程序用VB编写一个解一元二次方程 AX2+BX+C=0的程序用VB编写一个程序,将下面的数列延长到第50项,1,2,5,10,21,42 . 用VB编一个钟表,表针运动程序怎么编?我用VB编了一个钟表,可表针（不是数字!）1秒1秒在变动,怎么编写这段程序? VB编写程序：已知abc三个数,使数字从大到小排列,用一个if语句和一个嵌套的if语句如何实现啊啊啊啊急啊. 用vb程序编写,一个正整数n的三次方,将立方后的正整数n分解为n个连续奇数和的形式如何设计用vb语言编写一个程序,输入三个数,输出其中的最大数用VB编写一个判断两个正整数的最大公因数的程序怎么写啊? 用c语言编写一个求三角形面积的程序用C#编写一个程序如何判断三角形形状用VB的do 语句编写输入一串数字,当为#是停止程序,统计正负数的个数VB的do 语句编写输入一串数字,当为#是停止程序,统计正负数的个数用VB编写程序.计算1+2+3+.+100 用vb语言编写以下题目：1、建立一个窗体程序用于计算数学函数：Y＝a*X^3＋b*X^2＋c*X用vb语言编写以下题目：1、建立一个窗体程序用于计算数学函数：Y＝a*X^3＋b*X^2＋c*X＋d 的值,并将计算的函 VB程序题,已知有一个数据文件data.dat,请编写程序将data.dat中的数据复制到文件student.dat中去. 用VB编程验证“角谷猜想”.“角谷猜想”指出,对于一个自然数,若该数字为偶数,则除以2；若该数为奇数,则乘以3并加1；将得到的数再重复按该规则运算,最终可得到1.编写程序,对给定的一个用VB编写函数过程,求任意正整数各位数字之和是用VB编写啊, 用vb 编写一个乘法口诀表要求分别有四种三角形的形状