VB小程序:(1)截取子串.(2)判断2个字符串之间的包含关系.

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:34:52
帮忙把这两个小程序写出来,要用VB语言编写的,可以自己随意发挥,能运行就成.题目:VB小程序:(1)截取子串,object as string,begin as int,end as int.(2)判断2个字符串之间的包含关系,A as string,B as string,判断A是否被B包含.
zxlxxl
你按VB语言和界面写2个相应的小程序吧

这是代码示例

Private Sub Command1_Click()
Dim object As String, iBegin As Integer, iEnd As Integer
object = "abcdefg"
iBegin = 3
iEnd = 5
MsgBox "abcdefg从第三个字符开始截取到第五个字符：" & Mid(object, iBegin, iEnd - 3 + 1)

Dim A As String, B As String
A = "abcdef"
B = "bcd"
If InStr(1, A, B) <> 0 Then MsgBox "A:'abcdef',b:'bcd' A包含B"
If InStr(1, B, A) <> 0 Then MsgBox "A:'abcdef',b:'bcd' A包含于B"
End Sub

建立三个command1、2、3
Option Explicit

Private Sub Form_Load()
Form1.AutoRedraw = True
Command1.Caption = "截取子串"
Command2.Caption = "判断关系"
Command3.Caption = "退 出"
End Sub
Private Sub Command1_Click()
Dim Object As String, Begin As Integer, End1 As Integer
Object = InputBox(&q