text81这个框子里怎么等于0

青年刘发布于 2015-04-10 11:58， 357 次点击

For c = 0 To 9
   If Text21(c).Text = "*" Then
   n = Text1(c).Text
      ElseIf Text11(c) = "0" Then
      Exit For
      End If
Next c
Text81.Text = n
想要实现在text21-text30中如果出现*，则记下它的位置
在text81中显示出位置是几

2 回复

lianyicq2015-04-10 12:53

试试

程序代码：

Private Sub Command1_Click()
Dim i As Integer
For i = 21 To 30
If InStr(Controls("Text" & i).Text, "*") <> 0 Then Text81.Text = Text81.Text & "Text" & i & " "
Next
End Sub

chen35232015-04-10 12:58

很有可能n根本不赋值，最后就等于“0”了。