下表越界PublicSubAddData(iMarkAsInte 爱问知识人

下表越界

Public Sub AddData(iMark As Integer, dist, dH As Single)
    dis(iMark) = dist
    detH(iMark) = dH
End Sub



 dis(iMark) = dist老是下标越界，该怎么改？

3***

提交回答

全部答案

说明你没有控制好你的数据数量
你可一在这个函数中判断一下iMark是否超过数组中数据的最大数量，或者是小于0了
如果出现这样的问题，就直接返回

贝***

2013-05-09 07:49:45

37 7 评论

提交评论

类似问题

换一换

1

问：一道VB题private sub form_click() dim a as string,b as integer a=20:b=50 p1 a,b p2 a,b p3 a,b print "a=";"b=";b end sub sub p1(x as integer,byval y as integer) x=x+10 y=y+20 end sub sub p2(byval x as integer, y as integer) x=x+10 y=y+20 end sub sub p3(byval x as integer, byval y as integer) x=x+10 y=y+20 end sub 程序运行后，单击窗体，则在窗体上显示的内容是： a=30和b=70 请问如何思考呢？另外，从哪里可以看出是传地址或传值呢？

答：byval关键词，代表的是值传递如果没有改关键词的话就是地址传递也就是说，在p1中只改变了x（也就是a的值），p2中只改变了y（也就是b的值），p3则什么都...详情>>
2 解释VB代码.(我是初学者请各位帮帮忙忙)万分谢谢!回答2
3 确诊巧克力囊肿何时做B超合适？回答2
4 RAM DENIM SOUTH EAST DIST什么意思回答2
5 确诊巧克力囊肿何时做B超合适？回答2
1

问：dist手机无线网用什么dns码速度快

答：您好！各个地区不一样，给下面几组，只修改dns1(主dns)，dns2(备用dns)保持默认即可。114.114.114.114全球通用223.5.5.5国内通...详情>>
2 下标越界Public Sub AddData(iMark A...回答2
3 sub command_click()回答2
4 dist格式文件用什么软？回答2
5 public sub swap(x as integer,y...回答2
1

问：flac3d中的dist是什么意？

答：详情>>
2 VB问题。。。求助回答2
3 下表越界 Public Sub AddData(iMark ...回答2
4 下标越界Public Sub AddData(iMark A...回答2
5 跑步机dist和cal代表什么回答2
1

问：5800计算器测量程序DIST如何输？

答：详情>>
2 dist是什么意思？回答2
3 中的 “DIST” 是什么用啊？回答2
4 Cat Linh Dist是什么意？回答2
5 Spring Arbor Dist Inc什么意？回答2
1

问：76． Private Sub Command1_Click() Dim A(2 To 7) As Integer Dim b As Integer For b = 2 To 7 A(b) = b Next b Text1.Text = A(b - 2) End Sub 程序运行后，单击命令按纽文本框Text1的结果是： 7． Sub test(i As Integer) i = i + 1 End Sub Private Sub Form_Click() Dim x As Integer x = 4 Print "x="; x Call test(x) Print "x="; x End Sub 8. Private Sub Form_Click() a = 1: b = 1 Print "A="; a; ",B="; b Call mult(a) Print "A="; a; ",B="; b End Sub Private Sub mult(x) x = 2 * x b = 3 * b End Sub 9. Private Sub Form_Click() Dim i As Integer, a As Integer k = 0 For i = 1 To 6 If i > 3 Then a = a + 4 Else a = a + 1 End If Next i Print i, a End Sub 写出程序运行时单击窗体后，Form1上的输出结果。 10. Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,y End sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4 Change a, b Print a,b End Sub 写出程序运行时单击窗体后，Form1上的输出结果

答：详情>>
2 public sub swap(x as integer,y...回答2
3 sub command_click()回答2
4 dist格式文件用什么软？回答2
5 76． Private Sub Command1_Click...回答2
1

问：解释VB代码.(我是初学者请各位帮帮忙忙)万分谢谢!

答：详情>>
2 跑步机dist和cal代表什么？回答2
3 跑步机上的DIST代表的是什么参数？回答2
4 ios team Provisioning Profile ...回答2
5 全站仪上英文字母DIST表示什么意？回答2

VB 相关知识
电脑网络技术
电脑网络

1

问：线性链表和线性表有什么区别

答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
2 vb中数组元素最大能多少回答2
3 哪些食物中含VB较多啊？回答1
4 关于数据传递回答3
5 如何做模糊查询回答2

1

问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...

答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
7 VB中如何修改多个EXCEL文件名回答1
8 VB中怎么锁定msgbox的位置回答1
9 在VB中如何在一个窗体中调用另外一个窗体？回答2
10 急需vb编程求100以内所有奇数和及所有偶数和回答3

1

问: 311纳米窄谱UVB

答: 对于311纳米窄谱UVB一定要重视，你提到311纳米窄谱UVB为你解答如下。您好，关于产品的问题，不便于评论，具体问题请咨询相关人员。关天纳米产品的以上说法，都...详情>>
2 执行下列程序，单击窗体，则在窗体上显示的是？回答4
3 VB中复选标记怎么设置回答1
4 用VB求1到N的平方和，其中N的值由自己给定。要求使用for....next 语... 回答1
5 请帮忙检查这段VBScript的错误回答2

下表越界

下表越界

Public Sub AddData(iMark As Integer, dist, dH As Single) dis(iMark) = dist detH(iMark) = dH End Sub dis(iMark) = dist老是下标越界，该怎么改？
全部

全部答案

类似问题

VB 相关知识

相关推荐

【求助】关于华硕adsl 与 TP

SO2为什么是极性分子而CO2不是？

罗马音和拼音

生产成本的直接材料与辅助材料怎分配?

笔记本电脑永远是解决笔记本故障的卡片屏幕...

xp电脑显示屏调节屏幕亮度怎么调节_XP...

计算机不能重新启动所有时间重新启动如何解...

如果笔记本不能上网，我该怎么办

现在移民需要多少钱(留学移民要多少钱)

高迪安集团公司的实力怎么样？

有人了解高迪安集团这个公司吗？

高迪安集团旗下的人工智能产业发展好吗？

高迪安这个公司现在旗下现在主要有哪些产业...

高迪安之前开发的第一个新房是哪个楼盘？

热点检索

确定举报此问题

下表越界

下表越界 Public Sub AddData(iMark As Integer, dist, dH As Single) dis(iMark) = dist detH(iMark) = dH End Sub dis(iMark) = dist老是下标越界，该怎么改？ 全部

全部答案 if(window.executeBaiduJs){ if(typeof(contingency) != "undefined" && contingency == "contingencyBd"){ var cpro_id = "u2022717"; document.write('<script type="text/javascript" src="https://cpro.baidustatic.com/cpro/ui/c.js"></scr'+'ipt>'); }else{ } }

类似问题

VB 相关知识

相关推荐

热点检索

确定举报此问题

下表越界

Public Sub AddData(iMark As Integer, dist, dH As Single) dis(iMark) = dist detH(iMark) = dH End Sub dis(iMark) = dist老是下标越界，该怎么改？
全部

全部答案