VB2008入门教程：[10]

在这一课中，我们将学习使用 If...Then 语句来运行基于条件的代码。

工具/原料

能联网的电脑一台

VB2008（安装方法参考小编的经验【如何安装VB2008】参考链接在【注意事项】中给出）

要点

1、 用If...Then 语句来使程序在两种可能性之间选择的格式为：If+条件+Then代码End If

试一试【1】

1、在“文件”菜单上，选择“新建项目”。在“新建项目”对话框的“模板”窗格中，单击“Windows 应用程序”。在“名称”框中键入 IfThen，再单击“确定”。

2、双击该窗体以打开代码编辑器。在 Form1_Load 事件处理程序中，键入以下代码：If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _ My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then MsgBox("Happy Weekend!")End If

3、按 F5 运行程序。如果当天是星期六或星期日，则会显示一个消息框，通知您 Happy Weekend!，否则不会显示消息框。在“调试”菜单上，选择“停止调试”以结束程序。将此项目保持为打开状态。我们将在下一个步骤，“使用 Else 子句”中向此项目添加内容。

试一试【2】

1、将 If...Then 语句中的代码更改为以下代码。If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _ My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then MsgBox("Happy Weekend!")Else MsgBox("Happy Weekday! Don't work too hard!")End If

2、按 F5 运行程序。现在您的程序会显示一个消息框，以适当的内容描述当天是周末还是工作日。

3、在本课中，您学到了如何使用带有 Else 子句的 If...Then 语句使程序在运行时根据各种条件有选择地运行代码块。下一课我们将继续学习出错时怎么办：处理错误。