vb 看看哪里不对?

显示全部楼层 · 2007-2-13 18:37:35

在开始没有定义

千问 · 2007-2-13 18:37:35

我感觉少了个END IF

千问 · 2007-2-13 18:37:35

For -- Next Do-- LoopIf-- End If不能用Exit Do吧用Loop试试！

千问 · 2007-2-13 18:37:35

Dim sozuk(0 To 7) As String ---------------------------Dim sozuk(7) As String 有了do...缺少loop有了if...缺少end if

千问 · 2007-2-13 18:37:35

把这段代码放上去吧。。。。Private Sub Command1_Click() Dim i As Integer, tawux As String, s As Integer Dim sozuk(0 To 7) As String sozuk(0) = "1575" sozuk(1) = "1749" sozuk(2) = "1744" sozuk(3) = "1609" sozuk(4) = "1608" sozuk(5) = "1735" sozuk(6) = "1734" sozuk(7) = "1736" For i = 1 To Len(tbox.Text) tawux = AscW(Mid(tbox.Text, i, 1)) s = 0 Do s = s + 1 If sozuk(s) = tawux Then Print 1 Loop Print 2 end ifNext End Sub