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

VB程序内显示块IF 没有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

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你...

例子 if text=“” then msgbox“X" else msgbox "OK" end if '结束时必须end if,否则提示错误。 end if其实是把if结束,就好像开门就一定关门咯。 凡是用if就一定要end if。

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

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

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"...

If K > 5 Then K = 1 If K > 5 Then K = 1 else n=1 If K > 5 Then K = 1 end if If K > 5 Then K = 1 else n=1 end if 上面4种写法都对,都是一个完整的 if 语句。 你的 If K > 5 Then K = 1 是一个完整的 if 语句,下一个 End If 当然就没有 i...

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