vb 实时错误13，同样的句子为什么这个错误

vb实时错误13？？？？？~

Text21.Text = (Text9.Text & Text6.Text & Text7.Text) * Text18.Text * Text8.Text这里?
看代码是6.0
=右边各变量都加上val,不行再给右边结果加上cstr
这些变量的隐式转换很难控制的,真不想强制手动转换的话可以把上边的计算赋值分步来做,看具体问题出在哪一个环节的计算上.

b = Split(Picture1.Picture) '这行不对呀
Split函数是用来将字符串分割成数组的呀,不能分割图片
Picture1.Picture 是图片,不是文字,所以不能用Split函数

Dim q, l, d, m, b, al, az, t, z, x, hl As Double

这个语句表面上看似乎没错，但其实它的结果跟你的想象是有出入的，你的目的是把这些变量都声明为Double，但事实上只有最后的hl是Double，其他变量都是Variant！
正确的应该是：
Dim q As Double, l As Double, d As Double, m As Double, b As Double, al As Double, az As Double, t As Double, z As Double, x As Double, hl As Double

由于除hl外的其他变量都是Variant型，这是一种万金油式的变量，所以把它们直接赋值为文本框的Text属性值是不会出错的，而hl由于是Double型，直接赋值为文本值时就会提示类型不匹配了。所以这些赋值语句也要改为：
q = Val(Text1.Text)
l = Val(Text2.Text)
d = Val(Text3.Text)
m = Val(Text4.Text)
b = Val(Text5.Text)
hl = Val(Text10.Text)
这样就不会出错了

---

新绛县13964726786： vb 实时错误13,同样的句子为什么这个错误 - ？
尚忽洛斯： Dim q, l, d, m, b, al, az, t, z, x, hl As Double这个语句表面上看似乎没错,但其实它的结果跟你的想象是有出入的,你的目的是把这些变量都声明为Double,但事实上只有最...

新绛县13964726786： VB简单的代码出现实时错误'13',请教原因. - ？
尚忽洛斯： 这里有两个错误:1、最主要的错误,就是MsgNox函数的参数错误.第二个参数指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等.如果省略,缺省值为 0.本题应该是省略值,那就应该加一个逗号.2、...

新绛县13964726786： vb 运行时错误 “13”类型不匹配 - ？
尚忽洛斯： 光看这行 很难分析出错误不过你可以试一下 txtDayCount.Text = CStr(CInt(txtFactDay.Text) - CInt(txtReturnDate.Text)) 改成 txtDayCount.Text = CStr(CDbl(txtFactDay.Text) - CDbl(txtReturnDate.Text))

新绛县13964726786： vb出现实时错误 13 - ？
尚忽洛斯： 应该是Combo3.Text=“” then 错误应该是类型不匹配,对吧?控件、窗体显示的文本保存在Text/caption属性里,要读取要用到他们 至于为什么不会出现编译错误,是因为控件有个叫“_Default”的默认属性,你不在控件名后加任何东西,它就视为你访问的是他的默认属性,但这个属性又不是String类型,所以就错了

新绛县13964726786： VB提示 实时错误 13 - ？
尚忽洛斯： 测试了一下,当你TEXT1中输入的字符不是数字字符时,出现以上错误,也就是你没判断是否是数字,却进行了数字的计算.可加判断:If IsNumeric(Text1.Text) Then a = Text1.Text b = a * 2 * 4 Text2.Text = b End If

新绛县13964726786： VB中,实时错误13 类型不匹配,怎么办? - ？
尚忽洛斯： 数据类型定义错误 如果要进行数据运算的话用整数(Integer)类型或双精度数据(Double)类型都可以. 你用的String(字符串)类型,在【t8 = t4 + t7】就错误了. 如果: T4等于2 T7等于3 那么T8将等于23而不是5 电脑把T4和T7当作字符串来连接起来,而不是进行运算!如果你开始定义的是Double(双精度数据)的话,就是2+3=5,不是2和3=23. 还有输入的时候要注意,不要输入了空格!

新绛县13964726786： 下面这个vb的程序在实现时总是提示:实时错误13,类型不匹配.为什么呢? - ？
尚忽洛斯： 定义变量错误.应该是Dim a as Integer Dim b as Integer Dim c as Long.你写的程序变量a成了一个变体,而不是整型

新绛县13964726786： VB中,实时错误'13',类型不匹配 - ？
尚忽洛斯： 这句是对的,只要你在跳出的对话框中输入的是数字就没问题,一旦是空的和字母时就会出错,因为你定义时scor(i)为数值型变量,而InputBox(＂输入学生成绩:＂, ＂统计成绩＂) 得到的是字符型变量.

新绛县13964726786： vb实时错误13 - ？
尚忽洛斯： 当文本框内不为数字,或者为空的时候,直接用来跟数值比较就会出错.就你这个代码来说,可以在开头加上错误处理语句.On Error Resume Next Private Sub Text1_Change() On Error Resume Next '这里加上这句,当错误的时候if语句会执行第一句,If text1.Text > 100 Or text1.Text < 0 Then text2.Text = ＂输入不正确＂ ElseIf text1.Text >= 90 Then text2.Text = ＂优秀＂

新绛县13964726786： VB实时错误13,类型不匹配 - ？
尚忽洛斯： Private Sub Form_Load() Me.AutoRedraw = True m = Val(InputBox(＂m=＂)) n = Val(InputBox(＂n=＂)) If n > m Then t = m m = n n = t End If Do r = m Mod n m = n n = r Loop Until r = 0 Print m'End End Sub