www.1862.net > VB怎么老是出现块iF缺少EnD iF

VB怎么老是出现块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轴无交点" Else

书写不规范,不容易看出缺少End IF,应该这样写:if val(text1.text)<500 then label1.caption="你猜的太小了" else if val(text1.text)=500 then label1.caption="你猜对了" else label1.caption="你猜的太大了" end if end if 一个if对应一个end if,在写程序时,写好if后立即换行写好end if,这样不容易出错.

vb里if都要有end if配对,你没有配对好,自己去添加上去 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer, f As Integer, i As Integer x = InputBox("输入1-10", "输入", 100) If x < 1 Or x > 10 Then x = InputBox(

你里面有了 判断语句 if … then …end if 语句,在末尾加上 endif即可

123456789101112 privatesubcommand1_click()dimx asintegerifx >= 90 then text2.text = "a等"elseifx >= 80 then text2.text = "b等"elseifx >= 60 then text2.text = "c等"elseifx text2.text = "e等"endifendsub

代码写法不符合规范,现修改如下:private sub cmdset_click() if dir(app.path & "\key.dat") = "" then formfirst.show else: msgbox "您已经设置过密码!", vbokonly, "提示" end ifend sub

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

Dim a, b As Double a = Rnd b = Rnd If a > b Then Print "a胜" If b > a Then Print "b胜" Else Print "平局" End If End if End Sub 说明:If a > b Then Print "a胜" If b > a Then Print "b胜" 这里共有两个IF,但你结尾哪里只有一个End If.所以会报错(在结尾的地方加个End if上去解决) 一个IF对应着一个End IF(不能多,不能少.否则就会报错)

ifend if要配对.不能一个end if 对应多个if.每一个end if 与前面未配对的第一个if配对.这个vb程序的原则.就像vb不像c语言每句代码后面不用加“;”,也是程序正常执行的必要.比如你上面的代码,在不同的事件中,if语句没end if就没有结束了.另一方面,比较c语言中if{}语句,这个没有end if.它是用大括号表示if限制的区域.希望对你有帮助.

把End if 这一行删除就是了,因为你把If语句在上一行上已经写完了.或者不删除的话,就把Then后面的部分另起一行.

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com