serverliu 来看下- -
我那个加在哪里啊...能不能帮我写个整的?
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