wdjh.net
相关文档
当前位置:首页 >> vB6.0 IF >>

vB6.0 IF

配对情况如下:

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

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 len(dir("c:\123.txt"))>0 then msgbox"有这个文件" else msgbox"没有这个文件" end if

是由于if语法错误: 1、查看最后是否有endif 2、如果不行,仔细核对每一个if,看看有没有与其配对的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 Integer Dim y As Integer x = CInt(Text1.Text) y = CInt(Text2.Text) If x + y > 190 And x > 80 And y > 80 Then MsgBox "您的成绩优秀" ElseIf x + y > 160 And x > 75 And y > 75 Then MsgBox "您的...

简单啊, 声明: dim mouse as string 在chick事件里输入: mouse=1 ,在timer里: if mouse=1 then …… mouse=0 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)) ...

Private Sub Command1_Click(Index As Integer) '0-9数字键 Text1.Text = Text1.Text & Index Text1.SetFocus End Sub Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) '阻止键盘输入,不过不知为什么没有用 KeyAscii = ...

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