帮忙看看这段简单的

Question

我想写一个自动计算的练习，帮忙看看。运行是出错，说什么无效限定符。
我什么都不懂，还请高手指点。
Public I1 As Integer, I2 As Integer, I3 As Integer, I4 As Integer, I5 As Integer
Public O1 As Integer, O2 As Integer, O3 As Integer, O4 As Integer, O5 As Integer
Public P1 As Integer, P2 As Integer, P3 As Integer, P4 As Integer, P5 As Integer
Private Sub Form_load()
For Q = 0 To 2
If Not IsNumeric(TextLength(Q).Text) Then
     TextLength(0).Text = 1
     TextLength(1).Text = 1
     TextLength(2).Text = 1
Else
If Not IsNumeric(TextThick(Q).Text) Then
     TextThick(0).Text = 1
     TextThick(1).Text = 1
     TextThick(2).Text = 1
Else
End If
End If
Next
End Sub
Private Sub Form_Click()
  TextThick(0).Text = I1
  TextThick(1).Text = O1
  TextThick(2).Text = P1
  TextWidth(0).Text = I2
  TextWidth(1).Text = O2
  TextWidth(2).Text = P2
  TextLength(0).Text = I3
  TextLength(1).Text = O3
  TextLength(2).Text = P3
  TextInD(0).Text = I4
  TextInD(1).Text = O4
  TextInD(2).Text = P4
  I5 = Sqr((4 / (Pi * (I1 / 1000) * I3)) + (I4 ^ 2))
  O5 = Sqr((4 / (Pi * (O1 / 1000) * O3)) + (O4 ^ 2))
  P5 = Sqr((4 / (Pi * (P1 / 1000) * P3)) + (P4 ^ 2))
  Lable1.Cption = I5
  Lable2.Cption = O5
  Lable3.Cption = P5
  End Sub

Answer 1

.................................
     If Not IsNumeric(TextThick(Q).Text) Then
     TextThick(0).Text = 1
     TextThick(1).Text = 1
     TextThick(2).Text = 1
Else
End If
End If
Next
End Sub
Private Sub Form_Click() '这里！说什么“无效限定符”。
  TextThick(0).Text = I1
  TextThick(1).Text = O1
  TextThick(2).Text = P1
  TextWidth(0).Text = I2
  TextWidth(1).Text = O2
  TextWidth(2).Text = P2
.................................

Answer 2

错误1：TextWidth是保留字，你输入TextWidth(之后会提示你“str as String”错误2：  I5 = Sqr((4 / (Pi * (I1 / 1000) * I3)) + (I4 ^ 2))
  O5 = Sqr((4 / (Pi * (O1 / 1000) * O3)) + (O4 ^ 2))
  P5 = Sqr((4 / (Pi * (P1 / 1000) * P3)) + (P4 ^ 2))
I1,O1,P1为零，不能作除数（VB是这样报的错误）错误3：  Lable1.Cption = I5
  Lable2.Cption = O5
  Lable3.Cption = P5这位老大，Caption是不是拼错了？Label的名字也错了诶。

Answer 3

谢谢你，我太粗心了。
还有我在里边有一个Combo的List里有一个是3"
我在代码里要怎么写才能避开  "  呢？
比如说 
......
If combo.text=3" then '这里报错了，就是 " 的原因。
.....

Answer 4

晕啊，老大，改成If combo.text=3 then 或者If combo.text='3' then 就ok了，不过两种有区别的噢，注意了

Answer 5

kyq888(紫蚂蚁)你可能把我的意思高错了。
我是说,比如:我有个Text1的.Text默认是3"-----看清楚是3寸代引号的。
我在代码里边要怎么写？......
If Text1.Text=3" Then 
.....

Answer 6

come on
大家行行好呀。

Answer 7

想在字符串中表达一个双引号，可以用两个双引号，比如
""的输出结果是"，而""1""的输出结果应该是"1"
你的 if text1.text=3"应该写成if text1.text="3"""

Answer 8

If Text1.Text="3""" Then