qkaizhou(御赐金牌小密探！):我有一字符串"adasd阿三点121速度",里面有中文也有英文!我怎么判断一字符串有中文或英文!急!还没完!

Question

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To Len(Text1.Text)
      If Asc(Mid(Text1.Text, i, 1)) < 0 Then
form2.show
exit sub          
    End If      
    Next i
End Sub 

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    dim isCH
    isCH=false
    For i = 1 To Len(Text1.Text)
      If Asc(Mid(Text1.Text, i, 1)) < 0 Then
         isCh=true
         exit for
      End If      
    Next i
    if isCH=true then
       form2.show          
    end if
             
End Sub 

Answer 2

如果text1.text都是英文,我想执行form3.show呢!
怎写?

Answer 3

Private Sub Command1_Click()
    Dim i As Integer
    dim isCH
    isCH=false
    For i = 1 To Len(Text1.Text)
      If Asc(Mid(Text1.Text, i, 1)) < 0 Then
        isCh=true
        exit for
      End If      
    Next i
    if isCH=true then
      form2.show 
      else
          form3.show         
    end if
            
End Sub 

Answer 4

改改 Dim isCH as Boolean

Answer 5

qkaizhou(御赐金牌小密探！)　& dbcontrols(泰山__帮助你使我感到快乐.)
多谢了!送分
能告诉我你们的qq和email吗