VB题目3:字符串的连接
编一程序，判断子字符串是否包含在主字符串中，若包含，则将在主字符串中出现的第一个子字符串删除，形成一个新字符串在标签框中显示出来；否则从主字符串右边取出字符个数相同的字符串在标签框中显示出来。
相关代码如下：
Private Sub Form_Load()
Text1.FontSize = 16
Text2.FontSize = 16
Text3.FontSize = 16
下列属于vb字符串函数是End Sub
Private Sub text2_keypress(keyascii As Integer)
If keyascii = 13 Then
  c1 = Text1.Text
  c2 = Text2.Text
  k = Len(c2)
  n = InStr(c1, c2)
  If n > 0 Then
  s1 = Left(c1, n - 1)
  s2 = Mid(c1, n + k)
  Text3.Text = s1 + s2
Else
    Text3.Text = Right(c1, Len(c2))
  End If
End If
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。