vba 弹框

 
 
'第三个按钮，上传数据到数据库
Private Sub CommandButton1_Click()
str1 = "abcde"
str2 = InputBox("请输入一个字符串!")
 
If str1 = str2 Then
MsgBox "它们是一样的呀!"
Else
MsgBox "它们是不一样的!"
End If
End Sub