Question

判断两个字符串是否相等.窗体中有2个标签、2个文本框、1个复选框和1个命令按

判断两个字符串是否相等.窗体中有2个标签、2个文本框、1个复选框和1个命令按钮。程序运行时，在文本框中输入2个字符串，单击“比较”命令按钮，进行串的比较，用消息框显示出两串相等，还是不相等。利用复选框设置串比较是否区分大小写。

Answer 1

'标鉴框没有用上 示例代码如下：
Private Sub Command1_Click()
If Check1.Value = 1 Then
If Text1.Text = Text2.Text Then
MsgBox "相等"
Else
MsgBox "不相等 "
End If
Else
If UCase(Text1.Text) = UCase(Text2.Text) Then
MsgBox "相等"
Else
MsgBox "不相等"
End If
End If
End Sub

Answer 2

设选定复选框时为区分字母大小写，不选定是为不区分字母大小写
private sub command1_click()
if check1.value=0 then
m1=text1.text
m2=text2.text
else
m1=lcase(text1.text)
m2=lcase(text2.text)
endif
a=len(m1)
b=len(m2)
if a<>b then
msgbox "两个字符串不相等"
else
c=1
for i=1 to a
if asc(mid(m1,i,1))<>asc(mid(m2,i,1))
c=0
msgbox "两个字符串不相等"
endif
next
if c=1 then
msgbox "两个字符串相等"
endif
endif
end sub

Answer 3

给多少分?我先看看.
这个比较麻烦的说..