help!

Question

Option ExplicitPrivate Sub Form_Load()
Dim a As Integer, x As String, y As String, b As Integer, c As Integer, d As Integer
'求y的表达式
a = 2
b = 3
c = 4
d = 5
y = a & "*x" & "^" & b & "+" & c & "*x" & "^" & d'代入x计算
x = 50
Text1.Text = y
End Sub运行程序后
输出的还是表达式:2*x^3+4*x^5
怎么让它输出计算结果
说明:x必须在表达式y = a & "*x" & "^" & b & "+" & c & "*x" & "^" & d后面输入

Answer 1

Private Sub Form_Load()
Dim a As Integer, x As String, y As Double, b As Integer, c As Integer, d As Integer
'求y的表达式
a = 2
b = 3
c = 4
d = 5
y = a * x^b + c * x^d'代入x计算
x = 50
Text1.Text = a & "*x" & "^" & b & "+" & c & "*x" & "^" & d & " = " & y
End Sub

Answer 2

Private Sub Form_Load()
Dim a As Integer, x As String, y As Double, b As Integer, c As Integer, d As Integer
'求y的表达式
a = 2
b = 3
c = 4
d = 5
x = 50  '代入x计算
y = a * x^b + c * x^d
Text1.Text = a & "*x" & "^" & b & "+" & c & "*x" & "^" & d & " = " & y
End Sub

Answer 3

能不能不再输入Text1.Text = a & "*x" & "^" & b & "+" & c & "*x" & "^" & d
直接使用前面的y来计算
我程序中的abcd随条件不同而不同
再输入太麻烦了
我把代码贴在下面

Answer 4

