这个混合编程有多种方式，关键是怎么来连接。
公司主营业务：成都网站建设、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出西和免费做网站回馈大家。
目前常用的方法有：
1）dll动态链接库
2）VB 利用shell () 函数调用MATLAB 应用程序
3）动态数据交换（DDE）
4）ActiveX自动化服务技术
其中，
1）可以脱离matlab系统，但是需要注册该dll文件。运行速度较快。
2）中程序的运行脱离不了MA TLAB 环境, 无法开发出独立的可执行程序,难以用于商业目的。
3）其实是把matlab当做vb的一个客户端，进行数据交换，这明显不能脱离matlab系统。
4）中所编制的程序并没有脱离MA TLAB 环境, 需要在机器上安装好MA TLAB 系统。
str = "insert into out ( 姓名 , 租出日期 , 规格 , 数量 )values(" txtname.Text " , " txtday.Text " , " txtnorm.Text ", " txtamount.Text ")"
估计问题出在这里，把语句用到access中运行下试试
在VB环境中执行源代码，本身就是调试模式
按F8即可逐语句运行
点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来
可以在变量、对象等语句上点击右键，选择“添加监视”即可
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a() As Integer = {678, 45, 324, 528, 439, 387, 87, 875, 273, 823}
Dim i%, j%, n%, t%, k%
Label1.Text = ""
n = UBound(a)
For i = 0 To n - 1
For j = 0 To n - i - 1
If a(j) a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
For k = 0 To n - 1
Label1.Text = a(k) " "
Next
Label1.Text = vbCrLf
Next i
End Sub
这是正确代码 我已经调试过了。尽请放心