3选择结构一I条件语句 例351 Private sub commandl click0·单击“正确无误”按钮 If Len(TxtCode.Text)<8 Then LblWarn. Caption="考核证号必须输入,长度为8位 Txt Code SetFocus Elself Len(txtNameText)=OThen LblWarn. Caption="考生姓名必须输入 TxtName SetFocus Elself Len(Txtseat. Text)=OThen 考生登录 LblWarn. Caption="座位号必须输入 TxtSeat SetFocus Else 考核证号20001 LblWarn. Caption= 姓名 Debug. Print TxtCode Text Debug. Print txtName Text 座位号 Debug. Print TxtSeat Text 考生姓名必须输入 End If End sub 正确无误 返回目录3.1 选择结构－If条件语句 [例3.5] Private Sub Command1_Click() '单击“正确无误”按钮 If Len(TxtCode.Text) < 8 Then LblWarn.Caption = "考核证号必须输入，长度为8位" TxtCode.SetFocus ElseIf Len(TxtName.Text) = 0 Then LblWarn.Caption = "考生姓名必须输入" TxtName.SetFocus ElseIf Len(TxtSeat.Text) = 0 Then LblWarn.Caption = "座位号必须输入" TxtSeat.SetFocus Else LblWarn.Caption = "" Debug.PrintTxtCode.Text Debug.PrintTxtName.Text Debug.PrintTxtSeat.Text End If End Sub 返回目录