| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3227 人关注过本帖
标题:怎么提示next没有for
取消只看楼主 加入收藏
青年刘
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2015-4-6
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:2 
怎么提示next没有for
For g3 = 9 To 1 Step -1
  If Text11(g3) = "0" Then
   If Text21(g3 - 2) = "%" Then
    If Text21(g3 - 3) = "%" Then
     k4 = Mid(Text11(g3 - 4).Text, 2, 1)
     k5 = Mid(Text11(g3 - 2).Text, 2, 1)
     k6 = Mid(Text11(g3 - 3).Text, 2, 1)
     k7 = Mid(Text11(g3 - 1).Text, 2, 1)
     Text18.Text = Text31.Text
     Text33.Text = sum
     Text19.Text = Text31.Text
     Text46.Text = k7 + k5
     Text20.Text = 2
     Text47.Text = k6
     Text22.Text = 3
     Text48.Text = k4
     Text23.Text = 4
     Text49.Text = sum - k1 - k2 - k3 - k4
     Text24.Text = Text22.Text
     Text38.Text = k4
     Text25.Text = Text31.Text
     Text51.Text = Text48.Text
     Text26.Text = Text20.Text
     Text40.Text = Text47.Text
     Text27.Text = Text31.Text
     Text53.Text = Text47.Text
     Text28.Text = Text23.Text
     Text42.Text = Text49.Text
     Text29.Text = Text31.Text
     Text55.Text = Text49.Text
    Else
     Text33.Text = sum
     Text18.Text = Text31.Text
     Text2.Text = 1
   End If
  Else
     Text33.Text = sum
     Text18.Text = Text31.Text
     Text2.Text = 1
 End If
Next g3
怎么老提示next没有for 怎么改
2015-04-13 11:37
青年刘
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2015-4-6
收藏
得分:0 
回复 2楼 lianyicq
哦,谢谢你。已经解决了问题。
2015-04-15 09:34
青年刘
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2015-4-6
收藏
得分:0 
回复 3楼 wube
就是没有对齐,所以才老出现这问题,我对齐之后就不报错了
2015-04-15 09:36
快速回复:怎么提示next没有for
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015941 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved