VB中怎样判断两个字符串是否相等?
比如有两个字符串If这两个字符串相等ThenGoto某行不相等输出某结果怎样判断这个字符串是一样的啊?...
比如有两个字符串If 这两个字符串相等 Then Goto 某行 不相等 输出某结果怎样判断这个字符串是一样的啊?
展开
展开全部
可以参考下面的代码:
str1="abcde"
str2=inputbox("请输入一个字符串!")
if str1=str2 then
msgbox "它们是一样的呀!"
else
msgbox "它们是不一样的!"
end if
扩展资料:
VB函数
Array 函数: 返回含一数组的变体 。
Asc 函数: 返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=):给变量或属性赋值。
Description 属性: 返回或者设置说明某个错误的字符串。
Dictionary 对象: 存储数据键、项目对的对象。
Dim 语句: 声明变量并分配存储空间。
除法运算符 (/): 两数相除并以浮点数格式返回商。
参考资料来源:百度百科-Visual Basic
推荐于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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-04-14
展开全部
if a=b then gotoelse print .....直接用=号就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim A As String, B As String
A = "123456"
B = "123456"
If A = B Then GoTo xiangdeng
MsgBox "不相等"
GoTo buxiangdeng
xiangdeng:
MsgBox "相等"
buxiangdeng:
A = "123456"
B = "123456"
If A = B Then GoTo xiangdeng
MsgBox "不相等"
GoTo buxiangdeng
xiangdeng:
MsgBox "相等"
buxiangdeng:
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询