vb错误13类型不匹配 为什么我用公式匹配xls表的相关知识
“vb错误13类型不匹配 为什么我用公式匹配xls表”的相关知识
根据网友提出的“vb错误13类型不匹配 为什么我用公式匹配xls表”等问题，Excel办公网整理了各大知名网站有关“vb错误13类型不匹配 为什么我用公式匹配xls表”的一些信息，请注意，文中的内容并非本站的观点，不要相信任何联系方式。下文是关于“vb错误13类型不匹配 为什么我用公式匹配xls表”的一些基本知识：
问题：为什么我用公式匹配xls表格中的两列数据时有一个总是显示值错误回答：检查你的公式吧，肯定有了问题补充如果是相对引用改成绝对引用追问还是不行的补充把你的公式贴出来看看追问INDEX($C:$C,MATCH(S1,D:D,))补充只有4列，不知你的S1是什么。匹配建议用VLOOKUP函数... 问题：如何统计区域中包含错误的单元格个数
回答：如果要统计某个区域中包含错误的单元格个数，可以使用下面的数组公式，假如要统计的区域为A1:A10：
=SUM(IF(ISERROR(A1:A10),1))
上述公式为数组公式，输入完毕后需按Ctrl+Shift+Enter组合键。
如果要统计区域中包含某种特定错误的单元格个数，如统计包含“#NAME?”类型错误的单元格个数，可以用下面的公式：
=COUNTIF(A1:A10,#NAME?)
将公式中的“#NAME?”替换为其他类型错误值，则可以...
问题：为什么WORD文档打不开，还弹出读取错误，这不win word97文件回答：打开的文件和你的办公软件版本不匹配... 问题：Excel常见公式错误代码“#VALUE”
回答： 常见原因：Excel中如果公式返回的错误值为&#VALUE&，这常常是因为如下几种原因：文本类型的数据参与了数值运算，函数参数的数值类型不正确；函数的参数本应该是单一值，却提供了一个区域作为参数；输入一个数组公式时，忘记按Ctrl＋Shift＋Enter键。
处理方法：更正相关的数据类型或参数类型；提供正确的参数；输入数组公式时，记得使用Ctrl＋Shift＋Enter键确定。...
问题：对付Excel公式七大错误的实例教程
回答：...控制。
在公式使用查找功能的函数(VLOOKUP、HLOOKUP、LOOKUP等)时，找不到匹配的值。
检查被查找的值，使之的确存在于查找的数据表中的第一列。
在公式中使用了Excel无法识别的文本，例如函数的名称拼写错误，使用了没有被定义的区域或单元格名称，引用文本时没有加引号等。
根据具体的公式，逐步...
问题：Excel错误公式“#NA”处理方法
回答：...道大家有没有注意到过，我们经常使用Excel查找功能的函数HLOOKUP、VLOOKUP、LOOKUP的时候，找不到匹配的值，Excel就会提示错误公式&#N/A&，遇到这种情况我们应当如何对应解决呢？
Excel返回的错误值：#N/A
错误原因分析：
①数据缺失，并且在其位置输入了&#N/A&或&NA()&。
②为 HLOOKUP、LOOKUP、MATCH 或 VLOOKUP 工作表函数的 lookup_value 参数赋予了不正确的值...
问题：初次创业的人必须避免的30个错误
回答：...阶段，只有很少几件事情你不能放权给其他人去做，例如消费者参与度、融资和找到产品市场匹配。
& 不要把自己忙死。作为一名企业创始人，有时总是会觉得整个事件都被你扛在肩
问题：Xamarin鼓励开发人员开始支持iOS 64位架构
回答：... int 数据类型，代之以新类型 System.nint，其中前缀&n&代表 native，如 native int。nint 类型匹配苹果 NSInteger 数据类型
问题：cad致命错误
回答：...中经常会因为一些不确定因素（如版本转换、块插如等）导致图形损坏而发生各种类型的致命错误。致命错误提示往往是很有价值的，熟悉的人可以根据提示推测出问题的症结，从而顺利解决问题，不熟悉的人按照一定的操作步骤通常也能解决大部分的问题。以下所述希望对大家有所启发。
1. 首先我们必须对要修复的图形做好备份，这一步骤其实挺重要的，因为任何的操作都...
问题：『Word2007技巧』设置标签方法
回答：...特定尺寸的标签。
若要设置标签主文档，需要使文档的尺寸与您手头的标签纸上的标签尺寸相匹配。
1、启动 Word。
默认情况下，一个空白文档将会打开。让该文档开着。如果关闭该文档，便无法使用下一步的命令。
2、在&邮件&选项卡上的&开始邮件合并&组中，单击&开始邮件合并&。
3、单击&标签&。
4、在&标签选项&对话框中，...
问题：Excel2013客户预览版功能与界面展示
回答：...辑。
③好了，现在我们就进入Excel2013的空白工作簿了，界面非常清爽，貌似风格与Win8完全匹配！
④好了，下面我们一起来看看各个选项卡功能区界面展示；
⑤保存表格文件以后，图标也与以往的版本图标有所不同了！
Office2013的风格完全与Win8操作系统的风格匹配！
问题：编写属于自己的Haskell
回答：...小型函数式语言，这是局部的 Haskell 2010 玩具语言；支持：分析器、类型引用、数据类型、模式匹配、脱糖（desugaring）、typeclass【注1】、高阶类型(higher-kinded type)、monadic IO【注2】、任意阶多态性、record、Core language、STG 中间语言、惰性求值、解释器、内置代码生成器、运行时和 optimization passes。
相对于我的
问题：自动显示Excel2013表格中超过报销金额的行
回答：...。
首先，用sumif函数统计出各个人的实际差旅费的总和，然后在将这个总和与vlookup匹配出来的F列最高报销金额相比，当大于这个最高报销金额时，说明超过，符合条件，自动设置单元格格式。
设置条件格式
①选中A:C列，单击菜单栏--开始--条件格式--新建规则。
②选择规则类型为使用公式确定要设置格式的单元格，然后填入公式： =sumif($A:$A,$A1,$C:$C)&vlookup($A1,...
问题：突出显示Excel2013中不符合要求的行
回答：...说明
countif(在哪里找，找什么)：条件统计个数；
vlookup(找什么，在哪里找，返回第几列，0)：匹配数据；
Countif函数会统计A列各个姓名的个数，Vlookup函数会匹配出指定列表中各个姓名的最大出现次数。当Countif函数统计出来的个数大于最大的次数时，说明A列出现的次数超过列表指定的次数。
问题：vlookup函数查找又出错了
回答：& &vlookup函数查找出错有很多原因，今天一位同学关于VLOOKUP函数公式的错误还是第一次遇到。&& =VLOOKUP(G1,&C2:D&&COUNTA(D:D),2,0)&&& 以上公式中，除了第二个参数外，其他看不出任何异常。第2个参数是一个表达式，写公式的同学是想用counta统计D列有多少行非空字符，然后用
&C2:D&&COUNTA(D:D) 生成一个动态的查找区域。如上图中生成的区域...
为您推荐：欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 1795 人关注过本帖
标题：[求助]新手，VB 简单程序调试下运行正确，编译后运行错误13 类型不匹配！以 ...
等　级：新手上路
&&问题点数：0&&回复次数：6&&&
[求助]新手，VB 简单程序调试下运行正确，编译后运行错误13 类型不匹配！以下是源码求分析！
####### Form1.frm
VERSION 5.00
Begin VB.Form Form1
&&&Caption&&&&&&&&&=&&&&Form1&
&&&ClientHeight&&& =&&&5025
&&&ClientLeft&&&&&&=&&&60
&&&ClientTop&&&&&& =&&&345
&&&ClientWidth&&&&&=&&&8085
&&&LinkTopic&&&&&& =&&&&Form1&
&&&ScaleHeight&&&&&=&&&5025
&&&ScaleWidth&&&&&&=&&&8085
&&&StartUpPosition =&&&3&&'窗口缺省
&&&mandButton Command2
&&&&&&Caption&&&&&&&&&=&&&&base64解密&
&&&&&&Height&&&&&&&&& =&&&975
&&&&&&Left&&&&&&&&&&&&=&&&1560
&&&&&&TabIndex&&&&&&&&=&&&1
&&&&&&Top&&&&&&&&&&&& =&&&2880
&&&&&&Width&&&&&&&&&&&=&&&5535
&&&mandButton Command1
&&&&&&Caption&&&&&&&&&=&&&&base64加密&
&&&&&&Height&&&&&&&&& =&&&855
&&&&&&Left&&&&&&&&&&&&=&&&1560
&&&&&&TabIndex&&&&&&&&=&&&0
&&&&&&Top&&&&&&&&&&&& =&&&840
&&&&&&Width&&&&&&&&&&&=&&&5535
Attribute VB_Name = &Form1&
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim zzz As String
&&&&&& zzz = B64Encode(&源码免费helloworld&)
&&&&&&&&Stop
'*********************************************
'&&& 源码免费学习下载
'&&&&&&&&欢迎分享源码给Love代码
'&&&&&&源码投稿分享邮箱
'分享的源码中可留下您的联系方式,广告宣传等信息
'*********************************************
Private Sub Command2_Click()
&&&&&&&&MsgBox B64Decode(&1LTC68Pit9FoZWxsb3dvcmxk&)
以下是模块！modBase64.bas
Attribute VB_Name = &modBase64&
'名称: Base64编码/解码模块
'*********************************************
'&&& 源码免费学习下载
'&&&&&&&&欢迎分享源码给Love代码
'&&&&&&源码投稿分享邮箱
'分享的源码中可留下您的联系方式,广告宣传等信息
'*********************************************
Option Explicit
Public Type tpBase64_Dollop2438 '24Bit(8Bit*3Byte)数据块
btBytes(0 To 2) As Byte
Public Type tpBase64_Dollop2446 '24Bit(6Bit*4Byte)数据块
btBytes(0 To 3) As Byte
'priBitMoveTable - 移位缓冲表
Private priBitMoveTable() As Byte '移位缓冲表
Private priBitMoveTable_CellReady() As Boolean '移位缓冲表标志表
Private priBitMoveTable_Create As Boolean '移位缓冲表创建标志
'priEncodeTable - 编码表
Private priEncodeTable() As Byte '编码表（素码转Base64）
Private priEncodeTable_Create As Boolean
'priDecodeTable - 解码表
Private priDecodeTable() As Byte '解码表（Base64转素码）
Private priDecodeTable_Create As Boolean
'conBase64_CodeTableStrng 'Base64默认编码表(字符串)
Public Const conBase64_CodeTableStrng As String = &ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/&
'conBase64_PatchCode 'Base64默认追加码(Ascii)
Public Const conBase64_PatchCode As Byte = 61
Private Declare Sub Base64_CopyMemory Lib &kernel32& Alias &RtlMoveMemory& (ByRef pDestination As Any, ByRef pSource As Any, ByVal pLength As Long)
Public Function Base64Decode(ByRef pBytes() As Byte, Optional ByVal pPatchCode As Byte = conBase64_PatchCode) As Byte()
Dim tOutBytes() As Byte
Dim tOutBytes_Length As Long
Dim tBytes_Length As Long
Dim tBytes2446() As Byte
Dim tSurBytes_Length As Long
Dim tDesBytes_Length As Long
On Error Resume Next
tBytes_Length = UBound(pBytes())
If CBool(Err.Number) Or tSurBytes_Length & 0& Then Exit Function
tBytes2446() = BytesPrimeDecode(pBytes())
tOutBytes() = Bytes2438GetBy2446(tBytes2446())
Dim tPatchNumber As Long
Dim tIndex As Long
Dim tBytesIndex As Long
For tIndex = 0& To 10&
tBytesIndex = tBytes_Length - tIndex
tPatchNumber = tPatchNumber + ((pBytes(tBytesIndex) = pPatchCode) And 1&)
tSurBytes_Length = tBytes_Length - tPatchNumber
tDesBytes_Length = (tSurBytes_Length * 3&) \ 4&
ReDim Preserve tOutBytes(tDesBytes_Length)
Base64Decode = tOutBytes()
End Function
Public Function Base64Encode(ByRef pBytes() As Byte, Optional ByVal pPatchCode As Byte = conBase64_PatchCode) As Byte()
Dim tOutBytes() As Byte
Dim tOutBytes_Length As Long
Dim tBytes2446() As Byte
Dim tSurBytes_Length As Long
Dim tDesBytes_Length As Long
On Error Resume Next
tSurBytes_Length = UBound(pBytes())
If CBool(Err.Number) Or tSurBytes_Length & 0& Then Exit Function
tBytes2446() = Bytes2438PutTo2446(pBytes())
tOutBytes() = BytesPrimeEncode(tBytes2446())
tOutBytes_Length = UBound(tOutBytes())
Dim tPatchNumber As Long
tDesBytes_Length = (tSurBytes_Length * 4& + 3&) \ 3&
tPatchNumber = tOutBytes_Length - tDesBytes_Length
Dim tIndex As Long
Dim tBytesIndex As Long
For tIndex = 1 To tPatchNumber
tBytesIndex = tOutBytes_Length - tIndex + 1&
tOutBytes(tBytesIndex) = pPatchCode
Base64Encode = tOutBytes()
End Function
Private Function BytesPrimeDecode(ByRef pBytes() As Byte) As Byte()
'功能：将Base64数组解码为素码数组
Dim tOutBytes() As Byte
Dim tBytes_Length As Long
On Error Resume Next
tBytes_Length = UBound(pBytes())
If CBool(Err.Number) Then Exit Function
ReDim tOutBytes(tBytes_Length)
If Not priDecodeTable_Create Then Base64CodeTableCreate
Dim tIndex As Long
For tIndex = 0& To tBytes_Length
tOutBytes(tIndex) = priDecodeTable(pBytes(tIndex))
BytesPrimeDecode = tOutBytes()
End Function
Private Function BytesPrimeEncode(ByRef pBytes() As Byte) As Byte()
'功能：将素码数组编码为Base64数组
Dim tOutBytes() As Byte
Dim tBytes_Length As Long
On Error Resume Next
tBytes_Length = UBound(pBytes())
If CBool(Err.Number) Then Exit Function
ReDim tOutBytes(tBytes_Length)
If Not priEncodeTable_Create Then Base64CodeTableCreate
Dim tIndex As Long
For tIndex = 0 To tBytes_Length
tOutBytes(tIndex) = priEncodeTable(pBytes(tIndex))
BytesPrimeEncode = tOutBytes()
End Function
Private Sub Base64CodeTableCreate(Optional ByVal pString As String = conBase64_CodeTableStrng)
'功能：根据字符串提供的代码初始化Base64解码/编码码表。
Dim tBytes() As Byte
Dim tBytes_Length As Long
tBytes() = pString
tBytes_Length = UBound(tBytes())
If Not tBytes_Length = 127& Then
MsgBox &编码/解码表初始化失败&, , &错误&
Dim tIndex As Byte
ReDim priEncodeTable(0& To 255&)
ReDim priDecodeTable(0& To 255&)
Dim tTableIndex As Byte
Dim tByteValue As Byte
For tIndex = 0& To tBytes_Length Step 2&
tTableIndex = tIndex \ 2&
tByteValue = tBytes(tIndex)
priEncodeTable(tTableIndex) = tByteValue
priDecodeTable(tByteValue) = tTableIndex
priEncodeTable_Create = True
priDecodeTable_Create = True
Private Function Bytes2438GetBy2446(ByRef pBytes() As Byte) As Byte()
'功能：将素码转换为字节。
Dim tOutBytes() As Byte
Dim tDollops2438() As tpBase64_Dollop2438
Dim tDollops2446() As tpBase64_Dollop2446
tDollops2446() = BytesPutTo2446(pBytes())
tDollops2438() = Dollops2438GetBy2446(tDollops2446())
tOutBytes() = BytesGetBy2438(tDollops2438())
Bytes2438GetBy2446 = tOutBytes()
End Function
Private Function Bytes2438PutTo2446(ByRef pBytes() As Byte) As Byte()
'功能：将字节转换为素码。
Dim tOutBytes() As Byte
Dim tDollops2438() As tpBase64_Dollop2438
Dim tDollops2446() As tpBase64_Dollop2446
tDollops2438() = BytesPutTo2438(pBytes())
tDollops2446() = Dollops2438PutTo2446(tDollops2438())
tOutBytes() = BytesGetBy2446(tDollops2446())
Bytes2438PutTo2446 = tOutBytes()
End Function
Private Function BytesGetBy2446(ByRef p2446() As tpBase64_Dollop2446) As Byte()
'功能：2446数组转换为字节数组
Dim tOutBytes() As Byte
Dim tOutBytes_Length As Long
Dim t2446Length As Long
On Error Resume Next
t2446Length = UBound(p2446())
If CBool(Err.Number) Then Exit Function
tOutBytes_Length = t2446Length * 4& + 3&
ReDim tOutBytes(0& To tOutBytes_Length)
Dim tCopyLength As Long
tCopyLength = tOutBytes_Length + 1&
Base64_CopyMemory tOutBytes(0&), p2446(0&), tCopyLength
BytesGetBy2446 = tOutBytes()
End Function
Private Function BytesPutTo2446(ByRef pBytes() As Byte) As tpBase64_Dollop2446()
'功能：字节数组转换为2446数组
Dim tOut2446() As tpBase64_Dollop2446
Dim tOut2446_Length As Long
Dim tBytesLength As Long
On Error Resume Next
tBytesLength = UBound(pBytes())
If CBool(Err.Number) Then Exit Function
tOut2446_Length = tBytesLength \ 4&
ReDim tOut2446(0& To tOut2446_Length)
Dim tCopyLength As Long
tCopyLength = tBytesLength + 1&
Base64_CopyMemory tOut2446(0&), pBytes(0&), tCopyLength
BytesPutTo2446 = tOut2446()
End Function
Private Function BytesGetBy2438(ByRef p2438() As tpBase64_Dollop2438) As Byte()
'功能：2438数组转换为字节数组
Dim tOutBytes() As Byte
Dim tOutBytes_Length As Long
Dim t2438Length As Long
On Error Resume Next
t2438Length = UBound(p2438())
If CBool(Err.Number) Then Exit Function
tOutBytes_Length = t2438Length * 3& + 2&
ReDim tOutBytes(0& To tOutBytes_Length)
Dim tCopyLength As Long
tCopyLength = tOutBytes_Length + 1&
Base64_CopyMemory tOutBytes(0&), p2438(0&), tCopyLength
BytesGetBy2438 = tOutBytes()
End Function
Private Function BytesPutTo2438(ByRef pBytes() As Byte) As tpBase64_Dollop2438()
'功能：字节数组转换为2438数组
Dim tOut2438() As tpBase64_Dollop2438
Dim tOut2438_Length As Long
Dim tBytesLength As Long
On Error Resume Next
tBytesLength = UBound(pBytes())
If CBool(Err.Number) Then Exit Function
tOut2438_Length = tBytesLength \ 3&
ReDim tOut2438(0& To tOut2438_Length)
Dim tCopyLength As Long
tCopyLength = tBytesLength + 1&
Base64_CopyMemory tOut2438(0&), pBytes(0&), tCopyLength
BytesPutTo2438 = tOut2438()
End Function
Private Function Dollops2438GetBy2446(ByRef p2446() As tpBase64_Dollop2446) As tpBase64_Dollop2438()
'功能：2446块数组转换为2438块数组
Dim tOut2438() As tpBase64_Dollop2438
Dim tOut2438_Length As Long
Dim t2446_Length As Long
On Error Resume Next
If CBool(Err.Number) Then Exit Function
t2446_Length = UBound(p2446())
tOut2438_Length = t2446_Length
ReDim tOut2438(tOut2438_Length)
Dim tIndex As Long
For tIndex = 0& To t2446_Length
tOut2438(tIndex) = Dollop2438GetBy(tIndex))
Dollops2438GetBy2446 = tOut2438()
End Function
Private Function Dollops2438PutTo2446(ByRef p2438() As tpBase64_Dollop2438) As tpBase64_Dollop2446()
'功能：2438块数组转换为2446块数组
Dim tOut2446() As tpBase64_Dollop2446
Dim tOut2446_Length As Long
Dim t2438_Length As Long
On Error Resume Next
If CBool(Err.Number) Then Exit Function
t2438_Length = UBound(p2438())
tOut2446_Length = t2438_Length
ReDim tOut2446(tOut2446_Length)
Dim tIndex As Long
For tIndex = 0& To t2438_Length
tOut2446(tIndex) = Dollop2438PutTo(tIndex))
Dollops2438PutTo2446 = tOut2446()
End Function
Private Function Dollop2438GetBy2446(ByRef p2446 As tpBase64_Dollop2446) As tpBase64_Dollop2438
'功能：2446块转换为2438块
Dim tOut2438 As tpBase64_Dollop2438
With tOut2438
.btBytes(0&) = ByteBitMove(p2446.btBytes(0&), 2&) + ByteBitMove(p2446.btBytes(1&), -4&)
.btBytes(1&) = ByteBitMove(p2446.btBytes(1&), 4&) + ByteBitMove(p2446.btBytes(2&), -2&)
.btBytes(2&) = ByteBitMove(p2446.btBytes(2&), 6&) + ByteBitMove(p2446.btBytes(3&), 0&)
Dollop2438GetBy2446 = tOut2438
End Function
Private Function Dollop2438PutTo2446(ByRef p2438 As tpBase64_Dollop2438) As tpBase64_Dollop2446
'功能：2438块转换为2446块
Dim tOut2446 As tpBase64_Dollop2446
With tOut2446
.btBytes(0) = ByteBitMove(p2438.btBytes(0&), -2&, 63&)
.btBytes(1) = ByteBitMove(p2438.btBytes(0&), 4&, 63&) + ByteBitMove(p2438.btBytes(1&), -4&, 63&)
.btBytes(2) = ByteBitMove(p2438.btBytes(1&), 2&, 63&) + ByteBitMove(p2438.btBytes(2&), -6&, 63&)
.btBytes(3) = ByteBitMove(p2438.btBytes(2&), 0&, 63&)
Dollop2438PutTo2446 = tOut2446
End Function
Private Function ByteBitMove(ByVal pByte As Byte, ByVal pMove As Integer, Optional ByVal pConCode As Byte = &HFF) As Byte
'功能：对Byte进行移位（带饱和缓冲功能）。
Dim tOutByte As Byte
If Not priBitMoveTable_Create Then
ReDim priBitMoveTable(0& To 255&, -8& To 8&)
ReDim priBitMoveTable_CellReady(0& To 255&, -8& To 8&)
priBitMoveTable_Create = True
If Not priBitMoveTable_CellReady(pByte, pMove) Then
priBitMoveTable(pByte, pMove) = ByteBitMove_Operation(pByte, pMove)
priBitMoveTable_CellReady(pByte, pMove) = True
tOutByte = priBitMoveTable(pByte, pMove) And pConCode
ByteBitMove = tOutByte
End Function
Private Function ByteBitMove_Operation(ByVal pByte As Byte, ByVal pMove As Integer) As Byte
'功能：对Byte进行算术移位。
Dim tOutByte As Byte
Dim tMoveLeft As Boolean
Dim tMoveRight As Boolean
Dim tMoveCount As Integer
tMoveLeft = pMove & 0&
tMoveRight = pMove & 0&
tMoveCount = Abs(pMove)
If tMoveLeft Then
tOutByte = (pByte Mod (2& ^ (8& - tMoveCount))) * (2& ^ tMoveCount)
ElseIf tMoveRight Then
tOutByte = pByte \ 2& ^ tMoveCount
tOutByte = pByte
ByteBitMove_Operation = tOutByte
End Function
'==========================加密/解密================================
Public Function B64Encode(NumberArg As String) '加密
B64Encode = StrConv(Base64Encode(StrConv(NumberArg, vbFromUnicode)), vbUnicode)
End Function
Public Function B64Decode(NumberArg As String)&&'解密
B64Decode = StrConv(Base64Decode(StrConv(NumberArg, vbFromUnicode)), vbUnicode)
End Function
'===================================================================
等　级：新手上路
请大家支持下，这只是晚上下的加密源码程序，调试运行很正常，编译后就错误！
等　级：新手上路
我试了下就在加解密时出错！找不到具体原因，因为调试很正常！编译就不行！这是源程序，请 大家分析下，
附件: 您没有浏览附件的权限，请
等　级：新手上路
运行时错误13，类型不匹配
而我在程序调试时用的很好！看变量定义也没有错
等　级：新手上路
自己解决了，就是把模块的函数，用到程序窗口中就可以了！也不知道什么原因！自己结贴算了！附上程序，太奇怪了
附件: 您没有浏览附件的权限，请
等　级：版主
威　望：19
帖　子：1420
专家分：2575
卡巴斯基说有木马！
来　自：文来中学
等　级：贵宾
威　望：31
帖　子：341
专家分：1072
回复 6楼 ehszt
只要是不在白名单的程序都会被外国杀软误报
编程蛋疼的不是枯燥，而是辛辛苦苦编完几百行的代码，运行，“Runtime Error “xxx””。
版权所有，并保留所有权利。
Powered by , Processed in 0.053518 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved&>&&>&&>&&>&vb 总是提示“类型不匹配，缺少数组或用户定义类型”
vb 总是提示“类型不匹配，缺少数组或用户定义类型”
上传大小：2KB
vb中定义如下：
类模块Class1中代码如下：
Dim aa() As String
Public Sub setName(ByRef str() As String)
Public Function getName() As String()
getName = aa
End Function
模块Module1代码如下：
Public MyName As New Class1
按钮Command1中代码如下：
Private Sub Command1_Click()
Dim cc() As String
MyName.setName (cc())
运行时怎么总是提示“类型不匹配，缺少数组或用户定义类型”啊？实在不知道错在哪里了？？...展开收缩
综合评分：3.7（3位用户评分）
所需积分：0
下载次数：21
审核通过送C币
创建者：caozhy
创建者：sysdzw
创建者：sysdzw
课程推荐相关知识库
上传者其他资源上传者专辑
开发技术热门标签
VIP会员动态
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
android服务器底层网络模块的设计方法
所需积分：0
剩余积分：720
您当前C币：0
可兑换下载积分：0
兑换下载分：
兑换失败，您当前C币不够，请先充值C币
消耗C币：0
你当前的下载分为234。
vb 总是提示“类型不匹配，缺少数组或用户定义类型”
会员到期时间：
剩余下载次数：
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：}