编写VB程序,实现如下功能:在文本框Text1输入一个字符串,单击命令按钮Command1,判断这个字符串是不是回文字符串(回文字符串就是一个对称的字符串,如“abcba”和“abccba”都是回文字符串,“abc”不是回文字符串)。在文本框Text2中显示结果,是回文字符串显示“yes”,否则显示“no”。程序运行效果如图所示。
(1)
要使命令按钮 Command1的标题变为“判断”,则应该修改该对象的属性。
(2)
为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click( )
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
①
J= Len (st)
i=1
flag=True
Do While flag And (i < = j)
If
Mid(st,i,1)= mid (st,j,1) Then
i=i+1
②
Else
flag=False
End If
Loop
If ③ then
Text2. Text = “yes”
Else
Text2.
Text = “no”
End If
End Sub
① ② ③
答案: 【1】Caption
【1】st = Text1. Text【2】j = j-1【3】flag或flag = True