下面给出一个使用 If-Then 语句的实例，读者可根据它加深对该语句使用的理解。《Visual Basic 程序设计》If-Then.rar

实例If-Then《Visual Basic 程序设计》(全书程序都是用VB6简体中文版为平台来讲解的)

陈 明　编 中央广播电视大学出版社

第63页 第三章 If-Then 语句的实例

代码：

Sub Form_Click() '声明变量 Temp, 表示气温。 Dim Temp As Single 'Imputbox $ 函数接收输入数据, 'Val 函数将它转变成数值类型后赋给变量 Temp Temp = Val(InputBox("What is the tempture?")) '如果气温高于 25℃，弹出消息对话框，提示 '天气太热。 If Temp > 25 Then MsgBox "It is hot" End Sub

[attach]92[/attach] 文件：If-Then.rar :（If-Then.frm、If-Then.vbp、If-Then.exe）

[此贴子已经被作者于2004-05-09 19:08:55编辑过]