小弟的问题是:
我随便输入4个数"S(1 TO 4"),然后再输入一个数N,如果S(1 TO 4)中有两个或三个或四个数相加等于N,然后就打印出相加等于N的数,我自己写了一个如下
Option Explicit
Private Sub Form_click()
Dim s(1 To 4) As Integer '定议一个数组,存取要输入的三个数
Dim n As Integer '定议要等的数,
Dim i, j, d As Integer '循环用的变量
'输入四个数
For i = 1 To 4
s(i) = InputBox("请输入三个数")
Print s(i)
Next i
n = InputBox("请输入要等的数")
For i = 1 To 4
 For j = i + 1 To 4
  If s(i) + s(j) = n Then
  Print s(i) & "加" & s(j) & "等于" & n,
  ElseIf s(i) * 2 = n Then
    Print s(i) & "加本身等于" & n
   End If
Next j
Next i
End Sub
但是我写的这个只能打印出两个数,如何打印三个,或四个,,,,,,,

谢谢2楼的回复,应该是我的问题问的不够祥细,因该是,我要输入N个数,(N不知道多少),再输入一个要等的数M,然后对这N个数进行统计如果N中有几个数相加等于M则把那几个数打印出来,或者N中有哪几个数本身相加等M也打印出来,,

风吹过b 非常感谢你的帮助,代码我已经收了,
虽面做的还不够人性化,,,我自己做修改,谢谢