vb6中字符串相加

来源：百度知道 编辑：UC知道 时间：2024/07/02 06:46:18
小程序中一共有textbox1，textbox2，textbox3，commandbutton1，用commandbutton1，来判断textbox1和textbox2中的字符串，如果都是特定的字符串，则在textbox3中显示一个结果（也是一个字符串），如果不都是特定的字符串，则在textbox3中显示另外一个结果（是另外一个字符串）。例如，当在textbox1中输入“刘邦”且在textbox2中输入“项羽”，点击commandbutton1，则在textbox3中显示“他们都是历史中的英雄人物”，如果仅在textbox1中输入“刘邦”，在textbox2中输入其他的字符，或仅在textbox2中输入“项羽”，在textbox1中输入其他字符，则在textbox3中显示“他们不全是历史中的人物”。谢谢！

sub commandbutton1_click ()
dim s1 as string ,s2 as string
s1=ww(textbox1.text)
s2=ww(textbox2.text)
dim s as string
if (len(s1) =0 or len(s1)=0) and len(s1 & s2 ) > 0 then
s="他们一个是" & iif(len(s1)=0,s2,s1)
elseif s1=s2 then
s ="他们全是" & s1
elseif s1<>s2 & len(s1 & s2) >0 then
s="他们一个是" & s1 & "一个是" & s2
elseif len(s1 & s2 ) =0 then
s ="他们两个都未知人物"
endif
end sub

function WW (sName) as string
dim s as string

select case sName
case "项羽","刘邦"
s ="历史中的人物"

case "刘德华","张学友".....
s ="影视歌星"
case else
s=""
end select
ww=s
end function

Private Sub Command1_Click()
If Text1.Text = "刘邦" And Text2.Text = "项羽" Then text3.Text = "他们都是历史中的英雄人物"
If Text1.Text = "刘邦