怎么用VB做这道小学数学题？

Question

6□6□6□6□6□6=100
各位帮帮忙

Answer 1

这是计算  4个相同数如何加减乘除得到另一个数  的程序。6个6的太麻烦了。但方法一样。自己写下去吧。
3个TEXT TEXT1的MultiLine 属性为真。
X为左边4个相同数，Y为加减乘除后得到的数。Function fff(x As Integer, y As Integer) As StringFor i = 1 To 4
For j = 1 To 4
For k = 1 To 4    Select Case i
    Case 1
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x + x + x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x + x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x + x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x + x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x + x - x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x - x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x - x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x - x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x + x * x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x * x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x * x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x * x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x + x / x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x / x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x / x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x / x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    Case 2
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x - x + x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x + x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x + x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x + x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x - x - x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x - x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x - x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x - x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x - x * x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x * x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x * x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x * x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x - x / x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x / x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x / x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x / x / x = y Then

Answer 2

fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    Case 3
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x * x + x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x + x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x + x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x + x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x * x - x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x - x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x - x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x - x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x * x * x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x * x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x * x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x * x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x * x / x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x / x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x / x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x / x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    Case 4
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x / x + x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x + x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x + x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x + x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x / x - x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x - x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x - x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x - x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x / x * x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x * x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x * x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x * x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x / x / x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x / x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x / x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x / x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    End Select
    
Next k
Next j
Next iEnd FunctionPrivate Sub Command1_Click()
Me.Text1.Text = fff(CInt(Me.Text2.Text), CInt(Me.Text3.Text))
End Sub

Answer 3

更新后的
我想到一个方法可以实现，等我弄出来帖上。大概要下午吧。非常简单的方法。不需要这么多的代码的。
我发完再帮我回复一下Function fff(x As Integer, y As Integer) As StringFor i = 1 To 4
For j = 1 To 4
For k = 1 To 4    Select Case i
    Case 1
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x + x + x + x = y Then
                    fff = fff & x & "+" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x + x - x = y Then
                    fff = fff & x & "+" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x + x * x = y Then
                    fff = fff & x & "+" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x + x / x = y Then
                    fff = fff & x & "+" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x + x - x + x = y Then
                    fff = fff & x & "+" & x & "-" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x - x - x = y Then
                    fff = fff & x & "+" & x & "-" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x - x * x = y Then
                    fff = fff & x & "+" & x & "-" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x - x / x = y Then
                    fff = fff & x & "+" & x & "-" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x + x * x + x = y Then
                    fff = fff & x & "+" & x & "*" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x * x - x = y Then
                    fff = fff & x & "+" & x & "*" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x * x * x = y Then
                    fff = fff & x & "+" & x & "*" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x * x / x = y Then
                    fff = fff & x & "+" & x & "*" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x + x / x + x = y Then
                    fff = fff & x & "+" & x & "/" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x + x / x - x = y Then
                    fff = fff & x & "+" & x & "/" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x + x / x * x = y Then
                    fff = fff & x & "+" & x & "/" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x + x / x / x = y Then
                    fff = fff & x & "+" & x & "/" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    Case 2
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x - x + x + x = y Then
                    fff = fff & x & "-" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x + x - x = y Then
                    fff = fff & x & "-" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x + x * x = y Then
                    fff = fff & x & "-" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x + x / x = y Then
                    fff = fff & x & "-" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x - x - x + x = y Then
                    fff = fff & x & "-" & x & "-" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x - x - x = y Then
                    fff = fff & x & "-" & x & "-" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x - x * x = y Then
                    fff = fff & x & "-" & x & "-" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x - x / x = y Then
                    fff = fff & x & "-" & x & "-" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x - x * x + x = y Then
                    fff = fff & x & "-" & x & "*" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x * x - x = y Then
                    fff = fff & x & "-" & x & "*" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x * x * x = y Then
                    fff = fff & x & "-" & x & "*" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x * x / x = y Then
                    fff = fff & x & "-" & x & "*" & x & "/" & x & "=" & y & vbCrLf
                End If

