求助一段vb.net的代码

yangff

一旦使用任何System.Math运算就直接杯具，求各种解释和安慰

1. Imports System.CodeDom.Compiler
   
2. Imports System.Math
   
3. 'Public Class clsF'
   
4. 'Public Function funCal() As Object'
   
5. 'Dim x As Integer = 1
   
6. '    Return Math.Sin(x)
   
7. 'End Function
   
8. 'End Class
   
9. Public Class frmArrayEdit
   
10.     Dim labs() As Label
    
11.     Dim inps() As TextBox
    
12.     Dim num As Integer
    
13.     Private Sub frmArrayEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
14. 
    
15.     End Sub
    
16.     Public Function Calculate(ByVal x As Integer, ByVal expression As String) As Object
    
17.         On Error Resume Next
    
18.         Dim className As String = "clsF"
    
19.         Dim methodName As String = "funCal"
    
20. 
    
21.         Dim classSource As New System.Text.StringBuilder
    
22.         '  classSource.Append("Imports System.Math")
    
23.         classSource.Append("public   class   " + className + vbCrLf)
    
24.         classSource.Append("         public  function " + methodName + "() as object" + vbCrLf)
    
25.         classSource.Append("                 Dim x As Integer = " & x & vbCrLf)
    
26.         classSource.Append("                 return   " + expression + vbCrLf)
    
27.         classSource.Append("         end function" + vbCrLf)
    
28.         classSource.Append("end class")
    
29. 
    
30.         Dim codeProvider As New VBCodeProvider
    
31.         Dim cParams As New CompilerParameters
    
32.         cParams.GenerateExecutable = False
    
33.         cParams.GenerateInMemory = False
    
34.         Dim cResults As CompilerResults = codeProvider.CompileAssemblyFromSource(cParams, classSource.ToString)
    
35.         Dim asm As System.Reflection.Assembly = cResults.CompiledAssembly
    
36.         Dim eval As Object = asm.CreateInstance(className)
    
37.         Dim method As System.Reflection.MethodInfo = eval.GetType().GetMethod(methodName)
    
38.         Dim args() As String = Nothing
    
39.         Dim reObj As Object = method.Invoke(eval, args)
    
40. 
    
41.         GC.Collect()
    
42.         Return reObj
    
43.     End Function
    
44.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
45.         Dim onum As Integer = num
    
46. 
    
47.         num = TextBox1.Text
    
48.         If num < onum Then
    
49.             For i = num + 1 To onum
    
50.                 labs(i).Dispose()
    
51.                 inps(i).Dispose()
    
52.             Next
    
53.             ReDim Preserve labs(TextBox1.Text)
    
54.             ReDim Preserve inps(TextBox1.Text)
    
55.         Else
    
56.             If num > onum Then
    
57.                 ReDim Preserve labs(TextBox1.Text)
    
58.                 ReDim Preserve inps(TextBox1.Text)
    
59.                 For i = onum + 1 To num
    
60.                     labs(i) = New Label
    
61.                     inps(i) = New TextBox
    
62.                     ' labs(i).Width =
    
63.                     labs(i).AutoSize = True
    
64.                     labs(i).Text = i
    
65.                     'labs(i).AutoSize = False
    
66.                     If labs(i).Font.SizeInPoints < 32 Then
    
67.                         labs(i).AutoSize = False
    
68.                         labs(i).Width = 32
    
69.                     End If
    
70.                     labs(i).TextAlign = ContentAlignment.MiddleCenter
    
71. 
    
72.                     labs(i).Parent = Panel1
    
73.                     labs(i).Left = labs(i - 1).Left + labs(i - 1).Width
    
74.                     labs(i).Show()
    
75.                     ''''
    
76.                     inps(i).Width = labs(i).Width
    
77.                     inps(i).Top = labs(i).Height
    
78.                     ' labs(i).Text = i
    
79.                     inps(i).Parent = Panel1
    
80.                     inps(i).Left = inps(i - 1).Right
    
81.                     inps(i).Show()
    
82.                 Next
    
83.             End If
    
84.         End If
    
85. 
    
86.     End Sub
    
87.     Public Sub buit()
    
88.         num = 1
    
89.         TextBox1.Text = 1
    
90.         ReDim Preserve labs(TextBox1.Text)
    
91.         ReDim Preserve inps(TextBox1.Text)
    
92.         For i = 1 To num
    
93.             labs(i) = New Label
    
94.             inps(i) = New TextBox
    
95.             ' labs(i).Width =
    
96.             labs(i).AutoSize = True
    
97.             'labs(i).AutoSize = False
    
98.             labs(i).Text = i
    
99.             If labs(i).Font.SizeInPoints Then
    
100.                 labs(i).AutoSize = False
     
101.                 labs(i).Width = 32
     
102.             End If
     
103.             labs(i).TextAlign = ContentAlignment.MiddleCenter
     
104. 
     
105.             labs(i).Parent = Panel1
     
106.             labs(i).Left = 0 'labs(i - 1).Left + labs(i - 1).Width
     
107.             labs(i).Show()
     
108.             ''''
     
109.             inps(i).Width = labs(i).Width
     
110.             inps(i).Top = labs(i).Height
     
111.             ' labs(i).Text = i
     
112.             inps(i).Parent = Panel1
     
113.             inps(i).Left = 0 'inps(i - 1).Right
     
114.             inps(i).Show()
     
115.         Next
     
116.     End Sub
     
117. 
     
118.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     
119.         Dim ss As String
     
120.         ss = InputBox("F(x)=?", "AutoFinnish")
     
121.         For i = 1 To num
     
122.             inps(i).Text = Calculate(i, ss)
     
123.         Next
     
124.     End Sub
     
125. End Class
     
126. 
     

复制代码

david50407

表示不懂VB...路过 沙发~

laoj36903

不错哦,顶你!睡觉了.明天要上班.

纸飞机哟

LS马嘴了