Dim n As Single, FHAs String Private Sub Commandl click N- CInt(TextI Text 将“Text 文本框内的数据转换为数值后赋给变量N Rem如果变量N大于或等于0,则 Ifn>=O Then 缓人民邮电出版社 OSTS TElECOM Press 意端处来放映
Dim N As Single, FH As String Private Sub Command1_Click( ) N = CInt(Text1.Text) '将“Text1” 文本框内的数据转换为数值后赋给变量N Rem 如果变量N大于或等于0，则 If N >= 0 Then
Rem如果变量N大于0,则显示这是正数! ";变量N等于0,则显示"这是零! ifn>O Then FH="这是正数!" Else 嵌套的选择结构 语句 FH=这是零! End if Else FH="这是负数! 缓人民邮电出版社 OSTS TElECOM Press 意端处来放映
Rem 如果变量N大于0，则显示"这是正数！ "；变量N等于0，则显示"这是零！" If N > 0 Then FH = "这是正数！" Else 嵌套的选择结构 语句 FH = "这是零！" End If Else FH = "这是负数！
End If Label2 Caption=FH End sub Private Sub Command2 Click End End sub 缓人民邮电出版社 OSTS TElECOM Press 意端处来放映
End If Label2.Caption=FH End Sub Private Sub Command2_Click( ) End End Sub
程序中,IN>=0Then语句的语句序 列1是由一个区块式 If Then else语句序列 组成的,它的语句序列2是由“FH="这是 负数!"语句序列组成的。程序中的选择 结构程序的流程图如图422所示。 缓人民邮电出版社 OSTS TElECOM Press 意端处来放映
程序中，If N >= 0 Then语句的语句序 列1是由一个区块式If Then Else语句序列 组成的，它的语句序列2是由“FH = "这是 负数！"”语句序列组成的。程序中的选择 结构程序的流程图如图4-2-2所示
成立 不成立 N> N>0 ↓不成立 成立 FH=“这 FH="这 FH= 这 是负数! 是正数! 是害 图4-2-2选择结构的嵌套流程图 缓人民邮电出版社 OSTS TElECOM Press 意端处来放映
图4-2-2 选择结构的嵌套流程图