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

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

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

Private Sub Command1_Click()Dim x As IntegerIf x >= 90 Then Text2.Text = "A等"ElseIf x >= 80 Then Text2.Text = "B等"ElseIf x >= 60 Then Text2.Text = "C等"ElseIf x < 60 Then Text2.Text = "E等"End IfEnd Sub

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

你的代码过于凌乱和多余,改成如下: 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 text=“” then msgbox“X" else msgbox "OK" end if '结束时必须end if,否则提示错误。 end if其实是把if结束,就好像开门就一定关门咯。 凡是用if就一定要end if。

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

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