VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/04/29 22:01:16

VB的if语句的问题
Private Sub Command1_Click()
If Text1 = "111" Then
Form3.Show
End If
Else
If Text1 = "" Then
MsgBox "错误!"6,"系统错误"
End If
End Sub
怎么改
当Text1=111时 Form3.show
当Text1不是111时 MsgBox "错误",6,"系统错误"
怎么写?

Private Sub Command1_Click()
'先判断为空时则出错
If Text1 = "" Then
MsgBox "错误!"6,"系统错误"
exit sub
end if
If Text1 = "111" Then Form3.Show
End Sub
或者
Private Sub Command1_Click()
If Text1 = "111" Then
Form3.Show
else
MsgBox "错误!"6,"系统错误"
end if
End Sub
再问：当Text1=111时 Form3.show 当Text1不是111时 MsgBox "错误", 6, "系统错误" 怎么写？
再答：第二段，已经给你准备好了

VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF 请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text "" VB问题Private Sub Command1_Click() VB里的“Private Sub Command1_Click()”是什么意思? vb sgn 函数Private Sub Command1_Click()x = -5If Sgn(x) Theny = vb Private Sub Command1_Click() VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V Private Sub Text1_Click() If Text1.Text = "请输入" Then Text1.T SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex VB：Sgn pricate sub command1_click()x= -5If sgn(x) then y=sgn VB的一个IF循环语句语句问题