wdjh.net
当前位置:首页 >> VB程序内显示块IF 没有EnD iF…… >>

VB程序内显示块IF 没有EnD iF……

书写不规范,不容易看出缺少End IF,应该这样写: if val(text1.text)

Private Sub Command1_Click() i = 1 m = Text1.TextWhile i texti.Text Then m = texti.TextEnd Ifi = i + 1WendPrint mEnd Sub “If m > texti.Text Then m = texti.Text” If m > texti.Text Then m = texti.Text这种连续写法不需要加End If你...

代码写法不符合规范,现修改如下: Private Sub Cmdset_click() If Dir(App.Path & "\key.dat") = "" Then formfirst.Show Else: MsgBox "您已经设置过密码!", vbOKOnly, "提示" End IfEnd Sub

If n Mod 2 0 Then MsgBox ("总脚数不是偶数") End If If n

排列正确后明显少了两个endif啊,不过我估计我这种排列方法到不到你的设计思路,但是回答你的问题还是够了的,总之if 跟endif 的数量要一样多

If rs.RecordCount = 0 Then Form2.ShowElse If rs.Fields("post") = "管理员" Then Form4.Show Else Form3.Show End If End IfVB没有代码自动缩进,写代码时应当有手动添加TAB的好习惯,这样就能防止If-else多个嵌套写错了

呵呵,代码有个小错误 if 条件 then 代码 如果写在一行,就不用end if了 如果代码写到下一行,就需要用end if了

也就是你的程序有if 开头的条件语句 但没有输入end if 请检查一下,没有的话,在相应地方加一下即可 特别注意中间的空格

你的代码过于凌乱和多余,改成如下: Private Sub Command1_Click() Dim a%, b%, c% a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then If b = 0 Then MsgBox "此函数为常数函数,c=0时与y轴重合,c≠0时与y轴无交点" ...

请给你的代码加上注释,保持好正确的缩进,以及:给你的for加上next 想要完美可以在next后面加上是结束 哪一个for。另外,exit for是退出循环的命令,不是确定for循环边界的命令。所以,你的错误在for没有足够的next

网站首页 | 网站地图
All rights reserved Powered by www.wdjh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com