serverliu 来看下- -
我那个加在哪里啊...能不能帮我写个整的?
2005-02-10 22:39
Private Sub Form_Click() x = InputBox("请输入第一个数字：", "数字求和及平均", "1") y = InputBox("请输入第二个数字：", "数字求和及平均", "2") r = InputBox("请输入第三个数字：", "数字求和及平均", "3") t = InputBox("请输入第四个数字：", "数字求和及平均", "4") s = x + y + r + t c = (x + y + r + t) / 4 Print "四个数字的和="; s Print "四个数字的平均数="; c
End Sub
2005-02-10 22:40
2005-02-10 22:41
Private Sub Form_Click() dim x,y,r,t,s,c as integer x = InputBox("请输入第一个数字：", "数字求和及平均", "1") y = InputBox("请输入第二个数字：", "数字求和及平均", "2") r = InputBox("请输入第三个数字：", "数字求和及平均", "3") t = InputBox("请输入第四个数字：", "数字求和及平均", "4") s = x + y + r + t c = (x + y + r + t) / 4 Print "四个数字的和=" & s Print "四个数字的平均数=" & c
End Sub
2005-02-12 17:04
2005-02-13 11:16
2005-02-15 18:49
[此贴子已经被作者于2005-2-21 18:09:29编辑过]
2005-02-21 18:06