VB2008入门教程：[10]

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

If+条件+Then

代码

End If

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 子句”中向此项目添加内容。

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 语句使程序在运行时根据各种条件有选择地运行代码块。下一课我们将继续学习出错时怎么办：处理错误。