用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
然后把和求出来,
如果和在要求范围内,就显示出来
否则就放弃!
但是还有点问题,就是i和j可以交换位置,你添点代码检查重复就可以了
谢谢快乐花之舞!
在此也一并感谢在我来到星论坛后给予我极大的帮助的引力波斑竹和星友们,祝你们元宵节快乐!
基本是这个意思,但还差>15的判断,而且1-10的做法不如0-9.快花做的他可能看不懂哦
以下是引用菠萝蜜在2005-2-24 21:29:41的发言:
楼主是用什么版做的?