Rss & SiteMap

搭建论坛 http://bbs.diylsoft.com:8118/starforum/index.asp

搭建论坛是“搭建式”中文软件开发工具《搭建之星》、《网站·搭建者》技术交流的地方。
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:【答复】菠萝蜜,你需要的算法

1楼
快乐花之舞 发表于: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 然后把和求出来, 如果和在要求范围内,就显示出来 否则就放弃!
2楼
快乐花之舞 发表于:2005-2-23 18:10:21
论坛不支持缩进,所以代码不大好看
3楼
快乐花之舞 发表于:2005-2-23 18:12:05
但是还有点问题,就是i和j可以交换位置,你添点代码检查重复就可以了
4楼
菠萝蜜 发表于:2005-2-23 22:30:21
谢谢快乐花之舞! 在此也一并感谢在我来到星论坛后给予我极大的帮助的引力波斑竹和星友们,祝你们元宵节快乐!
5楼
菠萝蜜 发表于:2005-2-24 21:29:41
楼主是用什么版做的?
6楼
引力波 发表于:2005-2-24 22:00:11
基本是这个意思,但还差>15的判断,而且1-10的做法不如0-9.快花做的他可能看不懂哦
7楼
洪滨 发表于:2005-2-25 9:19:44
以下是引用菠萝蜜在2005-2-24 21:29:41的发言: 楼主是用什么版做的?
共7 条记录, 每页显示 10 条, 页签: [1]

搭建之星 网站·搭建者 Copyright © 2000 - 2011
Powered By Dvbbs Version 8.2.0
Processed in 0.01953 s, 4 queries.