If form1.Option2(0).Value = True Then
    If Y = False Then
        MsgBox "请按顺序使用预沉积单元", 48, "您好："
        If vbOK = 1 Then
            Form2.WindowState = 1
            form1.Show
        End If
    ElseIf a And Not (b) And Not (c) And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        N = N1 & Np
    ElseIf a And b And Not (c) And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & "* 10000 / (" & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & ")) - Exp(-(X + 1.7 *" & DTP3 & ") ^ 2 / (4 *" & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
            Else
            N3 = Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
        End If
        N = N1 & "+" & N3 & Np
    ElseIf a And b And c And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & "* 10000 / (" & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & ")) - Exp(-(X + 1.7 *" & DTP3 & ") ^ 2 / (4 *" & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
            Else
            N3 = Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
        End If
        If form1.Combo5(6).Text = "AL" Or form1.Combo5(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY5 & ")) - Exp(-(X + 1.7 *" & DTP5 & ") ^ 2 / (4 *" & DTY5 & ")))"
            ElseIf form1.Combo5(6).Text = "P" Then
            N5 = "-" & Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
            Else
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
        End If
        N = N1 & "+" & N3 & Np
    ElseIf a And b And c And d = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & "* 10000 / (" & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & ")) - Exp(-(X + 1.7 *" & DTP3 & ") ^ 2 / (4 *" & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
            Else
            N3 = Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
        End If
        If form1.Combo5(6).Text = "AL" Or form1.Combo5(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY5 & ")) - Exp(-(X + 1.7 *" & DTP5 & ") ^ 2 / (4 *" & DTY5 & ")))"
            ElseIf form1.Combo5(6).Text = "P" Then
            N5 = "-" & Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
            Else
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
        End If
        If form1.Combo7(6).Text = "AL" Or form1.Combo7(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N7 = Q7 & "* 10000 / (" & PI & "*" & DTY7 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY7 & ")) - Exp(-(X + 1.7 *" & DTP7 & ") ^ 2 / (4 *" & DTY7 & ")))"
            ElseIf form1.Combo7(6).Text = "P" Then
            N7 = "-" & Q7 & "* 10000 / (" & PI & "*" & DTY7 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY7 & "))"
            Else
            N7 = Q7 & "* 10000 / (" & PI & "*" & DTY7 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY7 & "))"
        End If
        N = N1 & "+" & N3 & "+" & N7 & Np
    End If

Answer 5

ElseIf form1.Option2(1) = True Then
    If Y = False Then
        MsgBox "请按顺序使用预沉积单元", 48, "您好："
        If vbOK = 1 Then
            Form2.WindowState = 1
            form1.Show
        End If
    ElseIf a And Not (b) And Not (c) And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        N = N1 & Np
    ElseIf a And b And Not (c) And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & "* 10000 / (" & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & ")) - Exp(-(X + 1.7 *" & DTP3 & ") ^ 2 / (4 *" & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
            Else
            N3 = Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
        End If
        N = N1 & "+" & N3 & Np
    ElseIf a And b And c And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & "* 10000 / (" & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & ")) - Exp(-(X + 1.7 *" & DTP3 & ") ^ 2 / (4 *" & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
            Else
            N3 = Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
        End If
        If form1.Combo5(6).Text = "AL" Or form1.Combo5(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY5 & ")) - Exp(-(X + 1.7 *" & DTP5 & ") ^ 2 / (4 *" & DTY5 & ")))"
            ElseIf form1.Combo5(6).Text = "P" Then
            N5 = "-" & Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
            Else
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
        End If
        N = N1 & "+" & N3 & Np
    ElseIf a And b And c And d = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & " * 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * (Exp(-X ^2 / (4 *" & DTY1 & ")) - Exp(-(X + 1.7 *" & DTP1 & ") ^ 2 / (4 *" & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
            Else
            N1 = Q1 & "* 10000 / (" & PI & "*" & DTY1 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & "* 10000 / (" & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & ")) - Exp(-(X + 1.7 *" & DTP3 & ") ^ 2 / (4 *" & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
            Else
            N3 = Q3 & "* 10000 / (" & PI & "*" & DTY3 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY3 & "))"
        End If
        If form1.Combo5(6).Text = "AL" Or form1.Combo5(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY5 & ")) - Exp(-(X + 1.7 *" & DTP5 & ") ^ 2 / (4 *" & DTY5 & ")))"
            ElseIf form1.Combo5(6).Text = "P" Then
            N5 = "-" & Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
            Else
            N5 = Q5 & "* 10000 / (" & PI & "*" & DTY5 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY5 & "))"
        End If
        If form1.Combo7(6).Text = "AL" Or form1.Combo7(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N7 = Q7 & "* 10000 / (" & PI & "*" & DTY7 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY7 & ")) - Exp(-(X + 1.7 *" & DTP7 & ") ^ 2 / (4 *" & DTY7 & ")))"
            ElseIf form1.Combo7(6).Text = "P" Then
            N7 = "-" & Q7 & "* 10000 / (" & PI & "*" & DTY7 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY7 & "))"
            Else
            N7 = Q7 & "* 10000 / (" & PI & "*" & DTY7 & ") ^ 0.5 * Exp(-X ^ 2 / (4 *" & DTY7 & "))"
        End If
        N = N1 & "+" & N3 & "+" & N7 & Np
    End If
End If
Text1.BorderStyle = 1
Text1.Text = "杂质分布模拟函数为：N(X)=" & N

Answer 6

Private Sub Form_Load()
Dim a As Integer, x As String, y As Double, b As Integer, c As Integer, d As Integer
dim strY as string
strY = a & "*x" & "^" & b & "+" & c & "*x" & "^" & d & " = "
a = 2 
b = 3, 
c = 4
d = 5
x = 50  '代入x计算
y = a * x^b + c * x^d
Text1.Text =strY  & y
End Sub

Answer 7

Const strN1= " * 10000 / ("
Const strN2= ") ^ 0.5 * (Exp(-X ^2 / (4 *"
Const strN3= ")) - Exp(-(X + 1.7 *"
Const strN4= ") ^ 2 / (4 *"
Const strN5= ") ^ 0.5 * Exp(-X ^ 2 / (4 *"            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN2 & DTY1 & strN3 & DTP1 & strN4 & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
            Else
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
        End If
        N = N1 & Np
    ElseIf a And b And Not (c) And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN2 & DTY1 & strN3 & DTP1 & strN4 & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
            Else
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & strN1 & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & strN3 & DTP3 & strN4 & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & strN1 & PI & "*" & DTY3 & strN5 & DTY3 & "))"
            Else
            N3 = Q3 & strN1 & PI & "*" & DTY3 & strN5 & DTY3 & "))"
        End If
        N = N1 & "+" & N3 & Np
    ElseIf a And b And c And Not (d) = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN2 & DTY1 & strN3 & DTP1 & strN4 & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
            Else
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & strN1 & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & strN3 & DTP3 & strN4 & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & strN1 & PI & "*" & DTY3 & strN5 & DTY3 & "))"
            Else
            N3 = Q3 & strN1 & PI & "*" & DTY3 & strN5 & DTY3 & "))"
        End If
        If form1.Combo5(6).Text = "AL" Or form1.Combo5(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N5 = Q5 & strN1 & PI & "*" & DTY5 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY5 & strN3 & DTP5 & strN4 & DTY5 & ")))"
            ElseIf form1.Combo5(6).Text = "P" Then
            N5 = "-" & Q5 & strN1 & PI & "*" & DTY5 & strN5 & DTY5 & "))"
            Else
            N5 = Q5 & strN1 & PI & "*" & DTY5 & strN5 & DTY5 & "))"
        End If
        N = N1 & "+" & N3 & Np
    ElseIf a And b And c And d = True Then
        If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN2 & DTY1 & strN3 & DTP1 & strN4 & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
            Else
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
        End If
        If form1.Combo3(6).Text = "AL" Or form1.Combo3(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N3 = Q3 & strN1 & PI & " *" & DTY3 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY3 & strN3 & DTP3 & strN4 & DTY3 & ")))"
            ElseIf form1.Combo3(6).Text = "P" Then
            N3 = "-" & Q3 & strN1 & PI & "*" & DTY3 & strN5 & DTY3 & "))"
            Else
            N3 = Q3 & strN1 & PI & "*" & DTY3 & strN5 & DTY3 & "))"
        End If
        If form1.Combo5(6).Text = "AL" Or form1.Combo5(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N5 = Q5 & strN1 & PI & "*" & DTY5 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY5 & strN3 & DTP5 & strN4 & DTY5 & ")))"
            ElseIf form1.Combo5(6).Text = "P" Then
            N5 = "-" & Q5 & strN1 & PI & "*" & DTY5 & strN5 & DTY5 & "))"
            Else
            N5 = Q5 & strN1 & PI & "*" & DTY5 & strN5 & DTY5 & "))"
        End If
        If form1.Combo7(6).Text = "AL" Or form1.Combo7(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N7 = Q7 & strN1 & PI & "*" & DTY7 & ") ^ 0.5 * (Exp(-X ^ 2 / (4 *" & DTY7 & strN3 & DTP7 & strN4 & DTY7 & ")))"
            ElseIf form1.Combo7(6).Text = "P" Then
            N7 = "-" & Q7 & strN1 & PI & "*" & DTY7 & strN5 & DTY7 & "))"
            Else
            N7 = Q7 & strN1 & PI & "*" & DTY7 & strN5 & DTY7 & "))"
        End If
        N = N1 & "+" & N3 & "+" & N7 & Np
    End If

Answer 8

If form1.Combo1(6).Text = "AL" Or form1.Combo1(6).Text = "Ga" Then    'IF 语句来选择是否有外扩散
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN2 & DTY1 & strN3 & DTP1 & strN4 & DTY1 & ")))"
            ElseIf form1.Combo1(6).Text = "P" Then
            N1 = "-" & Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
            Else
            N1 = Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
        End If
=============================================你对比上下两段代码
Select Case form1.Combo1(6).Text 
    Case "AL","Ga"
      N1 = Q1 & strN1 & PI & "*" & DTY1 & strN2 & DTY1 & strN3 & DTP1 & strN4 & DTY1 & ")))"
    Case "P" 
      N1 = "-" & Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
    Case Else
      N1 = Q1 & strN1 & PI & "*" & DTY1 & strN5 & DTY1 & "))"
End Select