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 就是求不出来- - - - - - - 大虾米能不能帮我写个直接能运行的啊....