有2个问题请教?是作业...哎不会写代码..

Question

1.从键盘上输入4个数字,编写程序,计算并输出这4个数字的和及平均值,通过INPUTBOX函数输入数据.并在窗体上显示和及平均值X+Y=H
2A+4Y=F
可按上式编写,INPUTBOX函数输入H和F,设H=71.F=158.请编写程序,并上机运行 ..
2.
编写程序,要求解鸡兔同笼问题,一个笼子里有鸡X只,兔Y只,每只鸡2脚,兔4脚,鸡和兔共H,总脚数F..
请帮忙~~~~~~~~~~~我在这里不胜感激了..分乱送~~~

Answer 1

Private Sub Form_Load()
Dim i As Integer
Dim sum As Long
Form1.AutoRedraw = True
For i = 1 To 4
 sum = sum + CInt(InputBox("input your data:", "input"))Next i
Print "the sum is:" + Str(sum)
Print "the averal is:" + Str(sum / 4)End Sub

Answer 2

Private Sub Command1_Click()
Dim h As Integer, f As Integer
Dim x As Integer, y As Integer
h = InputBox("input the number of h:", "input")
f = InputBox("input the number of f:""input")
x = (4 * h - f) / 2
y = (h - x)
Print "鸡有" + Str(x)
Print "兔有" + Str(y)
End Sub