VisualBasic程序设计案例教程 第4章 选择结构设计

《VisualBasic程序设计案例教程 第4章 选择结构设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第4选择结构设计理解选择结构程序设计的特点熟练掌握If语句、SelectCase语句掌握选项按钮、框架、复选框和计时器的常用属性、方法和事件教学重点与难点：掌握VB程序设计中选择结构的理解和运用，理解掌握选择性控件和计时器控件的运用第4章选择结构设计【案例说明】建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所

2、有文本框，如有空白或内容错误，要求继续输入，否则结束程序。程序运行效果如图所示。分析：在过程中间我们不仅用到上一章的函数比如：“ExitSub”是退出过程，函数Len（字符串）可得到字符串的长度，函数IsNumeric（字符串）可检验字符串是否是数值，更重要的时，程序代码中会用到条件句来进行判断，即我们这一章所讲的重点之一，条件句。4.1条件语句案例【技术要点】界面设计修改控件属性。3．编写代码及调试程序。PrivateSubCommand1_Click()IfTextxm=""ThenTextxm.SetFocusExitSubEndIfIfTex

3、txb=""ThenTextxb.SetFocusExitSubEndIfIfTextdz=""ThenTextdz.SetFocusExitSubEndIf4.1条件语句案例IfTextyb=""ThenTextyb.SetFocusExitSubEndIfIfTextdh=""ThenTextdh.SetFocusExitSubEndIfEndEndSub以上是对退出命令按键的代码，当其对退出按键进行操作的时候，用件条句IfTextxm=""Then如果姓名文本框（Textxm）为空（""），然后把光标移到到文本框中（Textxm.SetFocu

4、s），并退出（ExitSub）此次操作的过程。4.1条件语句案例PrivateSubTextdh_LostFocus()IfTextdh.Text<>""ThenIfLen(Textdh.Text)<>8OrNotIsNumeric(Textdh.Text)ThenTextdh.Text=""Textdh.SetFocusEndIfEndIfEndSubPrivateSubTextxb_LostFocus()IfTextxb.Text<>""ThenIfTextxb.Text<>"男"AndTextxb.Text<>"女"ThenTextxb.Tex

5、t=""Textxb.SetFocusEndIfEndIfEndSub4.1条件语句案例PrivateSubTextyb_LostFocus()IfTextyb.Text<>""ThenIfLen(Textyb.Text)<>6OrNotIsNumeric(Textyb.Text)ThenTextyb.Text=""Textyb.SetFocusEndIfEndIfEndSub代码分析：以上是对性别文本框（Textxb）和联系电话文本框（Textdh）进行了处理当其光标从联系电话文本框（Textdh）移出的时候即Textdh_LostFocus()事

6、件发生，用条件句IfTextdh.Text<>""判断，如果联系电话文本框不为空，则再用条件句测试IfLen(Textdh.Text)<>8OrNotIsNumeric(Textdh.Text)，如果输入的内容长度没有8位或者输入的内容不是数字型，如果成立，则置空该文本框（Textdh.Text=""），并把光标移到本文本框中。4.1条件语句案例应用扩展如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编程？如果输入的数据不符合要求，或者在按“退出”按钮时还有空白的文本框，在作出处理之前要求给出提示信息，如何修改程序。要解答以上两个问题，我们

7、可以用到上一章中的消息框（MsgBox）来实现。代码如下：PrivateSubCommand1_Click()IfTextxm=""ThenMsgBox"姓名不能为空，请确定并重新输入"Textxm.SetFocusExitSubEndIfIfTextxb=""ThenMsgBox"性别不能为空，请确定并重新输入"Textxb.SetFocusExitSubEndIf4.1条件语句案例IfTextdz=""ThenMsgBox"地址不能为空，请确定并重新输入"Textdz.SetFocusExitSubEndIfIfTextyb=""ThenMsgB

8、ox"邮编不能为空，请确定并重新输入"Textyb.SetFocusExitSubEndIfIfTextdh