VB中怎样判断两个字符串是否相等?

比如有两个字符串If 这两个字符串相等 Then Goto 某行 不相等 输出某结果怎样判断这个字符串是一样的啊?

可以参考下面的代码:

str1="abcde"

str2=inputbox("请输入一个字符串!")

if str1=str2 then

msgbox "它们是一样的呀!"

else

msgbox "它们是不一样的!"

end if


扩展资料:

VB函数

And 运算符: 执行两个表达式的逻辑连接。 

Array 函数: 返回含一数组的变体 。 

Asc 函数: 返回字符串首字母的 ANSI 字符代码。 

赋值运算符 (=):给变量或属性赋值。 

Description 属性: 返回或者设置说明某个错误的字符串。 

Dictionary 对象: 存储数据键、项目对的对象。 

Dim 语句: 声明变量并分配存储空间。 

除法运算符 (/): 两数相除并以浮点数格式返回商。 

参考资料来源:百度百科-Visual Basic

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2017-06-14
直接用=号判断,比如

Private Sub Command1_Click()
If InputBox("输入字符串") = "123" Then
GoTo A
Else
GoTo B
End If

A:
Print 1
GoTo C
B:
Print 2
C:
End Sub本回答被网友采纳
第2个回答  2013-04-14
if a=b then gotoelse print .....直接用=号就可以了
第3个回答  2017-06-13
Sub fine()Dim A As StringDim B As StringA = "金典嘉园"B = "玫瑰花园" For h = 1 To Cells(Rows.Count, 1).End(3).Row If InStr(1, Cells(h, 1), A) Then Cells(h, 2) = A Else If InStr(1, Cells(h, 1), B) Then Cells(h, 2) = B End If NextEnd Sub
第4个回答  2013-04-14
Dim A As String, B As String

A = "123456"
B = "123456"
If A = B Then GoTo xiangdeng
MsgBox "不相等"
GoTo buxiangdeng
xiangdeng:
MsgBox "相等"
buxiangdeng:本回答被网友采纳