求VB大神帮我看一下我这个代码错哪了！求杨辉三角的！为什么一运行的时候总是实时错误9 下标越界_百度知道
求VB大神帮我看一下我这个代码错哪了！求杨辉三角的！为什么一运行的时候总是实时错误9 下标越界
Option Base 1Private Sub Command1_Click()Dim A() As Integer, i, j, n As IntegerReDim A(n, n) As Integern = Text2.TextFor i = 1 To nA(i, 1) = 1: A(i, i) = 1Next iFor i = 3 To n
For j = 2 To i - 1
A(i, j) = A(i - 1, j) + A(i - 1, j - 1)
Next jNext iFor i = 1 To n
For j = 1 To i
Text1 = Text1 & A(i, j) & & &
Next jNext iEnd Sub
提问者采纳
ReDim A(n, n) A鸡浮惯簧甙毫轨桐憨昆s Integern = Text2.Text这两行的顺序要换过来！要先给n赋值，然后再用n去重定义动态数组！n = Text2.TextReDim A(n, n) As Integer
提问者评价
其他类似问题
杨辉三角的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB 数组声明 为什么会下标越界？_百度知道
VB 数组声明 为什么会下标越界？
Private Sub Command1_Click()Dim a()ReDim Preserve a(1 To 2)ReDim Preserve a(4 To 6)End Sub用办能解决声明式（声明A 12
46 其声明）
能两重复声明A数组.
定吧ReDim Preserve a(1 To 2)ReDim Preserve a(1 To 6)没问题
提问者采纳
使用ReDim重新申明数组见关键字PreservePreserve作用表明重新申明数组否要重新申明数组复制原数组元素Dim a()ReDim Preserve a(1 To 2)ReDim Preserve a(4 To 6)标改变没应复制原数组元素带preserve 重申明数组起始标必须致ReDim Preserve a(1 To 2)ReDim Preserve a(1 To 6)扩充数组新数组与原数组起始标相同所错ReDim Preserve a(1 To 6)ReDim Preserve a(1 To 2)ReDim Preserve a(2 To 6)ReDim Preserve a(1 To 6)确问题知道要实现目没提解决
提问者评价
谢谢 打算以固定识别符把1维的字串拆分赋值到2维，2维的拆到3维，以此类推。
其他类似问题
下标越界的相关知识
其他1条回答
能两重复声明A数组.
定义<img class="word-replace" src="/api/getdecpic?picenc=0af6
3标单元用完.
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用VB制作一个简单记事本问题！_百度知道
用VB制作一个简单记事本问题！
比如我定义如下控件：text文件控件名字：a_txt对话框控件名字：cmd_dlg一个按扭名字：cmd_open我想实现这样的一个功能，单击cmd_open就弹出一个对话框，然后选择一个文本文件(*.txt)。打开，就会在a_txt这个控件上边显示文本文件内容，应该怎么样做呢？我不太懂VB，请各位朋友帮我完成代码编写。
大家帮帮忙好吗？
提问者采纳
Private Sub cmd_Open_Click()
Dim FileN$, FreeF%, T$
cmd_dlg.Filter = &文本文件(*.txt)|*.txt&
cmd_dlg.CancelError = True
On Error GoTo endsub
cmd_dlg.ShowOpen
FreeF = FreeFile
FileN = cmd_dlg.FileName
Open FileN For Input As FreeF
Line Input #FreeF, T
a_txt.Text = T
Do Until EOF(FreeF)
Line Input #FreeF, T
a_txt.Text = a_txt.Text + vbNewLine + T
Close FreeFendsub:End Sub
其他类似问题
记事本的相关知识
您可能关注的推广回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB数据导入access下标越界为什么啊~求高手。_百度知道
VB数据导入access下标越界为什么啊~求高手。
能 .TextMatrix数组够能rs.Fields(i)越界存取用调试变量观察功能看看具体事
其他类似问题
下标越界的相关知识
按默认排序
其他1条回答
数据库字段比控件字段
那怎么把控件字段设置多一些？
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请教大家一个VB问题，为什么我运行下列程序会出现下标越界的问题？_百度知道
请教大家一个VB问题，为什么我运行下列程序会出现下标越界的问题？
Private Sub Form_Load()
MSComm1.InputMode = 1
MSComm1.Settings = &9600,n,8,1&
&#39;波特率9600
MSComm1.PortOpen = TrueEnd Sub&#39;绘制电压实变化曲线Private Sub draw()
Picture1.Cls
Picture1.DrawWidth = 1
Picture1.BackColor = QBColor(15)
Picture1.Scale (0, 5)-(500, 0)
&#39;高显示5V<img class="word-replace" src="/api/getdecpic?picenc=0ad0数据
For i = 1 To num - 1
X1 = (i - 1): Y1 = datatemp(i - 1)
X2 = i: Y2 = datatemp(i)
Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0)
Next iEnd Sub&#39;退程序关闭串行口Private Sub Cmdquit_Click()
MSComm1.PortOpen = False
&#39;关闭串口
Unload MeEnd SubPrivate Sub MSComm1_OnComm() Dim Inbyte() As Byte
Dim buffer As String
Dim datastr(20) As String
Inbyte = MSComm1.Input
For i = LBound(Inbyte) To UBound(Inbyte)
buffer = buffer + Hex(Inbyte(i)) + Chr(32)
&#39;获单片机传送16进制数(1字节)
If buffer && && Then
&#39;获16进制每位
If Len(Trim(buffer)) = 1 Then
&#39; Trim()函数掉返数据2 边空格
datastr(1) = &0&
datastr(2) = Trim(buffer)
data16.Text = &0& & buffer
&#39;显示16进制
If Len(Trim(buffer)) = 2 Then
datastr(1) = Mid(Trim(buffer), 1, 1)
datastr(2) = Mid(Trim(buffer), 2, 1)
data16.Text = buffer
&#39;显示16进制
&#39;16进制转换<img class="word-replace" src="/api/getdecpic?picenc=0a5f进制
datatemp(num) = (Val(&&H& & datastr(1)) * (16 ^ 1) + Val(&&H& & datastr(2)) * (16 ^ 0)) * 0.1
data10.Text = Format$(datatemp(num), &0.0&)
&#39;10进制显示,保留位数
num = num + 1
&#39;采集数
&#39;调用绘曲线程
End IfEnd Sub
datatemp(num) = (Val(&&H& & datastr(1)) * (16 ^ 1) + Val(&&H& & datastr(2)) * (16 ^ 0)) * 0.1提示句
提问者采纳
num文没看定义赋值哪值 啊并且看句 ：For i = 1 To num - 1句检查检查 数组限
提问者评价
已经弄好了 谢谢啦
其他类似问题
下标越界的相关知识
其他2条回答
datatemp(num) = (Val(&&H& & datastr(1)) * (16 ^ 1) + Val(&&H& & datastr(2)) * (16 ^ 0)) * 0.1提示的是这句 不过我觉得没问题啊。。
datatemp(num)改成datatemp(num-1)试试。
还是不行哦 +1也不行。。。有什么更好的办法么
在开头加上dim datatemp()在num=num+1后面加上redim preserve datatemp(num)
redim preserve datatemp(num) 缺少语句结束。。
VB提示这句活缺少语句结束啊
那你就不要加redim preserve datatemp(num) ，只加dim datatemp()
还是没用。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}