类型不匹配，vb中类型不匹配啥意思

1，vb中类型不匹配啥意思

如果你定义了a为字符串数据类型如下就是类型不匹配了因为a和1是不同数据类型的相加所以提示错误类型不匹配如过你将定义dim a as integer整型就不会出现错误了 Private Sub Command1_Click() dim a as string a=a+1 End Sub

vb中类型不匹配啥意思

2，用数组显示类型不匹配怎么解决

类型不匹配是由c as string引起的，因为声明c后没有给他赋值为有效的数值字串，计算时，数值型的字串会自动转换成响应的数值参与运算，而零长度的字串是不被支持的。如变量声明改成dim m,v,b,d,c，其他不变，则会出现"溢出“错误，因为100*d=0（除数为0）如变量声明改成dim m as integer,v as integer,b as integer,d as integer,c as integer，其他不变，也会出现”溢出“错误，因为100*d=0（除数为0）要排除错误，必须确保每个变量在计算时能正确进行类型转换，同时，还必须确保数值大小在对应数字类型的大小范围之内，有除法时，除数必须不等于0

用数组显示类型不匹配怎么解决

3，VB提示类型不匹配

Dim sendSj(11) As Byte, i As LongDim a(1 To 3) As Longa(1) = Text1.Texta(2) = Text2.Texta(3) = Text3.TextFor i = 0 To 11 Step 4 CopyMemory sendSj(i), a(i / 4 + 1), 4NextMSComm1.Output = sendSj楼上两位的说法都是有错的。a(1) = Text1.Text这个本身是不会提示类型不匹配的，VB会自动转换Text1中的文本数字为数值型数字然后再赋值给长整型变量的，除非Text1中输入的不是数字才会出错，所以加上Val()函数这个倒是没错的。真正提示类型不匹配的是CopyMemory函数的第二个参数不能用a()，而应该指定数组的具体元素，比如a(1)。

Dim sendSj() As ByteDim a(1 To 3) As Longa(1) = Val(Text1.Text)a(2) = Val(Text2.Text)a(3) = Val(Text3.Text)CopyMemory sendSj(0), a(1), 4MSComm1.Output = sendSj(0)不知道你要怎么整，反正错的地方很多，text控件的text属性是文本型，你却没有转换就把他赋值到长整型，然后CopyMemory时sendSj(0)，你既然要取值是数组的0，为什么定义数组的时候要定义成1呢？VB6的数组下标是从0开始的，你干脆不指定数组最大值。然后内存块的大小直接a()，这是什么意思我想想问问你啊，数组能这样用吗？？？？何况内存块的大小是字节型Byte，你却给个长整型。。。最后MSComm1.Output直接等于sendSj，sendSj是数组啊，你没指定获取数组中的哪一个，你就直接给个变量名？就单单这个地方就够类型不匹配了，你这样写代码谁也救不了你，因为没人看得懂你想表达什么

Dim sendSj(1) As Byte Dim a(1 To 3) As Long a(1) =val( Text1.Text) a(2) = val(Text2.Text) a(3) =val( Text3.Text) CopyMemory sendSj(0), a(), 4 MSComm1.Output = sendSjText1.Text本身是字符串类型，不能直接赋给Long。

dim sendsj(11) as byte, i as longdim a(1 to 3) as longa(1) = text1.texta(2) = text2.texta(3) = text3.textfor i = 0 to 11 step 4 copymemory sendsj(i), a(i / 4 + 1), 4nextmscomm1.output = sendsj楼上两位的说法都是有错的。a(1) = text1.text这个本身是不会提示类型不匹配的，vb会自动转换text1中的文本数字为数值型数字然后再赋值给长整型变量的，除非text1中输入的不是数字才会出错，所以加上val()函数这个倒是没错的。真正提示类型不匹配的是copymemory函数的第二个参数不能用a()，而应该指定数组的具体元素，比如a(1)。

VB提示类型不匹配