phmg.net
当前位置:首页 >> VB6.0 iF...thEn, ElsE iF...thEn, EnD iF 语句 >>

VB6.0 iF...thEn, ElsE iF...thEn, EnD iF 语句

配对情况如下:

在最后加上 end if 就行了 如果不行,仔细核对每一个if,看看有没有与其配对的end if if 和 end if 的数量必须配对

Private Sub Command1_Click()Dim i As Integer, l As Integer, r As IntegerDim chArray(40) As BytechArray = StrConv(Text1.Text, vbFromUnicode)For i = 0 To UBound(chArray) If Chr(chArray(i)) = "(" Then l = l + 1 If Chr(chArray(i)) ...

是由于if语法错误: 1、查看最后是否有endif 2、如果不行,仔细核对每一个if,看看有没有与其配对的end if

如果x大于0的时候条件成立,所以输出x的值,否则的话x就0了,输出的结果是0+1=1. 比如: dim x if x then print x else Print x (结果0) dim x x=2 if x then print x else Print x+1 (结果2) dim x if x then print x else Print x+1 (结果1) d...

dim a as boolean for i = 1 to counts'通讯录数目 if count(i)=txtxingming.text then a=true exit for endif next if a=true then msgbox"已经存在,请重新输入" endif

If InStr(1, Text2.Text, ".")

可以用Goto语句来实现,例如: Private Sub cmd1_Click() For i = 1 to 9 If i = 5 Then Goto Continue Print i Continue : '直接跳过Print i 了,注意冒号 Next i End Sub

BOF:指当前记录位置位于Recordset对象的第一个记录之前; EOF:指当前记录位置位于Recordset对象的最后一个记录之后。 这两个的属性值均返回布尔型:True和False,使用BOF和 EOF 属性可确定 Recordset 对象是否包含记录,或者从一个记录移动到...

- - vb里面没有continue语句 不过 可以这样实现试试 如 for a=1 to 100 ..... if a=25 then goto 1 ..... 1: next a a=100 do while a

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