help!
Option Explicit
Private 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后面输入
[解决办法]
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
[解决办法]
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