以文本方式查看主题

-  搭建论坛  (http://bbs.diylsoft.com:8118/starforum/index.asp)
--  用户咨询  (http://bbs.diylsoft.com:8118/starforum/list.asp?boardid=4)
----  【答复】菠萝蜜，你需要的算法  (http://bbs.diylsoft.com:8118/starforum/dispbbs.asp?boardid=4&id=3075)
--  作者：快乐花之舞
--  发布时间：2005-2-23 18:09:21
--  【答复】菠萝蜜，你需要的算法
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:
用VB帮您制作的 代码如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer, i As Integer, j As Integer, sum As Integer x = Val(Text2.Text) y = Val(Text3.Text) z = Val(Text4.Text) Text1.Text = "X的值 数字i 数字j 三个数之和" If x < 1 Or x > 10 Then MsgBox "您输入的数据x大小不符合要求" Exit Sub End If For i = 1 To 10 sum = i + x If i > z Then Exit For End If For j = 1 To 10 sum = x + i + j If sum >= y And sum <= z Then Text1.Text = Text1.Text & vbCrLf & " " & x & " " & i & " " & j & " " & sum End If Next Next End Sub 你看是否符合您的要求 过程如下，三个数和最小为y，最大为z 这三个数为x,i,j 用循环构件， 分别循环i,j都是从1到10 然后把和求出来， 如果和在要求范围内，就显示出来 否则就放弃！
--  作者：快乐花之舞
--  发布时间：2005-2-23 18:10:21
--  
论坛不支持缩进，所以代码不大好看
--  作者：快乐花之舞
--  发布时间：2005-2-23 18:12:05
--  
但是还有点问题，就是i和j可以交换位置，你添点代码检查重复就可以了
--  作者：菠萝蜜
--  发布时间：2005-2-23 22:30:21
--  
谢谢快乐花之舞！ 在此也一并感谢在我来到星论坛后给予我极大的帮助的引力波斑竹和星友们，祝你们元宵节快乐！
--  作者：菠萝蜜
--  发布时间：2005-2-24 21:29:41
--  
楼主是用什么版做的？
--  作者：引力波
--  发布时间：2005-2-24 22:00:11
--  
基本是这个意思，但还差>15的判断，而且１－１０的做法不如０－９．快花做的他可能看不懂哦
--  作者：洪滨
--  发布时间：2005-2-25 9:19:44
--  用ＶＢ做的！
以下是引用菠萝蜜在2005-2-24 21:29:41的发言： 楼主是用什么版做的？