瘦脸针脸部下垂图片:VB出学者问

来源：百度文库 编辑：高考问答 时间：2024/04/30 00:21:49
Dim flag As Integer

Private Sub Command1_Click()
If flag = 1 Then MsgBox ("输入正确")
Else
MsgBox ("输入错误")
End If
End Sub

Private Sub Text1_Change()
If Text1.Text = "zhang" Then flag = 1
Else
flag = 0
End If
End Sub
当运行时它总会 显示 IF 与 ELSE 不匹配 这是为什么呀 请高手告诉 谢谢

then 后面要换行！
如果THEN后面不换行，下面就不能再用ELSE 和 END IF 了！

if text1.text = "zhang" then flag = 1 else flag = 0 'end if 就可以不用了
或者
if text1.text = "zhang" then
flag = 1
else
flag = 0
end if

VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 电脑出学者的问题 VISUAL FOXPRO的出学者！