vb if什么情况要加vbend iff什么情况不加

来源：蜘蛛抓取(WebSpider) 时间：2018-08-04 02:58 标签： 以下能够触发文本框
VB中的#If...#End if中的#号是什么意思?
[问题点数：20分，结帖人bitcat]
本版专家分：466
结帖率 100%
CSDN今日推荐
本版专家分：3481
本版专家分：466
本版专家分：1811
匿名用户不能发表回复！|
其他相关推荐vb编程计算中 if 语句块的语法问题 运行时提示“endif缺少if语句块”_百度知道
vb编程计算中 if 语句块的语法问题 运行时提示“endif缺少if语句块”
Forj=5ToaIfCells(j,8)&=0ThenCells(j,9)=Cells(j,8)ElseForm=-1To-jIfCells(j+m,8)&0Thenb=Cells(j+m,8)EndIfExitForForn=1Toa-jIfCells(j+n,8)&0Thenc=Cells(j+n,8)EndIfExitForCel...
For j = 5 To a If Cells(j, 8) &= 0 Then
Cells(j, 9) = Cells(j, 8)
For m = -1 To -j
If Cells(j + m, 8) & 0 Then
b = Cells(j + m, 8)
For n = 1 To a - j
If Cells(j + n, 8) & 0 Then
c = Cells(j + n, 8)
Cells(j, 9) = (b + c) / 2 End IfNext j
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
花落花飞谢
来自电脑网络类芝麻团
花落花飞谢
采纳数：380
获赞数：559
参与团队：
请给你的代码加上注释，保持好正确的缩进，以及：给你的for加上next 想要完美可以在next后面加上是结束 哪一个for。另外，exit for是退出循环的命令，不是确定for循环边界的命令。所以，你的错误在for没有足够的next
采纳数：367
获赞数：757
你这一段有两个if，却有3个end if，当然就不正常了。if 和end if是配对的，你这个肯定多出一个了。一般自己写的代码是较少会出现这种情况的，估计代码是拷的吧，要拷也不是不可以，但要看明白看懂了再拷。
都是三个。
仔细看一下啦
哦，是三个。那是我看错了。但你这一段的关系也很模糊。建议你一个一个配对好。在百度这里缩进不明显，在IDE中有良好的缩进比较容易发现问题。是啊，正如楼下所说的，for是和next对应的，不应该是exit for。
来自电脑网络类芝麻团
采纳数：351
获赞数：1315
参与团队：
截张图看看
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。【图文】VB中的IF语句_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB中的IF语句
&&高一信息技术,VB编程
阅读已结束，下载本文到电脑
定制HR最喜欢的简历
你可能喜欢VB问题： End IF 没有 块 IF的问题_百度知道
VB问题： End IF 没有 块 IF的问题
IfblnRetCode=TrueThenWithCPIQCRRD_StructObjctrlFlg=Trim(.MemberO(strErrMes,&a&))IfctrlFlg=&Y&ThenMsgBox(&123&)maxShtCnt=CLng(Trim(.MemberO(strErrMes,&b&)))IfgCtrlMaxCnt=C...
If blnRetCode = True Then
With CPIQCRRD_StructObj
ctrlFlg = Trim(.MemberO(strErrMes, &a&))
If ctrlFlg = &Y& Then
MsgBox (&123&)
maxShtCnt = CLng(Trim(.MemberO(strErrMes, &b&)))
If gCtrlMaxCnt = CLng(Trim(.MemberO(strErrMes, &c&))) Then
MsgBox (&123&)
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：233
获赞数：294
If blnRetCode = True Then
With CPIQCRRD_StructObj
ctrlFlg = Trim(.MemberO(strErrMes, &a&))
If ctrlFlg = &Y& Then
MsgBox (&123&)
maxShtCnt = CLng(Trim(.MemberO(strErrMes, &b&)))
If gCtrlMaxCnt = CLng(Trim(.MemberO(strErrMes, &c&))) Then
MsgBox (&123&)
'少了这个End If
采纳数：53
获赞数：12
擅长：暂未定制
排列正确后明显少了两个endif啊，不过我估计我这种排列方法到不到你的设计思路，但是回答你的问题还是够了的，总之if 跟endif 的数量要一样多
我有三个if 和end if 啊，一样多的
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。为什么vb编程中前面明明有if但是却提醒我说end if没有if,_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,623贴子：
为什么vb编程中前面明明有if但是却提醒我说end if没有if,收藏
大神快来帮我解一下吧，这问题着实让我这新手烦恼！！
有些If语句是不需要End If的
条件赋值语句和条件转向，都是有 If 没有 End If 的。If PBS &= 0 Then x1 = P + Q : x2 = P - QIf Abs(a) & 1e-10 Then Exit Sub……这些都不需要 End If 。
判断和执行写成一行不需要end if
还有，可能写多了一条end if？
写成一行不需要end if
for next 不配对　
If i = 0 Then
For i = 0 To 10
Debug.Print iEnd If
End If 上面多加一行 Next i还有 难道你只有一个字母可以当变量名吗？执行了一次 for next 打死也不会再有机会进来啦
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
谢谢各位了，但是好像不是你们说的问题，我也不知道错在哪儿了，麻烦你们帮我再看看程序，看看哪儿出错了
你else前面少了一个end select。
还有什么题目为什么会这么复杂…
行形式不用end if
感谢各位大神相助，问题已解决
登录百度帐号

我要回帖

更多关于 以下能够触发文本框 的文章

 

随机推荐