Answer 4

            End Select
        Case 4
            Select Case k
            Case 1
                If x - x / x + x = y Then
                    fff = fff & x & "-" & x & "/" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x - x / x - x = y Then
                    fff = fff & x & "-" & x & "/" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x - x / x * x = y Then
                    fff = fff & x & "-" & x & "/" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x - x / x / x = y Then
                    fff = fff & x & "-" & x & "/" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    Case 3
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x * x + x + x = y Then
                    fff = fff & x & "*" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x + x - x = y Then
                    fff = fff & x & "*" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x + x * x = y Then
                    fff = fff & x & "*" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x + x / x = y Then
                    fff = fff & x & "*" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x * x - x + x = y Then
                    fff = fff & x & "*" & x & "-" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x - x - x = y Then
                    fff = fff & x & "*" & x & "-" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x - x * x = y Then
                    fff = fff & x & "*" & x & "-" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x - x / x = y Then
                    fff = fff & x & "*" & x & "-" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x * x * x + x = y Then
                    fff = fff & x & "*" & x & "*" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x * x - x = y Then
                    fff = fff & x & "*" & x & "*" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x * x * x = y Then
                    fff = fff & x & "*" & x & "*" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x * x / x = y Then
                    fff = fff & x & "*" & x & "*" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x * x / x + x = y Then
                    fff = fff & x & "*" & x & "/" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x * x / x - x = y Then
                    fff = fff & x & "*" & x & "/" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x * x / x * x = y Then
                    fff = fff & x & "*" & x & "/" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x * x / x / x = y Then
                    fff = fff & x & "*" & x & "/" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    Case 4
        Select Case j
        Case 1
            Select Case k
            Case 1
                If x / x + x + x = y Then
                    fff = fff & x & "/" & x & "+" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x + x - x = y Then
                    fff = fff & x & "/" & x & "+" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x + x * x = y Then
                    fff = fff & x & "/" & x & "+" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x + x / x = y Then
                    fff = fff & x & "/" & x & "+" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 2
            Select Case k
            Case 1
                If x / x - x + x = y Then
                    fff = fff & x & "/" & x & "-" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x - x - x = y Then
                    fff = fff & x & "/" & x & "-" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x - x * x = y Then
                    fff = fff & x & "/" & x & "-" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x - x / x = y Then
                    fff = fff & x & "/" & x & "-" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 3
            Select Case k
            Case 1
                If x / x * x + x = y Then
                    fff = fff & x & "/" & x & "*" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x * x - x = y Then
                    fff = fff & x & "/" & x & "*" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x * x * x = y Then
                    fff = fff & x & "/" & x & "*" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x * x / x = y Then
                    fff = fff & x & "/" & x & "*" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        Case 4
            Select Case k
            Case 1
                If x / x / x + x = y Then
                    fff = fff & x & "/" & x & "/" & x & "+" & x & "=" & y & vbCrLf
                End If
            Case 2
                If x / x / x - x = y Then
                    fff = fff & x & "/" & x & "/" & x & "-" & x & "=" & y & vbCrLf
                End If
            Case 3
                If x / x / x * x = y Then
                    fff = fff & x & "/" & x & "/" & x & "*" & x & "=" & y & vbCrLf
                End If
            Case 4
                If x / x / x / x = y Then
                    fff = fff & x & "/" & x & "/" & x & "/" & x & "=" & y & vbCrLf
                End If
            End Select
        End Select
    End Select
    
Next k
Next j
Next iEnd FunctionPrivate Sub Command1_Click()
Me.Text1.Text = fff(CInt(Me.Text2.Text), CInt(Me.Text3.Text))End Sub

Answer 5

tiaoci(我挑刺，我快乐)
你的答案错误的啊。
中间用+-*/来连接啊。好象不可以用666的

Answer 6

用Microsoft Script Control的解法, 比较简单(不过, 结果是无解):Option Explicit'Powered by Jadeluo, 2005/03/08
'此工程需要引用 Microsoft Script ControlConst Result = 100Private Sub Form_Load()
    Dim SC As MSScriptControl.ScriptControl
    Dim Op(1 To 4) As String
    Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
    Dim s As String, r As String
    
    Op(1) = "+"
    Op(2) = "-"
    Op(3) = "*"
    Op(4) = "/"
    Set SC = New MSScriptControl.ScriptControl
    SC.Language = "VBScript"
    r = ""
    For a = 1 To 4
    For b = 1 To 4
    For c = 1 To 4
    For d = 1 To 4
    For e = 1 To 4
        s = "6" & Op(a) & "6" & Op(b) & "6" & Op(c) & "6" & Op(d) & "6" & Op(e) & "6"
        If SC.Eval(s) = Result Then
            r = s
            GoTo Finished
        End If
    Next e
    Next d
    Next c
    Next b
    Next a
    Set SC = Nothing
Finished:
    If r = "" Then
        Debug.Print "无解"
    Else
        Debug.Print r & "=" & Result
    End If
    End
End Sub

Answer 7

to tiaoci(我挑刺，我快乐) :晕啊，这可是小学数学题啊，妳能肯定妳的是唯一答案吗？

Answer 8

to viena当然是唯一答案啊，不信你可以再找找其它解