VB中提示实时错误下标越界9什么问题啊！我是新手
Private Sub MSComm1_OnComm()
Static maxv '存储最大幅度值
ReDim Preserve f(n) '存储频率值
ReDim Preserve v(n) '存储幅度值
ReDim Preserve changef(n2) '存储共振频率变化值
ReDim Preserve yyy2(n2) '画曲线时保修上一次的纵坐标
ReDim Preserve yyy3(n2)
ReDim Preserve ampmax(n2) '用于保存幅度峰值
ReDim Preserve tim(n2) '用于记录共振频率时的时间
Dim j As Integer
Dim k As Integer
ReDim BeforeFilter(n + 1)
ReDim AfterFilter(n + 1)
sindata = MSComm1.Input '读入输入缓冲区数据
indata = Val(sindata(0)) '将接收到的二进制数转换成十进制数
v(ii) = indata
'v(ii) = (indata / 255) * 5 '幅度值
ii = ii + 1
ProgressBar1.Max = n + 1 '进度显示
ProgressBar1.Value = ii
If ii = n + 1 Then '判断步进次数是否已到
ProgressBar1.Visible = False '关闭测量进度条
maxv0 = 0
' For j = 2 To n - 2
' If (v(j) - v(j - 1) >= 0) Or (v(j -
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
请各位指点下：程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
