格式如下：

PathName：生成的可执行文件路径

Comment：执行的代码内容

函数成功返回：Success.失败返回Failed或者编译出错的代码

Private Function Test(ByVal PathName As String, ByVal Comment As String) As String

Try

Dim comp As VBCodeProvider = New VBCodeProvider

Dim parms As System.CodeDom.Compiler.CompilerParameters = New System.CodeDom.Compiler.CompilerParameters

parms.GenerateExecutable = True

parms.OutputAssembly = PathName

parms.TreatWarningsAsErrors = False

parms.ReferencedAssemblies.Add("System.Windows.Forms.dll")

Dim code As System.Text.StringBuilder = New System.Text.StringBuilder

code.Append(Comment)

Dim res As System.CodeDom.Compiler.CompilerResults = comp.CompileAssemblyFromSource(parms,code.ToString)

If res.Errors.HasErrors Then

Comment = ""

For Each Item As System.CodeDom.Compiler.CompilerError In res.Errors

Comment += Item.ErrorText + vbCrLf

Next

Return Comment

Else

Return "Success!"

End If

Catch ex As Exception

Return "Failed!"

End Try

End Function

例子：

comment=

“

Imports System.Windows.Forms
Imports System
Module Test
Sub Main()
Dim i As Integer=0
Dim sum As Integer=0
For i=0 To 100 Step 1
sum+=i
Next
Console.WriteLine(sum)
Console.ReadLine()
End Sub
End Module

”

PathName=“C：\test.exe”

执行上面的Test(PathName,Comment)后在C盘生成一个test.exe程序,运行这程序界面显示5050