| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 356 人关注过本帖
标题:[求助]为什么
只看楼主 加入收藏
feng0325
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2007-9-19
收藏
 问题点数:0 回复次数:2 
[求助]为什么

求输入n个数,输出其中的最大值??
Private Sub Form_Click()
Dim n As Integer, x As Single, i As Integer, m As Single
n = InputBox("输入个数")
For i = 1 To n
x = InputBox("输入第" + Str(i) + "值")

If i = 1 Then
m = x
Else
If x > m Then m = x
End If
Next i
Print x
End Sub
比如第一个数为10,第二个数为30,第三个数为20
可是输出的却是20????

搜索更多相关主题的帖子: 最大值 
2007-10-20 20:07
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
你把Print x换成Print m试试。

2007-10-20 20:18
feng0325
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2007-9-19
收藏
得分:0 
知道了,谢谢了,又错在小地方上.所谓当局者迷,旁观者清!!!
2007-10-20 20:22
快速回复:[求助]为什么
数据加载中...
 
   



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

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