求老师解答书中的建议窗口问题

1v1_yisu

大家好我想问老师一个问题

我搞了很久都没搞懂

这本书(VB其实很简单)的6.63 一个简单的登录窗体有个地方我一直没搞懂‘

就是设置添加名称Usename 引用地址为user

这时候会显示数值为user 引用地址=“user”

然后程序中有个叫 Names(“Username”).Refersto 它返回的到底是什么类型的东西，返回的是=“user” 还是user 我看书中的意思返回的是个字符串

后来我专门做了个测试

添加模块

设置名称为UserWord，引用地址为=“user”和书上设置的一样

Sub ceshi()

Dim old As String

Range("A1").Value = Names("UserWord").RefersTo

Range("A2").Value = Len(Names("UserWord").RefersTo)

Range("A3").Value = Len(Names("UserWord").RefersTo) - 1

Range("A4").Value = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1)

Range("A5").Value = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo))

Range("A6").Value = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo))

old = InputBox("")

If old = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1) Then

Range("A7") = 1

Else

Range("A7") = 2

End If

If old = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo)) Then

Range("A8") = 1

Else

Range("A8") = 2

End If

End Sub

RangeA1-A8 分别显示如下

user
7
6
"user"
user
user
2
2

RangeA1 表明Names("UserWord").RefersTo应该等于user

但range2=7又说明了len（Names("UserWord").RefersTo）=7那意思应该是=“user”这个的长度为7  那应该说明Names("UserWord").RefersTo=  =“user”那为什么range会显示user而不是=“user”？

然后

Range4= Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1)

显示的答案为“user”那说明是把前面的等去了

那Range5= Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo)按理显示的应该是=“user” 但却显示user 那又是为什么

还有我在inputbox 输入user模仿书中输入用户名输入 old 的值输入 user

按照书上的意思

应该Old=Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1)

但

在我的程序里

Range7 和range 8的值都为2

说明

If old = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1)

If old = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo)) Then

都不成立

这样的话数值所说的判断岂不是错误的 用户民输入user不会等于Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1)

求老师帮忙解答一下谢谢，这里我想了很长时间就是没弄明白。