求计算公式(VB)有 A B C D E (五个数相加能被五整除)五个变量五个数之间A-1则B+1B-1则C+1C-1则

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/10 16:10:36

求计算公式(VB)
有 A B C D E (五个数相加能被五整除)五个变量
五个数之间
A-1则B+1
B-1则C+1
C-1则D+1
D-1则E+1
E-1则A+1
求不管在五个数为多少的时候(相加能被五整除不变),五个数如何减能变成相等
比如5 2 3 4 1 相加等于15
5-2 =3
2+2-1 =3
3+1-1 =3
4+1-2=3
1+2=3
也就是A-2 B-1 C-1 D-2,就完成了
我想要不管五个数等于多少,都可以计算出每个数减少多少的公式,能解决我给200分,有什么思路上不清楚的,可以留言

'里面用了控件数组.
Private Sub Command1_Click()
Dim IntYss(5) As Long
Dim StrGs(1 To 5) As String
Dim I As Integer, J As Integer, K As Integer, L As Long
If (Val(Text1(0)) + Val(Text1(1)) + Val(Text1(2)) + Val(Text1(3)) + Val(Text1(4))) Mod 5 Then
MsgBox "五个数的和不能被5整除!"
Exit Sub
End If
For I = 1 To 5
IntYss(I) = Text1(I - 1)
StrGs(I) = IntYss(I)
IntYss(0) = IntYss(0) + IntYss(I)
Next I
IntYss(0) = IntYss(0) / 5
I = 0
K = 0
Do While K = 0
DoEvents
Label1 = "L=" & L
I = I + 1
Label2 = "I=" & I
If I > 5 Then I = 1
If IntYss(I) > IntYss(0) Then
StrGs(I) = StrGs(I) & "-" & (IntYss(I) - IntYss(0))
If I < 5 Then
StrGs(I + 1) = StrGs(I + 1) & "+" & (IntYss(I) - IntYss(0))
IntYss(I + 1) = IntYss(I + 1) + IntYss(I) - IntYss(0)
Else
StrGs(1) = StrGs(1) & "+" & (IntYss(5) - IntYss(0))
IntYss(1) = IntYss(1) - IntYss(0) + IntYss(5)
L = L + 1
End If
IntYss(I) = IntYss(I) - (IntYss(I) - IntYss(0))
End If
K = 1
For J = 1 To 5
If IntYss(J) IntYss(0) Then
K = 0
Exit For
End If
Next J
Loop
For I = 1 To 5
Print StrGs(I) & "=" & IntYss(I)
Next I
End Su

求计算公式(VB)有 A B C D E (五个数相加能被五整除)五个变量五个数之间A-1则B+1B-1则C+1C-1则 A,B,C,D,E五个数中比的关系有：A：B=1：2,B：C=2：1,C：D=2：3,D：E=1：2,这五个数中哪个数最 a.b.c.d.e五个数依次排成一排,a.b.c三个数的平均数是5/8,c.d.e三个数的平均数是1/4,你五个数的总数在与1与9之间顺次插入3个数a,b,c,使这五个数成等差数列,则由五个数组成的数列是什么在1与9之间顺次插入3个数a,b,c,使这五个数成等差数列,则由这五个数组成的数列是什么五个数A,B,C,D,E,每次去掉一个数,将其余四个数求平均数,这样计算了五次,得到下面五个数：17,25, 五个数A,B,C,D,E,每次去掉一个数,将其余四个数求平均数,这样计算了五次,得到下面五个数：17,25 A,B,C,D,E五个数的平均数比A,B,C三个数的平均数大5,而D,E两个数的平均数为85.则五个数的平均数是( ). 在-1与-7之间顺次插入三个数a,b,c使这五个数成等差数列,则这个数列为? 在-1到7之间顺次插入三个数a、b、c使这五个数成等差数列则这个数列为 A B C D E五个数的平均数要比A B C三个数的平均数大5而D E的平均数为85求A B C D E 五个数的平均如图所示,数轴上有五个点A,B,P,C,D,若Ap=PD=3,AB=BC=CD且点P表示的数是1则A,B,C,D分别表示