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

我真的急啊- -我在线上等

你应该把出错的地方给大家写出来，不然怎么知道错在哪里，
你看是不是你的类型上有问题，input接收你强型转化为ＩＮＴ类型试试

就是求和的时候输入的4个数字会显示出来 比如我输入4个1和那一行,应该是4对吧?但是显示的是4个1- -

而不会求和

平均数好象是求出来个数,但是不知道对不对

Private Sub Form_Click() x = InputBox("请输入第一个数字：", "数字求和及平均", "1") y = InputBox("请输入第二个数字：", "数字求和及平均", "2") r = InputBox("请输入第三个数字：", "数字求和及平均", "3") t = InputBox("请输入第四个数字：", "数字求和及平均", "4") s = Val(x) + Val(y) + Val(r) + Val(t) c = s / 4 Print "四个数字的和="; s Print "四个数字的平均数="; c

End Sub

它输入4个1说明:inputbox在接收时当作字符型数据,所以你用+号时,就当做字符把它们连接起来.
4楼的兄弟就VAL是把字符型的数据转为数字型数据,这样出来结果才是4
你用的时间应该想一想.要动一下脑.输入为4个1,你要明白为什么输入是4 个1,那明显是当做字符了

谢谢大虾米- -

以后不会的地方- -

我还是会问的- -

我比较笨- -

{求助}我真的还是不会啊啊啊.大虾米啊啊帮帮我吧 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 = s / 4 Print "四个数字的和="; s Print "四个数字的平均数="; c End Sub 呵呵，说得不对还望赐教

[此贴子已经被作者于2005-2-18 14:25:37编辑过]

楼上，t=val(inputbox..........
少了个i