高一计算机编程题。VBS语言

来源：百度知道 编辑：UC知道 时间：2024/06/07 10:02:21
甲、乙、丙分别有书36本，48本，64本。首先由甲把他的书平分为三份；分给乙和丙各一份， 自己留一份；然后乙和丙按与甲相同的方法处理。编一程序，模拟上述过程，并输出所有中间结果,即甲分完书后三个人各有多少本、乙分完书后三个人各有多少本、丙分完书后三个人各有多少本。

提交要求：本题允许提交的文件格式为".htm"。

Private Sub Form_Click()
Dim x%(1 To 3), m%, n%, a%
x(1) = 36: x(2) = 48: x(3) = 64
For m = 1 To 3
a = x(m) / 3
For n = 1 To 3
If m = n Then
x(n) = a
Else
x(n) = x(n) + a
End If
Print x(n),
Next n
Print
Next m
End Sub

用JAVA也可以哦