VB系统说缺少数组或用户matlab 定义数组类型类型，求大神解答

来源：蜘蛛抓取(WebSpider) 时间：2018-05-12 15:34 标签： 自定义注解 数组类型
VB 类型不匹配 缺少数组或用户定义类型 程序如下_百度知道
VB 类型不匹配 缺少数组或用户定义类型 程序如下
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim n As Integer, a() As String, i As Integer, sun As Integer, av As Integer, k As Integer
n = InputBox(&输入数据&, , 12)
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 41) ...
我有更好的答案
Private Sub sort(a() As Integer)这里的数组a是Integer（整型），但Call sort(a)这里的数组a却是String（字符型），所以就提示类型不匹配了
sum=sum+a(k) 为什么会超下界啊?
For k = i To i + 2你这里k的最大值为i+2，而i的最大值就是数组a的下标上限，所以当k为最大值时就超出数组a的范围了（甚至i+1都已经超过了）
采纳率：82%
来自团队：
为您推荐：
其他类似问题
类型不匹配的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB缺少数组和用户定义类型问题怎么解决_百度知道
VB缺少数组和用户定义类型问题怎么解决
Private Sub Command1_Click()Dim x(70) As SingleDim i As IntegerFor i = 0 To 70x(i) = Form4.Label10(i).CaptionNextCall aa(x(70))End Sub
我有更好的答案
Call aa(x(70))改成Call aa(x)
call aa（x(i))
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。用户定义类型未定义
[问题点数：40分，结帖人yang0725]
用户定义类型未定义
[问题点数：40分，结帖人yang0725]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2016年10月优秀大版主优秀小版主
2017年1月 总版技术专家分月排行榜第二
匿名用户不能发表回复！|热搜 o 问答
2018年3月考试热点
版权所有 深圳市诺达教育股份有限公司 (C) www.thea.cn All Rights Reserved 粤ICP备号-3求助 类型不匹配；缺少数组或用户定义类型【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：108,422贴子：
求助 类型不匹配；缺少数组或用户定义类型收藏
Private Sub Command3_Click()
'解码Dim xiqu(100) As IntegerDim b(500, 2) As DoubleDim a(500, 100) As DoubleFor j = 1 To chromsizeFor i = 1 To popsize b(i, 1) = jiema(x1, x2, a(i, j)（此处说是类型不匹配；缺少数组或用户定义类型）, chromsize / 2)For j = 1 To chromsize / 2xiqu(j) = a(i, (chromsize / 2 + j))Next jb(i, 2) = jiema(x1, x2, xiqu(j), chromsize / 2)Next iList2.AddItem b(i, 1)List2.AddItem b(i, 2) End SubPrivate Function jiema(a As Double, b As Double, chrom() As Integer, n As Integer)
'解码Dim se As Double, value As Double se = (b - a) / (2 ^ n - 1)value = a + demical(chrom, n) * sejiema = valueEnd FunctionPrivate Function demical(chrom() As Integer, n As Integer)
'将二进制串转化为十进制值Dim s As Doubles = 0For i = 1 To ns = s + chrom(i) * (2 ^ (n - i - 1))demical = sNextEnd Function问题：在For i = 1 To popsize b(i, 1) = jiema(x1, x2, a(i, j)（此处说是类型不匹配；缺少数组或用户定义类型）, chromsize / 2)这是怎么回事呀，，求高人相助
在a(i,j) 上显示这个 ，，在线等答案
类型不一致，jiema过程有4参数，你漏了一个吧
登录百度帐号

我要回帖

更多关于 自定义注解 数组类型 的文章

 

随机推荐