[分享]实例If-Then《Visual Basic 程序设计》If-Then.rar
下面给出一个使用 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编辑过]