| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 874 人关注过本帖
标题:{求助}我真的还是不会啊啊啊.大虾米啊啊帮帮我吧
只看楼主 加入收藏
WULIAOBB
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-2-10
收藏
 问题点数:0 回复次数:8 
{求助}我真的还是不会啊啊啊.大虾米啊啊帮帮我吧

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:53
zero_one
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2005-2-12
收藏
得分:0 
你应该把出错的地方给大家写出来,不然怎么知道错在哪里,
你看是不是你的类型上有问题,input接收你强型转化为INT类型试试

---------------------------------------------- 我郁闷,因为学得差劲。
2005-02-14 17:46
WULIAOBB
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-2-10
收藏
得分:0 
就是求和的时候输入的4个数字会显示出来 比如我输入4个1和那一行,应该是4对吧?但是显示的是4个1- -

而不会求和

平均数好象是求出来个数,但是不知道对不对
2005-02-15 04:24
tanghui
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2004-12-26
收藏
得分:0 

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

2005-02-15 10:27
zero_one
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2005-2-12
收藏
得分:0 
它输入4个1说明:inputbox在接收时当作字符型数据,所以你用+号时,就当做字符把它们连接起来.
4楼的兄弟就VAL是把字符型的数据转为数字型数据,这样出来结果才是4
你用的时间应该想一想.要动一下脑.输入为4个1,你要明白为什么输入是4 个1,那明显是当做字符了

---------------------------------------------- 我郁闷,因为学得差劲。
2005-02-15 12:07
WULIAOBB
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-2-10
收藏
得分:0 
谢谢大虾米- -

以后不会的地方- -

我还是会问的- -

我比较笨- -
2005-02-15 19:37
serverliu
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-2-10
收藏
得分:0 

{求助}我真的还是不会啊啊啊.大虾米啊啊帮帮我吧

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编辑过]

2005-02-18 14:24
zero_one
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2005-2-12
收藏
得分:0 
以下是引用serverliu在2005-2-18 14:24:33的发言:

{求助}我真的还是不会啊啊啊.大虾米啊啊帮帮我吧

Private Sub Form_Click() dim x, y, r, t, s, c, as integer '定义为整形就可以了 x = val(InputBox("请输入第一个数字:", "数字求和及平均", "1")) y = val(InputBox("请输入第二个数字:", "数字求和及平均", "2")) r = val(InputBox("请输入第三个数字:", "数字求和及平均", "3")) t = val(nputBox("请输入第四个数字:", "数字求和及平均", "4")) s = x + y + r + t c = s / 4 Print "四个数字的和="; s Print "四个数字的平均数="; c

End Sub 呵呵,说得不对还望赐教


---------------------------------------------- 我郁闷,因为学得差劲。
2005-02-18 16:06
anycall628
Rank: 1
等 级:新手上路
帖 子:222
专家分:0
注 册:2005-2-18
收藏
得分:0 
楼上,t=val(inputbox..........
少了个i  

爱生活,爱编程。
2005-02-18 20:21
快速回复:{求助}我真的还是不会啊啊啊.大虾米啊啊帮帮我吧
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028377 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved