vb 急急急

来源：百度知道 编辑：UC知道 时间：2024/06/24 10:30:55
4. 编程实现如下功能：界面上有一大一小两个文本框和一命令按钮，当程序运行时，在大文本框中输入一些字符，在小文本框中也输入一些字符，单击按钮后会将大本文本框中与小文本框相同的字串符删除。
5. 编程判断一个字符串是否是回文（回文是指字符串左右对称，如“abcba”、“12344321”）

在窗体上添加两个Command,两个Text.粘贴代码测试:

Private Sub Command1_Click()
Text2.Text = Replace(Text2.Text, Text1.Text, "")
End Sub

Private Sub Command2_Click()
Dim ST As String
Dim i As Integer
For i = Len(Text1.Text) To 1 Step -1
ST = ST & Mid(Text1.Text, i, 1)
Next i
If ST = Text1.Text And Text1.Text <> "" Then
MsgBox "是回文!", vbInformation, "提示"
Text1.SetFocus
Else
MsgBox "不是回文!", vbInformation, "提示"
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "删除Text2中于Text1中相同的字符或字符串"
Command2.Caption = "Text1中的字串是否为回文"
End Sub

4

a=text1
b=text2
a=replace(a,b,"")
text1=a