wdjh.net
当前位置:首页 >> vB中 为什么显示EnD iF 没有块iF >>

vB中 为什么显示EnD iF 没有块iF

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

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

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

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

你的代码过于凌乱和多余,改成如下: 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轴无交点" ...

第一个if缺一个end if,或者把第二行和第一行中间加空格放一起。

VB的if语句分为:行If语句 和 块If语句 1,行If语句--写在一行里 If Then 语句 2,块If语句--写在多行里 If Then 语句块1 [Else 语句块2] End if

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

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