Vb如何判断多个变量的值是否相等

来源：百度知道 编辑：UC知道 时间：2024/05/11 13:00:33
有4个下拉框分别都有相同的的值

当用户选的时候如果4个其中有1个和用户当前选择的值一样就提示??
除了if和case一个个判断过去还有别的办法没,
下拉框只是打个比喻而已..
其实有4个变量
4个下拉框选了值后会赋值给变量
例如
dim a,b,c,d as long
判断a,b,c,d的变量是否有一样的.

if a=b and b=c and c=d then

只能这样了

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
d = InputBox("d")
If a = b And b = c And c = d Then
MsgBox "OK"
End If
End Sub
试了下这样可以。别的方法就不知道了！

注意字符型和数值型的比较
如果是数值型的话，建议用val处理一下再赋给变量，最后再用一楼的方法比较

================================================
If a = b And b = c And c = d Then
MsgBox "OK"
End If
上面的代码难道不可以吗？

只是4个的话就直接比较吧
多个的话还是用数组吧