| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 736 人关注过本帖
标题:会的麻烦编一编
只看楼主 加入收藏
追梦的男孩
Rank: 1
等 级:新手上路
帖 子:27
专家分:3
注 册:2008-10-27
收藏
 问题点数:0 回复次数:4 
会的麻烦编一编
本人学vb不长,今天老师要我们编一下这程序!本人不会、会的麻烦编一编!本人感激不尽
题目:编写一程序判断子字符串是否被包含在主字符中,若包含则将在主字符串中出现第一子字符串删除,形成一个新串在标签框中显出来,否则从主串右边取出与子串字符个数相同的字符串在标签框中显示出来
会的麻烦编一下
搜索更多相关主题的帖子: 麻烦 
2008-12-08 15:55
ouyang_m
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2008-10-31
收藏
得分:0 
kan kan
2008-12-08 16:02
xandy
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2008-12-6
收藏
得分:0 
不是查找函数也要自己写吧?

希望和大家做个朋友...
2008-12-08 16:37
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
举个例子呗

偶是菜鸟鸟偶惧WHO?!!!!
2008-12-08 17:46
xandy
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2008-12-6
收藏
得分:0 
2个文本框,1个标签框,1个按钮

乱写的:
Private Sub Command1_Click()
Dim StrNum, LenStr As Integer
Dim OneStr, TwoStr, NumBer As Integer

'获取主字符串字符个数
NumBer = Len(Text1.Text)

'获取子字符串在主子字符串中的位置
StrNum = InStr(Text1.Text, Text2.Text)

'获取子字符串的字符个数
LenStr = Len(Text2.Text)


If StrNum <> 0 Then
    '将在主字符串中出现第一子字符串删除,形成一个新串在标签框中显出来
    '
    '获取子字符串在主字符串前面的字符
     OneStr = Mid(Text1.Text, 1, StrNum - 1)
     
    '获取子字符串在主字符串后面的字符
    TwoStr = Right(Text1.Text, NumBer - (StrNum + LenStr - 1))
    Label1.Caption = OneStr & TwoStr
    Else
    '从主字符串右边取出与子字符串个数相同的字符串在标签框中显示出来
    Label1.Caption = Right(Text1.Text, LenStr)
End If
End Sub

Private Sub Form_Load()
Text1.Text = "主字符串"
Text2.Text = "子字符串"
Command1.Caption = "确定"
Label1.Caption = "这里显示结果"

Label1.Top = 0
Label1.Left = 525
Label1.Alignment = 2
Label1.Height = 450
Label1.Width = 3600

Text1.Top = Label1.Height
Text1.Left = 525
Text1.Height = 1050
Text1.Width = 3600

Text2.Top = Text1.Height + Label1.Height + 100
Text2.Left = 525
Text2.Height = 375
Text2.Width = 3600

Command1.Top = Text1.Height + Label1.Height + Text2.Height + 200
Command1.Left = 1600
End Sub

希望和大家做个朋友...
2008-12-08 17:50
快速回复:会的麻烦编一编
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013802 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved