神马品牌网太原山投城尚城:高级编程问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/03 05:49:53
互赠糖果。甲、乙、丙三人上街买糖果。三人都买好后，甲对乙、丙说，我可以按你们现有的糖果数再送给你们每人一份。甲送给乙、丙后，乙也按甲、丙现有的糖果数，送给甲、丙各一份糖果。丙也如此送了甲、乙各一份。互相赠送后，每人恰好各有64颗糖果。
用VB编不我会!
问题补充：用VB编码编呀
2楼的不行
用VB编不我会!
问题补充：用VB编码编呀
2楼的不行
Dim i, j, k
Private Sub Command1_Click()
Dim a, b, c As Integer
a = 64
b = 64
c = 64
js c, a, b
c = i: b = j: a = k
js b, c, a
b = i: c = j: a = k
js a, b, c
a = i: b = j: c = k
Print "甲原有" & a
Print "乙原有" & b
Print "丙原有" & c
End Sub
Sub js(ByVal n As Integer, ByVal u As Integer, ByVal t As Integer)
t = t / 2
u = u / 2
n = 192 - t - u
i = n: j = u: k = t
End Sub
怎么叫不行？反正我出结果了，也是编程实现的