求计算公式(VB)有 A B C D E (五个数相加能被五整除)五个变量五个数之间A-1则B+1B-1则C+1C-1则D+1D-1则E+1E-1则A+1求不管在五个数为多少的时候(相加能被五整除不变),五个数如何减能变成相等比如5 2 3
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 04:35:52
![求计算公式(VB)有 A B C D E (五个数相加能被五整除)五个变量五个数之间A-1则B+1B-1则C+1C-1则D+1D-1则E+1E-1则A+1求不管在五个数为多少的时候(相加能被五整除不变),五个数如何减能变成相等比如5 2 3](/uploads/image/z/3158119-55-9.jpg?t=%E6%B1%82%E8%AE%A1%E7%AE%97%E5%85%AC%E5%BC%8F%28VB%29%E6%9C%89+A+B+C+D+E+%28%E4%BA%94%E4%B8%AA%E6%95%B0%E7%9B%B8%E5%8A%A0%E8%83%BD%E8%A2%AB%E4%BA%94%E6%95%B4%E9%99%A4%29%E4%BA%94%E4%B8%AA%E5%8F%98%E9%87%8F%E4%BA%94%E4%B8%AA%E6%95%B0%E4%B9%8B%E9%97%B4A-1%E5%88%99B%2B1B-1%E5%88%99C%2B1C-1%E5%88%99D%2B1D-1%E5%88%99E%2B1E-1%E5%88%99A%2B1%E6%B1%82%E4%B8%8D%E7%AE%A1%E5%9C%A8%E4%BA%94%E4%B8%AA%E6%95%B0%E4%B8%BA%E5%A4%9A%E5%B0%91%E7%9A%84%E6%97%B6%E5%80%99%28%E7%9B%B8%E5%8A%A0%E8%83%BD%E8%A2%AB%E4%BA%94%E6%95%B4%E9%99%A4%E4%B8%8D%E5%8F%98%29%2C%E4%BA%94%E4%B8%AA%E6%95%B0%E5%A6%82%E4%BD%95%E5%87%8F%E8%83%BD%E5%8F%98%E6%88%90%E7%9B%B8%E7%AD%89%E6%AF%94%E5%A6%825+2+3)
求计算公式(VB)有 A B C D E (五个数相加能被五整除)五个变量五个数之间A-1则B+1B-1则C+1C-1则D+1D-1则E+1E-1则A+1求不管在五个数为多少的时候(相加能被五整除不变),五个数如何减能变成相等比如5 2 3
求计算公式(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分,有什么思路上不清楚的,可以留言
求计算公式(VB)有 A B C D E (五个数相加能被五整除)五个变量五个数之间A-1则B+1B-1则C+1C-1则D+1D-1则E+1E-1则A+1求不管在五个数为多少的时候(相加能被五整除不变),五个数如何减能变成相等比如5 2 3
'里面用了控件数组.
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 Sub