Option Explicit

Dim n(1 To 6) As Long

Dim a(1 To 8) As Long

Sub Init_a()

a(1) = 1
a(2) = 3
a(3) = 5
a(4) = 8
a(5) = 16
a(6) = 24
a(7) = 32
a(8) = 40

End Sub


Private Sub Command1_Click()
'n 的文本框是：text1(?)
Dim i As Long
Dim j As Long

Dim b As Long
Dim bc(1 To 96) As Long
Dim bw As Long, bi As Long

For i = 0 To 5
    If IsNumeric(Text1(i).Text) Then
        n(i + 1) = Val(Text1(i).Text)
    Else
        MsgBox "第 " & i + 1 & " 个数输入不正确", vbCritical, "错误"
        Exit Sub
    End If
Next i

For i = 1 To 6
    For j = 1 To 8
        b = n(i) + a(j)                     '加法
        If b <= 50 Then                     '符合条件
            For bi = 1 To bw                '搜索历史答案
                If bc(bi) = b Then          '找到
                    Exit Sub                '退出循环
                End If
            Next bi
            If bi = bw + 1 Then             '如果没找到
                bw = bw + 1                 '计数
                bc(bw) = b                  '保存历史
                Text2.Text = Text2.Text & vbCrLf & n(i) & "+" & a(j) & "=" & b  '添加结果
            End If
        End If
        
        b = n(i) - a(j)                     '减法
        If b >= 0 Then                      '符合条件
            For bi = 1 To bw
                If bc(bi) = b Then
                    Exit Sub
                End If
            Next bi
            If bi = bw + 1 Then
                bw = bw + 1
                bc(bw) = b
                Text2.Text = Text2.Text & vbCrLf & n(i) & "-" & a(j) & "=" & b
            End If
        End If
    Next j
Next i
End Sub
Private Sub Form_Load()
    Call Init_a
End Sub

text2 是多行，带竖滚动条
text1 是控件数组，下标从 0 到 5

仅仅就是文本框输入数字而已，还不能自己动手？

是这样的，我想在TEXT1.TEXT到TEXT6.TEXT文本框里，分别输入我想要的数字，
但是要赋值，让N1=VAL(TEXT1.TEXT),N2=VAL(TEXT2.TEXT),N3=VAL(TEXT3.TEXT),N4=VAL(TEXT4.TEXT),N5=VAL(TEXT5.TEXT),N6=VAL(TEXT6.TEXT)
但是，我单击"按钮"之后，然后开始计算我上面的那些公式，
然后，显示的结果是在TEXT7.TEXT里显示，
--------------------------------------------
还有，大神你刚才给我的代码为什么老出错？

你看了我代码下面的说明吗？
我用的是控件数组

看了，不过我是菜鸟，实在不懂呀

在窗体放个 textbox ，自动名字为 text1
然后复制这个 text1，然后再粘贴，会提示是否创建控件数组，点是，然后继续粘贴，直到粘出6个来为止。

再手动放一个 textbox ，自动名字为 text2
MultiLine 设为真，
ScrollBars 设为 VbVertical

然后放个 CommandButton  ,自动名字为 Command1

风版在16楼详细写了建文本框组数组的方法，再给5楼代码数组n赋值。
本来希望你对写代码的过程感兴趣，没有实现。

谢谢大神，我的问题解决了，

只是大神能告诉我，怎么赋值不

零基础的情况在短时间内就做出来了，看来VB6真的很容易。
在窗体内建Text1(0)至Text1(5)控件数组后，调整2个地方。
1、如你所标记的，修改Init_n()

Sub Init_n()
  Dim i As Integer
  For i = 0 To 5
    n(i + 1) = Val(Text1(i).Text)
  Next
End Sub

2、将Form_Load()中的Init_n语句移至Command1_Click()中

Private Sub Command1_Click()
  Dim i As Integer
  Dim temp As String
  Init_n
  Cal
  For i = 0 To UBound(Output)
    temp = temp & Output(i) & " "
  Next
  Debug.Print temp
End Sub

Private Sub Form_Load()
  Init_a
End Sub

没有考虑文本框内输入数据不符合条件的情况，自己把握。也可以借鉴风版的方法。