7.1If语句 「例7.1输入 开始 编写代码 Private sub comm dim max as single Dim max As single Dim min As Single t max=Val(TextIText min= Val(Text2 Text) If max min then max min Label. Caption=”较大值为&mmx End sub 注意: 令块if语句中的 end if能否省略? 将块if语句改为单行i语句怎么改?
例7.1 输入两个数，输出较大的数。 ▪ 编写代码： Private Sub Command1_Click() Dim max As Single Dim min As Single max = Val(Text1.Text) min = Val(Text2.Text) If max < min Then max = min End If Label3.Caption = "较大值为" & max End Sub F T max=min max<min？ 开始 dim max as single dim min as single max=val(text1.text) min=val(text2.text) 结束 注意：Label3.Caption = "较大值为" & max 块if语句中的end if能否省略？ Dim max As Single Dim min As Single max = Val(Text1.Text) min = Val(Text2.Text) If max < min Then max = min Label3.Caption = "较大值为" & max 注意： 块if语句中的end if能否省略？ 将块if语句改为单行if语句怎么改？ If max < min Then max = min 7.1 If语句
7.1If语句 今If语句 If…Then…Else结构 If表达式Then ·语法格式 语句块1 If表达式Then语句块1Else语句块2 Else 语句块2 End If 功能:该结构用于解决二选一"的问题。当表达式的值为真,执 行语句块1的语句内容;否则执行语句块2的语句内容。 说明: 表达式最终的值必须为逻辑值,即取值为真或假。 若语句块1和语句块2都是单条语句,可采用单行If格式,否 则采用块If语句。 跟If…Then不同,该结构中即使表达式值为假,也有语句 块2的内容可被执行
❖If语句 ▪ If…Then…Else结构 • 语法格式： • 功能：该结构用于解决"二选一"的问题。当表达式的值为真，执 行语句块1的语句内容；否则执行语句块2的语句内容 。 • 说明： –表达式最终的值必须为逻辑值，即取值为真或假。 –若语句块1和语句块2都是单条语句，可采用单行If格式，否 则采用块If语句。 –跟If …Then 不同，该结构中即使表达式值为假，也有语句 块2的内容可被执行。 If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句块1 Else 语句块2 7.1 If语句
7.1If语句 「例7.2编写一个程序,实现当用户输入的用户名和口令 都正确时显示"欢迎登录"的消息对话框,当用户名或口令 有错误时显示消息对话框报告错误。 分析 本题需要两个文本框分别保存用户输入的用户名和口 令,一个"登录″按钮,一个"退出按钮。当输入的用户 名和口令国登录 回x,当不相符时 显示"非氵 Else结构来 实现。 用户名: 界面设计: 口令 登录 退出
例7.2 编写一个程序，实现当用户输入的用户名和口令 都正确时显示"欢迎登录"的消息对话框，当用户名或口令 有错误时显示消息对话框报告错误。 ▪ 分析： 本题需要两个文本框分别保存用户输入的用户名和口 令，一个"登录"按钮，一个"退出"按钮。当输入的用户 名和口令与正确的相符时显示"合法用户"，当不相符时 显示"非法用户"，所以应当采用If…Then…Else结构来 实现。 ▪ 界面设计： 7.1 If语句
7.1If语句 「例7.2编写一个程序,实现当用户输入的用户名和口令 都正确时显示"欢迎登录"的消息对话框,当用户名或口令 有错误时显示消息对话框报告错误。 编写代码: 用户名和口 F 令正确吗? If user =SYL And psw="123456″Then MsgBox("欢迎您登录本系统!") Else MsgBox("您的用户名或口令有误,请重新输入!") End if
7.1 If语句 例7.2 编写一个程序，实现当用户输入的用户名和口令 都正确时显示"欢迎登录"的消息对话框，当用户名或口令 有错误时显示消息对话框报告错误。 ▪ 编写代码： Private Sub Command1_Click() Dim user As String Dim psw As String user = Text1.Text psw = Text2.Text End Sub T 用户名和口 F 令正确吗？ 显示"欢迎" 消息框 显示"错误" 消息框 If user ="SYL" And psw = "123456" Then MsgBox ("欢迎您登录本系统！") Else MsgBox ("您的用户名或口令有误，请重新输入！") End If