| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 470 人关注过本帖
标题:[求助]算次小值遇到的问题?
只看楼主 加入收藏
waitrain
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-12-2
收藏
 问题点数:0 回复次数:4 
[求助]算次小值遇到的问题?
Private Sub dminCommand_Click()
Dim A(14), min, dmin As Double
Dim i, n As Integer
n = numberInput.Text
A(0) = txtInput1.Text
A(1) = txtInput2.Text
A(2) = txtInput3.Text
A(3) = txtInput4.Text
A(4) = txtInput5.Text
A(5) = txtInput6.Text
A(6) = txtInput7.Text
A(7) = txtInput8.Text
A(8) = txtInput9.Text
A(9) = txtInput10.Text
A(10) = txtInput11.Text
A(11) = txtInput12.Text
A(12) = txtInput13.Text
A(13) = txtInput14.Text
A(14) = txtInput15.Text
min = A(0)
For i = 0 To n - 1
If A(i) < min Then
min = A(i)
End If
Next i
If A(0) = min Then
If A(1) = min Then
If A(2) = min Then
If A(3) = min Then
If A(4) = min Then
If A(5) = min Then
If A(6) = min Then
If A(7) = min Then
If A(8) = min Then
If A(9) = min Then
If A(10) = min Then
If A(11) = min Then
If A(12) = min Then
If A(13) = min Then
If A(14) = min Then
dmin = 0
Else: dmin = A(14)
End If
Else: dmin = A(13)
End If
Else: dmin = A(12)
End If
Else: dmin = A(11)
End If
Else: dmin = A(10)
End If
Else: dmin = A(9)
End If
Else: dmin = A(8)
End If
Else: dmin = A(7)
End If
Else: dmin = A(6)
End If
Else: dmin = A(5)
End If
Else: dmin = A(4)
End If
Else: dmin = A(3)
End If
Else: dmin = A(2)
End If
Else: dmin = A(1)
End If
Else: dmin = A(0)
End If
For i = 0 To n - 1
If A(i) <> min Then
If A(i) < dmin Then
dmin = A(i)
End If
End If
Next i
dminOutput.Text = dmin
End Sub

我的次小值总是等于最小值,这是为什么啊?谢谢!

[此贴子已经被作者于2006-10-23 13:44:39编辑过]

搜索更多相关主题的帖子: 值遇 
2006-10-23 13:38
waitrain
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-12-2
收藏
得分:0 
大家帮忙看看,我想不出来了啊!谢谢!

曾经沧海难为水 学习语言先学C !!!
2006-10-23 13:51
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 

晕死
先排序,找倒数第二个


2006-10-23 15:25
waitrain
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-12-2
收藏
得分:0 

你看我的程序是哪里有问题啊,我是在不等于最小值的情况下,比较次小值的啊!


曾经沧海难为水 学习语言先学C !!!
2006-10-23 15:41
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 

你的算法有很大问题,我没办法帮你看,怕眼受不了


2006-10-23 16:18
快速回复:[求助]算次小值遇到的问题?
数据加载中...
 
   



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

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