Dim n As single, FHAS String Private Sub Commandl click N=CInt(TextIText) 将“Text1 文本框内的数据转换为数值后赋给变量N Rem如果变量N大于或等于0,则 Ifn>=o Then 人民邮电出版社 POSTS 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,则显示"这是零! fn>o Then FH=这是正数!" Else 嵌套的选择结构 语句 HH="这是零! End if Else FH=这是负数!" 人民邮电出版社 POSTS 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 人民邮电出版社 POSTS TELECOM PRESS 此处来映
End If Label2.Caption=FH End Sub Private Sub Command2_Click( ) End End Sub
程序中,IN>=0Then语句的语句序 列1是由一个区块式 If Then else语句序列 组成的,它的语句序列2是由“FH="这是 负数!"语句序列组成的。程序中的选择 结构程序的流程图如图4-2-2所示 人民邮电出版社 POSTS TELECOM PRESS 此处来映
程序中，If N >= 0 Then语句的语句序 列1是由一个区块式If Then Else语句序列 组成的，它的语句序列2是由“FH = "这是 负数！"”语句序列组成的。程序中的选择 结构程序的流程图如图4-2-2所示
成立 不成立 N>=0 N>0 不成立 成立 FH= FH="这 FH= 是负数! 是正数!" 这 是零! 图4-2-2选择结构的嵌套流程图 人民邮电出版社 POSTS TELECOM PRESS 此处来映
图4-2-2 选择结构的嵌套流程图