一道vb编程

来源：百度知道 编辑：UC知道 时间：2024/05/14 03:40:42
在已经设定好的N个（N大于等于20，小于等于50）文本框里输入数字（保有两个小数点的正数），并再给出一个正数Y（人工输入）。若这N个数中有任意两个或两个以上的数字之和等于Y时，请列出所有相应数字组合。
注意“3个以上的数字之和”的情况！！

'放一个按钮,一个text1文本框组(放一个text1然后复制49次),一个text2,一个text3
Dim A(49), L, M As Double
Dim i, j As Integer
Dim S As String
Private Sub Command1_Click()
For i = 0 To 49
If IsNumeric(Text1(i)) Or Text1(i) = "" Then
M = Val(Format(Text1(i), "000000.00"))
If M >= 0 Then
A(i) = M
Else
MsgBox "第" & i + 1 & "个框内不是正数!"
Exit Sub
End If
Else
MsgBox "第" & i + 1 & "个框内不是数字!"
Exit Sub
End If
Next

If Not IsNumeric(Text2.Text) Then
MsgBox "结果框内不是数字!"
Exit Sub
Else
L = Val(Text2.Text)
End If

For i = 0 To 48
For j = i + 1 To 49
If A(i) + A(j) = L And A(i) <> 0 And A(