13518219792
在VB环境中执行源代码，本身就是调试模式
创新互联建站主要从事成都做网站、成都网站制作、成都外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务色尼,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
按F8即可逐语句运行
点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来
可以在变量、对象等语句上点击右键，选择“添加监视”即可
已测试，源码如下：
一、Matlab函数代码
function x = LU5(a, b)
for i = 1 : length(a)
x(i) = a(i) + b(i);
end
二、VB.NET 2005 测试代码
Private Sub test()
Dim st As New QCS_com.QCS_LU5
Dim a() As Double = {1, 2, 3, 4}
Dim b() As Double = {1, 2, 3, 4}
Dim x As New Object
st.lu5(1, x, a, b)
Dim r As Double(,)
r = CType(x, Double(,))
End Sub
三、测试截图见附图
补充一下环境：Matlab6.5 版本，是基于COM调用的。最新版的.net调用没试验过。这个是我前一阵子帮同学写的，他装的版本是6.5，所以就装了个6.5的版本，后来因为涉及到小波及拟合，用COM打包调用有些问题，最后还是采用了引擎方式进行处理了。
1、首先打开VB软件，绘制好相应的控件，两个命令按钮，一个列表框，一个文本框。
2、接下来大概更改一下各个控件的属性。
3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码。
4、编写删除代码，记得要遍历查询。
5、运行后便可以看到这样的程序。即编写一个为列表框添加删除选项成功。
VB.NET2008代码：
Dim xlapp1 As Excel.Application
Dim xlworksheet As Excel.Worksheet
Dim xlworkbk As Excel.Workbook
xlapp1 = New Excel.Application
xlworkbk = xlapp1.Workbooks.Open("Excel文件名")
xlworksheet = xlworkbk.Worksheets("Sheet名")
xlworksheet.Cells.Item(行编号, 列编号).value ="需要输入的数据"
xlworkbk.Close()
另外，xlworksheet.UsedRange.Rows.Count是最大行数，可以用这个算行编号。
注意，需要引用Microsoft Excel Object Library（在COM的那个选项卡里）。
非常简单，我给你段源码，你自己看着修改，注释也给你标清楚了。
Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) "\月报表" Format(Now, "yyyy年MM月dd日") ".xls" ‘这个是设置EXCEL的文件路径，我这个是默认桌面
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘实例化EXCEL
MyExcel.Application.Workbooks.Open(TempPath)’打开EXCEL
MyExcel.Visible = True '是否显示打开的EXCEL，我这个是显示
MyExcel.Cells(4, 1) = textbox1.text ‘将textbox1的内容写入到EXCEL的第4行第1列，以下相同
MyExcel.Cells(4, 2) = textbox2.text
MyExcel.Cells(4, 3) = textbox3.text
MyExcel.Cells(4, 4) = textbox4.text
你需要安装vb6.0开发软件
如果安装了，就可以直接打开源码测试了，后缀名是vbp，（就是vb的工程文件）
如果没有安装vb6.0，还想打开源码看程序，那就右击 用记事本 打开后缀名为frm的文件，他是vb的窗口文件，源码都在他里面
一般得源码是没有生成exe可执行文件的，那样文件太多，太大，浪费空间
如果你自己想生成exe可执行文件，那就vb6.0得文件菜单中把文件保存成exe可执行文件就可以了，非常简单
好运！
