| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 682 人关注过本帖
标题:编程最大最小值
只看楼主 加入收藏
冻顶百合
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-10-20
收藏
 问题点数:0 回复次数:5 
编程最大最小值

编程:连续输入N个值,直到输入非数值数据为止.请求出其中的最大值最小值.

代码.谢谢啊

2007-11-05 22:57
冻顶百合
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-10-20
收藏
得分:0 

Private Sub Image1_Click()
Dim Min, Max, D As Double
Dim Str As String
Dim N As Integer
N = 1
Do
Str = InputBox("请输入第" & N & "个数", "输入")
If Asc(Str) < Asc("0") Or Asc(Str) > Asc("9") Then Exit Do
D = Val(Str)
Print D
If N = 1 Then Max = D: Min = D
If Val(D) > Max Then Max = Val(D)
If Val(D) < Min Then Min = Val(D)
N = N + 1
Loop
Me.Show
Print "最大值:" & Max
Print "最小值:" & Min
Label3.Caption = Max
Label4.Caption = Min

End Sub

2007-11-21 16:14
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
判断是否是数字,可以用isnumeric函数

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-11-21 19:51
冻顶百合
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-10-20
收藏
得分:0 
我不太会啊.可以教教吗?
2007-11-25 23:08
冻顶百合
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-10-20
收藏
得分:0 
我试了一下,很好用啊.
if isnumeric(str)=false then exit do
2007-11-25 23:24
那边有朵蘑菇云
Rank: 1
来 自:很……那啥的一个地方
等 级:新手上路
威 望:1
帖 子:390
专家分:0
注 册:2007-9-3
收藏
得分:0 
isnumeric()

确实很好用 谢谢 哈哈 又学习

身不残 志更不坚
2007-11-26 10:24
快速回复:编程最大最小值
数据加载中...
 
   



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

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