Question

VB中，实时错误13 类型不匹配，求教

Private Sub Command1_Click()
Dim a As Double, t1 As String, t2 As String
Dim t4 As String, t5 As String, t6 As String, t7 As String
t1 = Text1.Text
t2 = Text2.Text
t3 = Text3.Text
t4 = Text4.Text
t5 = Text5.Text
t6 = Text6.Text
t7 = Text15.Text
t8 = t4 + t7
t9 = t5 + t7
t10 = t6 + t7
a = 1 / t8
b = 1 / t9
c = 1 / t10
d = a + b + c
e = t3
Text7.Text = d
Text8.Text = d * e
End Sub
运行时提示实时错误13 类型不匹配
a = 1 / t8错误，求修改
随便输数据可以运行，当输入我需要的Text1.Text = 100
Text2.Text = 10.5
Text3.Text = 5.499
Text4.Text = 0.717
Text5.Text = 0.779
Text6.Text = 0.952
Text15.Text = 0.181
就出现错误了，求解啊

Answer 1

t1到t10都定义成single型，并且t1 = val(Text1.Text)，t2以后也要这么写。

Answer 2

text中输入的默认是字符型的，要改成数值型的要加val(text1.text)或者直接写val(text1),反正都一样

Answer 3

数据类型定义错误
如果要进行数据运算的话用整数（Integer）类型或双精度数据（Double）类型都可以。
你用的String（字符串）类型，在【t8 = t4 + t7】就错误了。
如果：
T4等于2
T7等于3
那么T8将等于23而不是5
电脑把T4和T7当作字符串来连接起来，而不是进行运算！

如果你开始定义的是Double（双精度数据）的话，就是2+3=5，不是2和3=23。
还有输入的时候要注意，不要输入了空格！

Answer 4

a = 1 / t8错误，求修改 ？？

a = 1 / val(t8） 偶看？