[已解决]EXCEL高手用VBA解释一下for循环leftlenthen

vbyou127

EXCEL高手用VBA解释一下for循环leftlenthen

Private Sub Command1_Click()
  a$ = "12234567864"
  d$ = Left(a$, 1)
  For i = 2 To Len(a$)
     z$ = Mid(a$, i, 1)
     If z$ > d$ Then d$ = z$   
  Next i
  Print d$
End Sub

窗体中显示 8

为什么8，如何计算出来

最佳答案

月排行榜 / 总排行榜

grf1973

2016-2-22 11:21

1、代码里涉及到字符串的比较，实际上是各字符asc码的比较，因全是数字类型，大小关系和数字的大小关系一致。
2、a = "12234567864"
  d = Left(a$, 1)=1    （因全是数字类型，大小关系和数字的大小关系一致）
3、开始循环，从a的第2个字符开始：
      i=2,Z = Mid(a$, i, 1)=2,如果  Z > d 那么 d = Z（d=1,Z=2，满足，所以d=Z=2)
      i=3,Z = Mid(a$, i, 1)=2,d=2，不满足Z>d的条件，所以d=2
      i=4,Z = Mid(a$, i, 1)=3,d=2，满足Z>d的条件，所以d=3
     。。。。。
    由此可见，循环的意思是反字符串中的每个字符取出来跟d比较，如果比d大，就让d等于这个大值，如果比d小，d保留原值不变。最终结果就是把字符串中的最大值给取出来。
因此最终结果是字符串 "12234567864"中的最大值8。
  Next i

跳转到最佳答案楼层

grf1973

1、代码里涉及到字符串的比较，实际上是各字符asc码的比较，因全是数字类型，大小关系和数字的大小关系一致。
2、a = "12234567864"
  d = Left(a$, 1)=1    （因全是数字类型，大小关系和数字的大小关系一致）
3、开始循环，从a的第2个字符开始：
      i=2,Z = Mid(a$, i, 1)=2,如果  Z > d 那么 d = Z（d=1,Z=2，满足，所以d=Z=2)
      i=3,Z = Mid(a$, i, 1)=2,d=2，不满足Z>d的条件，所以d=2
      i=4,Z = Mid(a$, i, 1)=3,d=2，满足Z>d的条件，所以d=3
     。。。。。
    由此可见，循环的意思是反字符串中的每个字符取出来跟d比较，如果比d大，就让d等于这个大值，如果比d小，d保留原值不变。最终结果就是把字符串中的最大值给取出来。
因此最终结果是字符串 "12234567864"中的最大值8。
  Next i